by megahouse (1 Submission)
Category: Databases/Data Access/DAO/ADO
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sun 12th September 2004
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Connect to a database using VB6
API Declarations
' public variables for the server, database, user name and password
Public mServer as String
Public mDb As String
Public mUsr As String
Public mPwd As String
VBcoders
Private Sub Class_Initialize()
' initializing the class for the Server Name, Database name, user name and password for connection string
mDb = strDb
mServer= strServer
mUsr = strUserName
mPwd = strPwd
End Sub
Public Sub Connect()
Set Conn = New Connection
Conn.CursorLocation = adUseClient
' connection string for SQL Server, you will have to change only this connection ‘string for a different database
strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" + mUsr + ";" _
+ "Password=" + mPwd + ";Initial Catalog= " + mDb+ " ; Data Source=" + mServer + ""
Conn.Open strConn
End Function
' takes the query as a string and returns the opened recordset
Public Function GetRecordset (ByVal strQuery As String, rstResult As Recordset) As Boolean
Dim rst As New Recordset
Conn.CommandTimeout = 60
rst.Open strQuery, Conn, adOpenDynamic
If rst.RecordCount <= 0 Then
GetRecordset = False
Else
Set rstResult = rst
GetRecordset = True
End If
End Function
' takes the query as a string and returns the forward only recordset using Command Object
Public Sub GetInfo(strQuery As String, ByRef rst As ADODB.Recordset)
Dim oCommand As New ADODB.Command
Dim strCmd As String
' specify the connection
oCommand.ActiveConnection = Conn
' build the command
strCmd = strQuery
oCommand.CommandText = strCmd
oCommand.CommandTimeout = 60
' execute the command
Set rst = oCommand.Execute
End Function
' takes a update or delete query as string and updates the database
Public Sub UpdateIt(ByVal strQuery As String)
Dim oCommand As New ADODB.Command
Dim lngRecord As Long
Dim i As Integer
' specify the connection
oCommand.ActiveConnection = Conn
' prepare the sql command
oCommand.CommandText = strQuery
' execute the command
oCommand.Execute
End Function
Public Sub DisConnect()
Conn.Close ' close the connection
Set Conn = Nothing ' release the resources
End Sub
