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

Visual Basic 4 / 5 / 6 RSS

combolist data selecte with textbox relation

•

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

31 Days Ago

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; 31 Days Ago at 2:27 am.

•

Join Date: Jul 2008

Posts: 471

Reputation: abu taher is an unknown quantity at this point

Solved Threads: 24

abu taher

Offline

Posting Pro in Training

31 Days Ago

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: 248

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 35

AndreRet

Offline

Posting Whiz in Training

31 Days Ago

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

Please mark questions as answered when done.

Be the ONE!!!

Quick Reply to Thread

Show Printable Version

Other Threads in the Visual Basic 4 / 5 / 6 Forum

Previous Thread: related Combolist data in textbox from database
Next Thread: Checking if not a number help

Thread Tools	Search this Thread
Show Printable Version Email this Page

DaniWeb Message

Cancel Changes