connect to ODBC from VB

[myasin78]

I am currently working on VB6.0 application that uses MS Jet to connect to Access DB. I need to be modify the code in order to make it talk to ODBC DB in stead, could someone send me a sample code please.
this is the current code that i have to modify.

Public Function GetDBConn() As String
Dim buffer As String
buffer = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = "
buffer = buffer + gNetFromPath + "AutoWeighData2.mdb;"
GetDBConn = buffer

End Function

I thank you all in advance.

 

[zemp]

If the computer has a system DSN setup correctly (call it 'MyDSN') then all you need is the following,

Public Function GetDBConn() As String
Dim buffer As String
buffer = "DSN=MyDSN"
GetDBConn = buffer
    
End Function

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[myasin78]

I will let you know when i get it to work, thanks again.

myasin

 

[zemp]

I mave have steered you wrong. I falsely assumed you were using ADO. If you are not then the information I gave you may not be at all helpful.

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[myasin78]

I am a perl,tcl/tk,c++,html,sql programmer not very good with VB.
I just had to modify a projec that someone else wrote.

could you tell me how would i found out what I am using exactly.

thanks.

 

[myasin78]

will this indicate that I am using ADO?

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rst As New ADODB.Recordset

 

[zemp]

You can check the project references. In the IDE go to the 'project' menu and select 'references' (near the bottom) and see which data objects you are using. If you see something like 'Microsoft ActiveX Data Objects...' then you are using ADO.

You can also check the variable declarations, if it says 'ADODB...' then you are using ADO.

Other wise post the code where that connection is opened and we can probably tell you which you are using.

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[myasin78]

I am using ADO, so i will test you code sortly.
thanks alot.