MySQL Connection Question

[Phreak]

Ok, so I can connect to my database with the following code:

 

UID = txtUsername.Text

Pass = txtPass.Text

ServIP = txtHost.Text

DBName = txtDB.Text

ConPort = txtConPort.Text

 

conn = CreateObject("ADODB.Connection")

rs = CreateObject("ADODB.RecordSet")

 

conn.Open("Driver={MySQL};" & _

"Server=" & ServIP & ";" & _

"Port=" & ConPort & ";" & _

"Option=131072;" & _

"Stmt=;" & _

"Database=" & DBName & ";" & _

"Uid=" & UID & ";" & _

"Pwd=" & Pass & ";")

 

This is all done on an initial "Login" form, and once there is a connection detected, I want it to go away and the main form to be displayed. Is there anyway to tell when the connection is made and if so, a way to pass the connection to the main form? Or can I not use persistant connections?

[dcl3500]

You can declare your connection object as public in a module and then use it from there in code anywhere in your program. Just be sure to close it when you exit the app.

[Phreak]

But is there a way to tell once it is connected?

 

Like

 

If conn.Open = True Then

'do this stuff

EndIf

 

 

(or something like that, i know it's probably not the right syntax, but i hope you get the idea)

[dcl3500]

Like this:

 

'cnn is the connection object
If cnn.State = adStateOpen Then
   cnn.Close
   Set cnn = Nothing
End If

 

[edit]Sorry that is code I use to test whether it is open so I can close it, but you see the usage.[/edit]

[Guest emad]

you can use the ConnectComplete event.

but before this you have to declare your Conn object as:

dim WithEvents Conn as adodb.connection

then use the new keyword not the createobject.

[Phreak]

I'm using .NET... does that matter? Because it seems to not like any of the suggestions you guys are given me.....

[dcl3500]

Yeah the .net makes a bit of a difference. Haven't tinkered much with .net yet....

[Derek Stone]

Urgh. There are so many things wrong with that code. :)

 

For starters you're using ADO. That's a no no. Secondly, you're late binding, also a no no. Thirdly, cut down on the use of "_"

s. You'll save yourself coding time.

 

Try ADO.NET and early binding. Search this board for a few examples.