How to use OLEDB in VB6.0

[mishra_sunil22]

Hello,

Currently I am using ADODB for connect with the database, and Recordset to add and update in database, i want to use OLEDB to interact with the database in VB6.0. How I can use OLEDB in VB6.0 for connection and updating the database from my Application. I do not want to use ADODB.

ADODB work with the help of OLDDB from the behind but this time i want to use it directly

Even i do not will it is possible or not.

Please help me out its very argent for me.

Thanks in advance.

[iagina]

I wish I had my VB installed but the system just crashed, here is some code to start you off.

Place this code in a module

Option Explicit

Public Cnn As ADODB.Connection
Public Rs As ADODB.Recordset
Public MyDbPath As String


Public Sub ConnectToDatabase()
Set Cn = New ADODB.Connection

Cnn.Provider = "Microsoft.Jet.OLEDB.4.0;Jet OLEDB"
CnnArt.Open (MyDbPath)
Set Rs = New ADODB.Recordset
Rs.Open "Login", Cnn, adOpenDynamic, adLockOptimistic, adCmdTable
'this should open a table named Login in the database
End Sub

Then you need to access a form, say a login to add more users, etc. To access the database table, use this code write this code in the form;

Form Load()
ConnectToDatabase

WITH rsLogin                             ' This is the login table
             '
              .AddNew                                       'Adds new data to the table
              !Password = txtPassword.Text    ' Password field in table
              !UserName = txtUserName.Text
              .Update
End WITH
End Sub

If it doesn't work then I missed a step somewhere in the form. A coleague will help, am sure.