Hi all, hope someone can help me!
I cannot get a connection to this MySql database for the life of me I have tried everything.
this is where im at at the moment http://itc.virginia.edu/desktop/web/mysql/msaccess.html. ip, port and credentials are all good but I keep getting the 'Connection Failed: Cant connect to kayla1 on blabla"
Anyone have a clue? Wrong driver maybe??
What im working with:
* trying to link Access tables to a mysql database
* .mdb
* MySql ODBC 5.1 64bit driver
* msjet dll file fix
* access 03 & 07 connections failed. including using named pipes instead of tcp/ip
get a different error when trying to connect in VBA using a different driver.
Code:
Result: Error [ODBC Driver Manager] Data source name not found and no default driver specified
Please help me if u can, Im stumped. I have installed other mysql drivers but no luck. Only Mysql ODBC 5.1 shows up on the connection screen in Access
i just need to remote host this back end
:*(
I cannot get a connection to this MySql database for the life of me I have tried everything.
this is where im at at the moment http://itc.virginia.edu/desktop/web/mysql/msaccess.html. ip, port and credentials are all good but I keep getting the 'Connection Failed: Cant connect to kayla1 on blabla"
Anyone have a clue? Wrong driver maybe??
What im working with:
* trying to link Access tables to a mysql database
* .mdb
* MySql ODBC 5.1 64bit driver
* msjet dll file fix
* access 03 & 07 connections failed. including using named pipes instead of tcp/ip
get a different error when trying to connect in VBA using a different driver.
Code:
Code:
Dim strDataBaseName As String
Dim strDBCursorType As String
Dim strDBLockType As String
Dim strDBOptions As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Private Sub Command1_Click()
On Error GoTo Command1_Click_Error
Dim b as Long
strDBCursorType = adOpenDynamic 'CursorType
strDBLockType = adLockOptimistic 'LockType
strDBOptions = adCmdText 'Options
Set cn = New ADODB.Connection
cn.Open ConnectString()
With cn
.CommandTimeout = 0
.CursorLocation = adUseClient
End With
Set rs = New ADODB.Recordset 'Creates record set
strSQL = "SELECT * FROM clientLeads"
rs.Open strSQL, cn, strDBCursorType, strDBLockType, strDBOptions
if rs.Eof then
Goto ExitSub
else
For b = 0 To rs.RecordCount -1
'docmd.openform ""
Next b
end if
ExitSub:
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
On Error GoTo 0
Exit Sub
Command1_Click_Error:
MsgBox "Error " & Err.Number & " " & Err.Description
End Sub
Private Function ConnectString() As String
Dim strServerName as String
Dim strDatabaseName as string
Dim strUserName as string
Dim strPassword as string
strServerName = "72.167.233.58"
strDatabaseName = "kayla1"
strUserName = "kayla1"
strPassword ="*******"
ConnectString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=" & strServerName & _
";DATABASE=" & strDatabaseName & ";" & _
"USER=" & strUserName & _
";PASSWORD=" & strPassword & _
";OPTION=3;"
End Function
Result: Error [ODBC Driver Manager] Data source name not found and no default driver specified
Please help me if u can, Im stumped. I have installed other mysql drivers but no luck. Only Mysql ODBC 5.1 shows up on the connection screen in Access
i just need to remote host this back end
:*(
Last edited: