Solved

VB SCRIPT connect to remote mySQL database

Posted on 2009-05-19
5
774 Views
Last Modified: 2012-05-07
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

Open in new window

0
Comment
Question by:Cerixus
  • 4
5 Comments
 
LVL 1

Author Comment

by:Cerixus
ID: 24426122
DSNless if possible...
0
 
LVL 1

Author Comment

by:Cerixus
ID: 24426389
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.
0
 
LVL 1

Author Comment

by:Cerixus
ID: 24426410
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"
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

Open in new window

0
 
LVL 3

Accepted Solution

by:
Cameron_S earned 500 total points
ID: 24426915
The only way I have been able to do it was via DSN, so you will need to download an ODBC DSN connector for it.

I also tried this website back in the day for connecting via mySQL within VBS: http://www.connectionstrings.com/mysql#31

Here is an article as well: http://www.visualbasicscript.com/m_36318/tm.htm

...and finally, this forum has some interesting posts: http://forums.nicelabel.com/viewtopic.php?t=886&sid=23c9ec945f5ac2985d4db7edb6e879e2
0
 
LVL 1

Author Comment

by:Cerixus
ID: 24426988
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.
0

Featured Post

Control application downtime with dependency maps

Visualize the interdependencies between application components better with Applications Manager's automated application discovery and dependency mapping feature. Resolve performance issues faster by quickly isolating problematic components.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Have information from one page show up on another 24 22
Insert with SET how to handle join 6 57
Parts and Products table schema in mysql 6 43
VBScript Issues 8 9
This script will sweep a range of IP addresses (class c only, 255.255.255.0) and report to a log the version of office installed. What it does: 1.)      Creates log file in the directory the script is run from (if it doesn't already exist) 2.)      Sweep…
Load balancing is the method of dividing the total amount of work performed by one computer between two or more computers. Its aim is to get more work done in the same amount of time, ensuring that all the users get served faster.
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Internet Business Fax to Email Made Easy - With  eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, f…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

16 Experts available now in Live!

Get 1:1 Help Now