Help - VBA - Search Functionality - Database MS access - Programmers Heaven

Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!


Help - VBA - Search Functionality - Database MS access

eliterajeliteraj Posts: 1Member
Hi All,

Pls help me!!!

Database Structure:

UserName String
Location String
Price Number

I have listbox with some items into it say 100. The user will select only 10 randomly in the listbox (after changing the MULTISELECT to 2fmMultiselect property). I will have search button. Once I select and click Search, the total price of selected items has to be calculated and displayed.

My search code ( Thanks to Alex sir)

Private Sub CommandButton4_Click()

Dim Cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sName As String

Set Cn = New ADODB.Connection
Cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=d: est2.accdb;Persist Security Info=False"
Cn.ConnectionTimeout = 40

Set rs = New ADODB.Recordset

sName = Replace$(TextBox1.Text, "'", "''")
rs.Open "Select * from SampleTable where UserName = '" & sName & "'", Cn, adOpenForwardOnly, adLockReadOnly, adCmdText

If (rs.EOF) Then
MsgBox "no match"
TextBox3.Text = rs("UserName") & " " & rs("Location")


End If

Set rs = Nothing
Set Cn = Nothing

End Sub[/code]

That code was just to search and display in a textbox.

Now, I need to total the price of what all UserName field selected by the user from listbox. Can someone post a code similar to that?

Thanks You

Sign In or Register to comment.