getting records on the basis of combo box

Expand Post »

Can anybody tell me.How should i get value on the basis of combo box.i simple want when user click one of the productname from the combo box other corresponding fields from the database should come in the text box of the form.Here is the code what i have written.kindly help me.any help would be greately appreciated.right
now i am getting runtime error 3709.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
Private Sub Combo3_Click()
If Combo3.Text <> "" Then
Set rs = New ADODB.Recordset
rs.Open "select materials.unit from Materials Where Materials.productname=" & Combo3.Text & ", con,adopendynamic,adlockoptimistic"
TxtUnit.Text = rs!Unit
End If
End Sub
Private Sub Combo3_Click()
If Combo3.Text <> "" Then
Set rs = New ADODB.Recordset
rs.Open "select materials.unit from Materials Where Materials.productname=" & Combo3.Text & ", con,adopendynamic,adlockoptimistic"
TxtUnit.Text = rs!Unit
End If
End Sub

Similar Threads

Issue about passing parameter to Crystal Report 11.. in Visual Basic 4 / 5 / 6

firoz.raj

Reputation Points: 7

Solved Threads: 1

Posting Pro in Training

Offline

415 posts
since Dec 2008

Permalink

Apr 28th, 2009

Re: getting records on the basis of combo box

Hi,

If Product Name is String, then Wrap it with Single Quotes :
Try This :

vb Syntax (Toggle Plain Text)
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.Open "select materials.unit from Materials Where Materials.productname='" & Combo3.Text & "'",  Con
' Rest of Coding Remains Same
'
Set rs = Nothing
Set rs = New ADODB.Recordset
rs.Open "select materials.unit from Materials Where Materials.productname='" & Combo3.Text & "'",  Con
' Rest of Coding Remains Same
'

Regards
Veena

QVeen72

Reputation Points: 84

Solved Threads: 140

Posting Shark

Offline

923 posts
since Nov 2006

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Mcrypt_cbc with TripleDES for vb6

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: I am finding command addfont into registry of windows

DaniWeb Message

Cancel Changes

User Name
Password