VB/mySQL code
Thread Starter
Scooby Regular
Joined: Apr 2002
Posts: 9,196
Likes: 0
From: Birmingham
Moving my project (custom HelpDesk) over to MySQL server from MSSQL to allow us to expand our intranet facilities.
Got the code off the MySQL site, installed drivers but it wont fecking work.
Code off their site (with our server ip/pass etc/database name) is:
----
Dim ws As Workspace
Dim conn As Connection
Dim queryDef As queryDef
Dim str As String
'connect to MySQL using MySQL ODBC 3.51 Driver
Set ws = DBEngine.CreateWorkspace("", "sa", "sa", dbUseODBC)
str = "odbc;DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=94.0.0.205;" _
& " DATABASE=PremDesk;" _
& "UID=sa;PWD=sa; OPTION=3"
Set conn = ws.OpenConnection("test", dbDriverNoPrompt, False, str)
------
Andy
[Edited by SiDHEaD - 10/31/2003 11:43:43 AM]
Got the code off the MySQL site, installed drivers but it wont fecking work.
Code off their site (with our server ip/pass etc/database name) is:
----
Dim ws As Workspace
Dim conn As Connection
Dim queryDef As queryDef
Dim str As String
'connect to MySQL using MySQL ODBC 3.51 Driver
Set ws = DBEngine.CreateWorkspace("", "sa", "sa", dbUseODBC)
str = "odbc;DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=94.0.0.205;" _
& " DATABASE=PremDesk;" _
& "UID=sa;PWD=sa; OPTION=3"
Set conn = ws.OpenConnection("test", dbDriverNoPrompt, False, str)
------
Andy
[Edited by SiDHEaD - 10/31/2003 11:43:43 AM]
, yeh i 'spose...
Trending Topics
Thread
Thread Starter
Forum
Replies
Last Post
Mattybr5@MB Developments
Full Cars Breaking For Spares
28
Dec 28, 2015 11:07 PM
Mattybr5@MB Developments
Full Cars Breaking For Spares
12
Nov 18, 2015 07:03 AM