\r\n\r\n
Go Back  Xtreme Visual Basic Talk > Legacy Visual Basic (VB 4/5/6) > Database and Reporting > Combobox help read data


\r\n \r\n
 
 
Thread Tools Display Modes

\r\n\r\n\r\n
Hi
\r\n
\r\nI use this code to call data into combobox
\r\nI use 4 combobox and read from Table1 / Table2 3 and 4
\r\n
\r\nIs it poseble to chance this code so I only need to write only 1
\r\n
\r\nand call combofill ??? to read from difrent table and record?
\r\n
\r\nDim Rcordset As ADODB.Recordset
\r\n
\r\n
\r\n Set Rcordset = New ADODB.Recordset
\r\n strSQL = "SELECT * FROM starfsmenn;"
\r\n Rcordset.Open strSQL, conTree, adOpenStatic, adLockOptimistic
\r\n
\r\nWith Rcordset \'Either ADO or DAO
\r\n Do While Not .EOF
\r\n txtdeild.AddItem Rcordset.Fields("deildir").Value \'String varible
\r\n txtdeild.ItemData(txtdeild.NewIndex) = .Fields("ID").Value \'Numeric varible
\r\n .MoveNext
\r\n Loop
\r\nEnd With
\r\n \r\n\r\n
\r\n \r\n\r\n \r\n \r\n\r\n \r\n\r\n \r\n\r\n \r\n\r\n
\r\n \r\n \r\n \r\n \r\n Reply With Quote\r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n \r\n
\r\n\r\n \r\n\r\n
\r\n\r\n\r\n\r\n\r\n\r\n\r\n\r\n \r\n \r\n \r\n \r\n\r\n\r\n\r\n\r\n'; pd[155333] = '\r\n\r\n \r\n\r\n
\r\n
\r\n
\r\n\r\n
\r\n \r\n\r\n\r\n\r\n\r\n\r\n \r\n\r\n\r\n\r\n \r\n
\r\n
\r\n  \r\n #2  \r\n \r\n \r\n \r\n \r\n \r\n
\r\n\r\n
\r\n \r\n Old\r\n \r\n 07-05-2002, 01:04 PM\r\n \r\n \r\n \r\n
\r\n
\r\n \r\n \r\n \r\n \r\n \r\n
\r\n\r\n
\r\n \r\n Thinker\r\n Thinker is offline\r\n\r\n\r\n
Prev Previous Post   Next Post Next
  #1  
Old 07-05-2002, 12:43 PM
ssalomon
Guest
 
Posts: n/a
Default Combobox help read data


Hi

I use this code to call data into combobox
I use 4 combobox and read from Table1 / Table2 3 and 4

Is it poseble to chance this code so I only need to write only 1

and call combofill ??? to read from difrent table and record?

Dim Rcordset As ADODB.Recordset


Set Rcordset = New ADODB.Recordset
strSQL = "SELECT * FROM starfsmenn;"
Rcordset.Open strSQL, conTree, adOpenStatic, adLockOptimistic

With Rcordset 'Either ADO or DAO
Do While Not .EOF
txtdeild.AddItem Rcordset.Fields("deildir").Value 'String varible
txtdeild.ItemData(txtdeild.NewIndex) = .Fields("ID").Value 'Numeric varible
.MoveNext
Loop
End With
Reply With Quote
 


Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
 
Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off

Forum Jump

Advertisement:





Free Publications
The ASP.NET 2.0 Anthology
101 Essential Tips, Tricks & Hacks - Free 156 Page Preview. Learn the most practical features and best approaches for ASP.NET.
subscribe
Programmers Heaven C# School Book -Free 338 Page eBook
The Programmers Heaven C# School book covers the .NET framework and the C# language.
subscribe
Build Your Own ASP.NET 3.5 Web Site Using C# & VB, 3rd Edition - Free 219 Page Preview!
This comprehensive step-by-step guide will help get your database-driven ASP.NET web site up and running in no time..
subscribe
 
 
-->