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....

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

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...

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

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

Hi,

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

Thanks for the help.



Regards,
Millan

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

I dont know how to solve it.



Regards,
Millan

Hi,

Sorry, u have to give connection name also

ar.Open "SELECT editorname FROM editormaster", ad

Hope this will work

Regards
Veena

Hi Veena,

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


Thank You very much Veena.



Regards,
Millan