Cerixus
asked on
VB SCRIPT connect to remote mySQL database
Okay, I have the attached code which connects to a MSSQL server. What I want, if possible, is the most similar code I can that will connect to a mySQL server. I would like the syntax to be as similar as possible.
Dim cConnection
Set cConnection = CreateObject("ADODB.Connection")
DBConString = "Provider=SQLOLEDB.1;Data Source=servername;Initial Catalog=Portal_Test"
cConnection.Open DBConString,"username","password"
SQLstmt = "SELECT ServerName, Notes from ServerData"
Set RS = cConnection.Execute(SQLstmt)
Do While (not RS.EOF) and (intCount < 5)
'msgbox RS.Fields("ServerName").value
intCount = intCount + 1
RS.movenext
Loop
ASKER
okay forget it, I'll settle for ANYTHING that will connect to a mySQL database on a REMOTE server using VB Script, NOT ASP or asp.net. I'm talking a .vbs file.
ASKER
Right now this is what I have, but I keep getting the error:
"[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"
"[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified"
set mycon = CreateObject("ADODB.Recordset")
mycon.ActiveConnection = "dsn=ServerName;uid=username;pwd=password;"
mycon.Source = "SELECT ServerName FROM serverteam.servers"
mycon.CursorType = 0
mycon.CursorLocation = 2
mycon.LockType = 3
mycon.Open()
mycon_numRows = 0
Do while (not mycon.eof) and (intCount < 5)
msgbox mycon("ServerName")
mycon.movenext
Loop
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
Yeah, I came across all three of those links in my searches, but still had no luck. I went ahead and just ran it locally form the server with the mysql database. It's just a one (or two) time script to export everything to a MSSQL server anyway, so I guess I won't worry about it.
Thanks.
Thanks.
ASKER