Re: MS SQL with vb 6

[Steven Tong]

Dim gConn As ADODB.Connection
Dim strConnString As String
Dim rsData As ADODB.Recordset
Dim ConnectString as String
ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=test;" _
& "UID=root;" _
& "PWD=;"
Set gConn = New ADODB.Connection
gConn.ConnectionTimeout = 60
gConn.CommandTimeout = 400
gConn.CursorLocation = adUseClient
gConn.Open ConnectString

strConnString="Select * From WOODRANGE "
Set glbConn = New ADODB.Connection
glbConn.Open strConnString, gConn, adOpenStatic, adLockOptimistic, adCmdText

' after that you can use .update(), .addnew() and other cursor movement