MDB2 SQL Connection

[millanskie]

Hi,

do anybody knows how to connect in sql mdb2 in Visual Basic 6

I only know how to connect in php...

this is my sample connection in php....

#======================================#

$mdb2 = connectdb();

$sql = "SELECT <fieldname> FROM <tablename>"

$results = selquery($sql,$mdb2);

closedb($mdb2);

#======================================#

do anyone knows how to do it in Visual Basic 6....

Please help me....

[QVeen72]

Hi,

Create a ODBC for the database say MyODBC

And use this Connection String

Dim AdoCn As New ADODB.Connection

AdoCn.ConnectionString = "Provider=MSDASQL.1;Password=MyPassword;Persist Security Info=True;User ID=MyUserID;Data Source=MyODBC"
AdoCn.Open

Regards
Veena

[millanskie]

Thanks Veena for your answer I appreciate it very much... but can u give me a detailed code from opening a connection to closing a connection.... I'm really not good in database, I know this is too much.

Thanks anyway...

[QVeen72]

Hi,

Create a ODBC.
Add References to ur project "Microsoft ActiveX Data Objects 2.0 Library" (or any latest Version if u have)

In MDI Form Load :

Dim ad as ADODB.Connectionset ad=New ADODB.ConnectionLet ad.ConnectionString= "MyODBC;DSN=" & DatabaseName & ";UID=" & UserName & ";PWD=" & UserPasswordad.Open

To Get records from the Database use
dim ar as ADODB.recordsetset ar=new adodb.recordsetar.open "Select * From EmpMas Order By ENo"If Not (ar.EOF And ar.BOF) Thenar.MoveFirstdo while not ar.EOF Debug.Print ar("ENo") ar.movenextloopTo execute an SQL Statement :

ad.Execute "Update EmpMas Set EName ='MyName' Where ENo=1"

I Hope it is clear.

Regards
Veena

[QVeen72]

Sorry after posting i saw, it was not readable.

Create a ODBC.
Add References to ur project "Microsoft ActiveX Data Objects 2.0 Library" (or any latest Version if u have)

In MDI Form Load :

Dim ad as ADODB.Connection

set ad=New ADODB.Connection

Let ad.ConnectionString= "MyODBC;DSN=" & DatabaseName & ";UID=" & UserName & ";PWD=" & UserPassword

ad.Open

To Get records from the Database use

dim ar as ADODB.recordset

Set ar=new adodb.recordset

ar.open "Select * From EmpMas Order By ENo"

If Not (ar.EOF And ar.BOF) Then
ar.MoveFirst
do while not ar.EOF
Debug.Print ar("ENo")
ar.movenext
loop

End If

To execute an SQL Statement :

ad.Execute "Update EmpMas Set EName ='MyName' Where ENo=1"

I Hope it is clear.

Regards
Veena

[millanskie]

Hi,

Thanks a lot Veena, your code is working great...

Thanks for the help.

Regards,
Millan

[millanskie]

Hi,

Sorry I thought it was already running in sql connection, it was the other program using Microsoft Access is the one is running...

I'm still having a runtime error like this:

Runtime error '3709'

when I click debug it is pointing on

ar.Open "SELECT editorname FROM editormaster"

I dont know how to solve it.

Regards,
Millan

[QVeen72]

Hi,

Sorry, u have to give connection name also

ar.Open "SELECT editorname FROM editormaster", ad

Hope this will work

Regards
Veena

[millanskie]

Hi Veena,

Thanks for the help, its really working now surely...

Thank You very much Veena.

Regards,
Millan