I am trying to load data from Excel to MySQL. In PHP everything works fine , but in VB I get error 8000ffff,
"Catastrophic failure".

Sub XLtoMYSQL()
Dim ConnectMySQL As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
ConnectMySQL = _
"DRIVER={Mysql ODBC 3.51 Driver};" & _
"SERVER=myISPIP;DATABASE=myDatabase;" & _
"UID=myUsername;PWD=myPassword"
conn.Open ConnectMySQL
End Sub

I spent all day trying to figure this out.
Any ideas?

Flemming

Hi Flemse

Have you referenced the library?? If Not.

To use ADO objects in an application add a reference
to the ADO component. From the VBA window select
Tools/References< check the box
"Microsoft ActiveX Data Objects 2.x Library"

Good Luck
TK



"Flemse" wrote:

I am trying to load data from Excel to MySQL. In PHP everything works fine , but in VB I get error 8000ffff,
"Catastrophic failure".

Sub XLtoMYSQL()
Dim ConnectMySQL As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
ConnectMySQL = _
"DRIVER={Mysql ODBC 3.51 Driver};" & _
"SERVER=myISPIP;DATABASE=myDatabase;" & _
"UID=myUsername;PWD=myPassword"
conn.Open ConnectMySQL
End Sub

I spent all day trying to figure this out.
Any ideas?

Flemming

I am trying to load data from Excel to MySQL. In PHP everything
works fine , but in VB I get error 8000ffff,
"Catastrophic failure".

suggest the OP googles it e.g.

http://www.google.com/search?tab=gw&...l%20ado&hl=en&
Jamie.

--

OK, it appears to be a problem with myODBC 3.51.10.
They are working on a fix, untill then using driver 3.51.9 seems to solve the problem.

Flemse

On Mon, 10 Jan 2005 16:00:45 -0500, Flemse < wrote:

I am trying to load data from Excel to MySQL. In PHP everything works fine , but in VB I get error 8000ffff,
"Catastrophic failure".

Sub XLtoMYSQL()
Dim ConnectMySQL As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Set conn = CreateObject("ADODB.Connection")
ConnectMySQL = _
"DRIVER={Mysql ODBC 3.51 Driver};" & _
"SERVER=myISPIP;DATABASE=myDatabase;" & _
"UID=myUsername;PWD=myPassword"
conn.Open ConnectMySQL
End Sub

I spent all day trying to figure this out.
Any ideas?

Flemming