I know it can be done, but I have no clue where to start. I need to pull data
from several mySQL DB's into Excel. Can anyone point me in the right
direction?

Google this: excel vba connect to mysql db

"neu2me" wrote:

I know it can be done, but I have no clue where to start. I need to pull data
from several mySQL DB's into Excel. Can anyone point me in the right
direction?

All I'm seeing requires me to install drivers on the machines that will use
the eventual app... is there a way around that?

"Mike" wrote:

Google this: excel vba connect to mysql db

"neu2me" wrote:

I know it can be done, but I have no clue where to start. I need to pull data
from several mySQL DB's into Excel. Can anyone point me in the right
direction?

Try this
'declare the variables
Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL

'declare the SQL statement that will query the database
SQL = "SELECT * FROM TABLE_NAME"

'define the connection string, specify database driver
ConnectionString= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost;
DATABASE=Your_Mysql_DB; " &_
"UID=mysql_username;PASSWORD=mysql_password; OPTION=3"

'create an instance of the ADO connection and recordset objects
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")

'Open the connection to the database
Connection.Open ConnectionString

'Open the recordset object executing the SQL statement and return records
Recordset.Open SQL,Connection

'first of all determine whether there are any records
If Recordset.EOF Then
Response.Write("No records returned.")
Else
'if there are records then loop through the fields
Do While NOT Recordset.Eof
Response.write Recordset("FIRST_FIELD_NAME")
Response.write Recordset("SECOND_FIELD_NAME")
Response.write Recordset("THIRD_FIELD_NAME")
Response.write "<br"
Recordset.MoveNext
Loop
End If

'close the connection and recordset objects freeing up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing

"neu2me" wrote:

All I'm seeing requires me to install drivers on the machines that will use
the eventual app... is there a way around that?

"Mike" wrote:

Google this: excel vba connect to mysql db

"neu2me" wrote:

I know it can be done, but I have no clue where to start. I need to pull data
from several mySQL DB's into Excel. Can anyone point me in the right
direction?

"neu2me" wrote in message
...
All I'm seeing requires me to install drivers on the machines that will
use
the eventual app... is there a way around that?


You could host the SQL querying on a web server, creating a "web service"
which could be used to pull the data. That way you only have to install the
drivers on the server.

Tim



"Mike" wrote:

Google this: excel vba connect to mysql db

"neu2me" wrote:

I know it can be done, but I have no clue where to start. I need to
pull data
from several mySQL DB's into Excel. Can anyone point me in the right
direction?

Are there any specfic references I'll need in order to use this code?

"Mike" wrote:

Try this
'declare the variables
Dim Connection
Dim ConnectionString
Dim Recordset
Dim SQL

'declare the SQL statement that will query the database
SQL = "SELECT * FROM TABLE_NAME"

'define the connection string, specify database driver
ConnectionString= "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost;
DATABASE=Your_Mysql_DB; " &_
"UID=mysql_username;PASSWORD=mysql_password; OPTION=3"

'create an instance of the ADO connection and recordset objects
Set Connection = Server.CreateObject("ADODB.Connection")
Set Recordset = Server.CreateObject("ADODB.Recordset")

'Open the connection to the database
Connection.Open ConnectionString

'Open the recordset object executing the SQL statement and return records
Recordset.Open SQL,Connection

'first of all determine whether there are any records
If Recordset.EOF Then
Response.Write("No records returned.")
Else
'if there are records then loop through the fields
Do While NOT Recordset.Eof
Response.write Recordset("FIRST_FIELD_NAME")
Response.write Recordset("SECOND_FIELD_NAME")
Response.write Recordset("THIRD_FIELD_NAME")
Response.write "<br"
Recordset.MoveNext
Loop
End If

'close the connection and recordset objects freeing up resources
Recordset.Close
Set Recordset=nothing
Connection.Close
Set Connection=nothing

"neu2me" wrote:

All I'm seeing requires me to install drivers on the machines that will use
the eventual app... is there a way around that?

"Mike" wrote:

Google this: excel vba connect to mysql db

"neu2me" wrote:

I know it can be done, but I have no clue where to start. I need to pull data
from several mySQL DB's into Excel. Can anyone point me in the right
direction?