How to connect to mySQL data base from my pc

[Sigurd Friisvold]

Hi!

I've got an VisualBasic application that I want to connect to an mySql
database over det Internett, how do I do this? My app. is going to insert
data into my mySql database on the server to where I'm hosting my Website.
Must my webhost have to install ODBC on the mySql database?

Regards, Sigurd!

[Andy Hassall]

On Fri, 6 Feb 2004 20:25:10 +0100, "Sigurd Friisvold" <si****@friisdata.com>
wrote:

I've got an VisualBasic application

Why are you posting to a PHP newsgroup?

Try one of the microsoft.public.* groups.

--
Andy Hassall <an**@andyh.co.uk> / Space: disk usage analysis tool
<http://www.andyh.co.uk> / <http://www.andyhsoftware.co.uk/space>

[Jasper]

MySQL provide a windows ODBC driver on their website www.mysql.com. You can
then connect to the database via that ODBC driver using ADO, there are some
code examples on www.planetsourcecode.com.

Hope this helps.

Jasper.

[Jasper]

Here's some code I wrote recently that might help you do the job. Replace
addresses, usernames and passwords with your own server and add latest ADO
library as a reference in VB project. This one checks that a username and
password exists/is correct.

---------------------------------------------------------

Public REMDBOBJ As ADODB.Connection 'Remote Connection To ADODB.
Public REMRSOBJ As ADODB.Recordset 'Holds Remote Records.

Public Sub ConnectRemDB()
' This Function Connects To The Remote SQL Database.

'Creates A New Connection Object.
Set REMDBOBJ = New ADODB.Connection

'Creates A New Recordset Object.
Set REMRSOBJ = New ADODB.Recordset

' Sets Location Of Cursor Services To Clientside.
REMRSOBJ.CursorLocation = adUseClient
REMDBOBJ.CursorLocation = adUseClient

' Opens Connection To Mobdecs Local Database.
REMDBOBJ.Open "Driver={MySQL ODBC 3.51
Driver};server=sql.address.com;uid=userhere;pwd=pa sshere;database=dbhere"

' Authenticate User.
REMDBSQL = "SELECT * FROM Users WHERE `Username`='" &
Main.TXTUsername.Text & "'"
REMRSOBJ.Open REMDBSQL, REMDBOBJ, adOpenKeyset, adLockPessimistic

' Check Username/Password
If REMRSOBJ.RecordCount = "0" Then
Call MsgBox("Your Username Was Not Found.", vbOKOnly,
"Authentication Error")
ElseIf REMRSOBJ!Password <> Main.TXTPassword.Text Then
Call MsgBox("Your Password Was Not Accepted.", vbOKOnly,
"Authentication Error")
Else
' Do Something If Autenticated.
End If

' Close Record Set.
REMRSOBJ.Close

' Destroy Objects.
Set REMRSOBJ = Nothing
Set REMDBOBJ = Nothing

End Sub

-----------------------------------------------------

Regards, Jasper