DATABOUND COMBO BOX

[rry2k]

Hi,

Is there a way to make a databound combo box the driver instead of an adodc control? I want to present a list to be selected from then have textboxes updated with there respective field info.

Thanks..Russ

 

[woyler]

with the On_Click event of your combo box set your criteria and query the database.

dim sMyCriteria as string
dim sSQL as string
dim cn as adodb.connection
dim rs as adodb.recordsset


set rs = createobject("adodb.recordset&quot
set cn = createobject("adodb.connection&quot

cn.connectionstring = "YourConnectionStringInfo"
cn.open

sMyCriteria = cboCombo.Text
ssql = "SELECT * FROM TABLE WHERE FIELD='" & sMyCriteria & "'"

rs.open sSQL,cn,adOpenDynamic, adlockOptimistic, adCmdText And adExecuteNoRecords
text1.text = rs("Field1&quot
text2.text = rs("Field2&quot
text3.text = rs("Field3&quot
rs.close
set rs = nothing

 

[rry2k]

This looks like your right on track but when I try to run this I get an undefined user type on:
dim cn as adodb.connection

 

[woyler]

Go to your project menu, and select references. Then scroll down until you see Microsoft ActiveX data objects 2.x and check it.

 

[rry2k]

Sorry to bother you so much with this. I tried 2.0,2.1 and 2.5 and I still get the same error.

Thanks for hanging in there.

 

[woyler]

When you type: "dim cn as" then hit the spacebar, VB intelisense should pop up. Do you see "ADODB" as an option? If you do, select it, then '.' then connection.

 

[rry2k]

It's not there. Somehow the reference isn't getting set.

 

[woyler]

And you are sure that you are going to the project menu, selecting references, and checking Microsoft ActiveX data objects 2.x and hitting the OK button?

 

[rry2k]

Now that part is working thanks. Now I get a datasource name not found and no driver specified ??

 

[woyler]

you have to set up your connection string so that your VB app can connect to and 'talk' to your database. What kind of database are you going to use(access, oracle,sqlserver)?

 

[rry2k]

I'm using access and I'm using a db as a test that I created for another app

 

[woyler]

Do this:

Dim sDatabasePath as string

'where it says TypeYourPathHere, enter the path to
'your database. ie: C:\MyStuff\MyAccess.mdb
cn.connectionstring = "Driver={Microsoft Access Driver (*.mdb)};Dbq=TypeYourPathHere;Uid=Admin;Pwd=;"

cn.open

 

[woyler]

sorry, forget the Dim sDatabasePath part

 

[rry2k]

Private Sub DBCombo1_Click(Area As Integer)
Dim sMyCriteria As String
Dim sSQL As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sDatabasePath As String

Set cn = CreateObject("adodb.connection&quot
Set rs = CreateObject("adodb.recordset&quot
cn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=f:\db1.mdb;Uid=Admin;Pwd=;"
cn.Open

rs.Open sSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText And adExecuteNoRecords
This is where we are.
command text not set for the command object.
Again I really appreciate your help and patient.
whether we get this or not you will get my vote.

sMyCriteria = DBCombo1.Text
sSQL = "SELECT * FROM EMPLOYEES WHERE FIELD='" & sMyCriteria & "'"


Text1.Text = rs("Name&quot
Text2.Text = rs("Title&quot
Text3.Text = rs("Department&quot
rs.Close
Set rs = Nothing
End Sub

 

[woyler]

looks good. Just replace 'FIELD' in your SQl statement with whatever field you want to search on.

 

[rry2k]

did that and still got the same