DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

combolist data selecte with textbox relation

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Oct 2009

Posts: 2

Reputation: Salman Attari is an unknown quantity at this point

Solved Threads: 0

Salman Attari Salman Attari is offline

Offline

Newbie Poster

combolist data selecte with textbox relation

Oct 31st, 2009

I have one combo box “cboitemname” and one text box “itemcode” in vb6 form,I have a table “stock” in sql server 2000 database where data about item name and its code is present, in rutime I want to disply item code of item that I select from combolist, how should I do this?

Last edited by Salman Attari; Oct 31st, 2009 at 2:27 am.

•

Join Date: Jul 2008

Posts: 487

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 25

abu taher

Offline

Posting Pro in Training

Oct 31st, 2009

I think you get idea from it.

Attached Files

data show in combobox.zip (13.4 KB, 2 views)

I like sword. Attack or Defense.

•

Join Date: Jan 2008

Posts: 255

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 38

AndreRet

Offline

Posting Whiz in Training

Oct 31st, 2009

As follows -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Set rsItemName = New ADODB.Recordset
 
    rsItemName.Open "......", cnItemNAme, adOpenStatic, adLockOptimistic 'Where open is your connection string
 
    If rsItemName.BOF = True Then
        Exit Sub
    ElseIf rsItemName.EOF = True Then
        Exit Sub
            Else
    Do While rsItemName.EOF = False
        cmbItemName.AddItem rsItemName("ItemCode") 'ItemCode is the name of your field
      rsItemName.MoveNext
    Loop
 End If
Set rsItemName = New ADODB.Recordset

    rsItemName.Open "......", cnItemNAme, adOpenStatic, adLockOptimistic 'Where open is your connection string
   
    If rsItemName.BOF = True Then
        Exit Sub
    ElseIf rsItemName.EOF = True Then
        Exit Sub
            Else
    Do While rsItemName.EOF = False
        cmbItemName.AddItem rsItemName("ItemCode") 'ItemCode is the name of your field
      rsItemName.MoveNext
    Loop
 End If