VB/mySQL code
#1
Scooby Regular
Thread Starter
Join Date: Apr 2002
Location: Birmingham
Posts: 9,196
Likes: 0
Received 0 Likes
on
0 Posts
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]
Trending Topics
Thread
Thread Starter
Forum
Replies
Last Post
Mattybr5@MB Developments
Full Cars Breaking For Spares
28
28 December 2015 11:07 PM
Mattybr5@MB Developments
Full Cars Breaking For Spares
12
18 November 2015 07:03 AM
Sam Witwicky
Engine Management and ECU Remapping
17
13 November 2015 10:49 AM