; Function:	MySQLODBC()
;
; Author:		Martijn (martijn@raceeend.com)
;
; Version:	1.0
;
; Action:		- Checks if MyODBC is installed. If not it will be installed.
;			- Creates a ODBC connection to MySQL
;
; Syntax:		$ADOdb = MySQLODBC($DataSourceName, $Description, $Option, $SourcePath, Optional $DBName,
 
Optional $Pwd, Optional $Port, Optional $Server, Optional $Stmt, Optional $user)
;
; Parameters:
; Required
;	$DataSourceName:	Data Source Name of the connection
;	$Description:		Description of Data Source Name
;	$Option:		Used to select options which have affect on the drivers behaviours
;	$SourcePath:		Path where MyODBC files are located
; Optional
;	$DBName:		Database to connect to
;	$Pwd:			Password of database
;	$Port:			TCP Port used by MySQL
;	$Server:		IpAdress of MySQL server
;	$Stmt:			SQL statement which executes on connection
;	$user:			User which connects to database
;
; Dependencies: MyODBC files myodbc3.dll, myodbc3d.dll, my3dsn.hlp. Oh and a MySQL server http://mysql.com
;
; Remarks:	Tested on Win2k with Kix 4.12
;
; Example:	$DataSourceName = "MySQL-ADODB"
;			$Description = "MySQL ADODB connection"
;			$Option = "3"  				;Default MySQL option
;			$Server = "10.0.0.1"
;			$SourcePath = "\\server\share\"
;
;			$ADOdb = MySQLODBC($DataSourceName, $Description, $Option, $SourcePath,,,, $Server,,)

Function MySQLODBC($DSN, $Description, $Option, $SourcePath, Optional $DBName, Optional $Pwd, Optional $Port, Optional $Server, Optional $Stmt, Optional $user)
	Dim $ConnKey
	Dim $Driver
	Dim $RegKey
	
	$ConnKey = "HKCU\Software\ODBC\ODBC.INI\"
	$Driver = "%windir%\System32\myodbc3.dll"
	$RegKey = "HKLM\Software\ODBC\ODBCINST.INI\MySQL ODBC 3.51 Driver"
	
	If NOT Exist("%windir%\system32\myodbc3.dll")
		Copy $SourcePath+"myodbc3.dll" "%windir%\system32\myodbc3.dll"
	EndIf
	If NOT Exist("%windir%\help\my3dsn.hlp")
		Copy $SourcePath+"my3dsn.hlp" "%windir%\help\my3dsn.hlp"
	EndIf
	If NOT Exist("%windir%\system32\myodbc3d.dll")
		Copy $SourcePath+"myodbc3d.dll" "%windir%\system32\myodbc3d.dll"
	EndIf
	IF ReadValue("HKLM\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers","MySQL ODBC 3.51 Driver")<>"Installed"
		$x=WriteValue("HKLM\SOFTWARE\ODBC\ODBCINST.INI\ODBC Drivers","MySQL ODBC 3.51 Driver","Installed","REG_SZ")
	EndIf
	IF ReadValue($RegKey,"UsageCount")<>12
		$x=WriteValue($RegKey,"UsageCount",12,"REG_DWORD")
	EndIf
	IF ReadValue($RegKey,"Driver")<>"%windir%\System32\myodbc3.dll"
		$x=WriteValue($RegKey,"Driver","%windir%\System32\myodbc3.dll","REG_SZ")
	EndIf
	IF ReadValue($RegKey,"Setup")<>"%windir%\System32\myodbc3.dll"
		$x=WriteValue($RegKey,"Setup","%windir%\System32\myodbc3.dll","REG_SZ")
	EndIf
	IF ReadValue($RegKey,"APILevel")<>2
		$x=WriteValue($RegKey,"APILevel",2,"REG_SZ")
	EndIf
	IF ReadValue($RegKey,"ConnectFunctions")<>"YYN"
		$x=WriteValue($RegKey,"ConnectFunctions","YYN","REG_SZ")
	EndIf
	IF ReadValue($RegKey,"DriverODBCVer")<>"03.51"
		$x=WriteValue($RegKey,"DriverODBCVer","03.51","REG_SZ")
	EndIf
	IF ReadValue($RegKey,"FileUsage")<>0
		$x=WriteValue($RegKey,"FileUsage",0,"REG_SZ")
	EndIf
	IF ReadValue($RegKey,"FileExtns")<>"*.txt"
		$x=WriteValue($RegKey,"FileExtns","*.txt","REG_SZ")
	EndIf
	IF ReadValue($RegKey,"SQLLevel")<>1
		$x=WriteValue($RegKey,"SQLLevel",1,"REG_SZ")
	EndIf
	IF ReadValue($RegKey,"CPTimeout")<>60
		$x=WriteValue($RegKey,"CPTimeout",60,"REG_SZ")
	EndIf
	IF ReadValue($RegKey,"DNSHelpFile")<>"%windir%\help\my3dsn.hlp"
		$x=WriteValue($RegKey,"DNSHelpFile","%windir%\help\my3dsn.hlp","REG_SZ")
	EndIf
	IF ReadValue("HKLM\Software\ODBC\ODBCINST.INI\ODBC Core","UsageCount")<>1
		$x=WriteValue("HKLM\Software\ODBC\ODBCINST.INI\ODBC Core","UsageCount",1,"REG_DWORD")
	EndIf
	IF ReadValue($ConnKey+"ODBC Data Sources",$DSN)<>"MySQL ODBC 3.51 Driver"
		$w = WriteValue($ConnKey+"ODBC Data Sources",$DSN,"MySQL ODBC 3.51 Driver","REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Description")<>$Description
		$w = WriteValue($ConnKey+$DSN,"Description",$Description,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Database")$DatabaseName
		$w = WriteValue($ConnKey+$DSN,"Database",$DBName,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Driver")<>$Driver
		$w = WriteValue($ConnKey+$DSN,"Driver",$Driver,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Option")<>$Option
		$w = WriteValue($ConnKey+$DSN,"Option",$Option,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Password")<>$Pwd
		$w = WriteValue($ConnKey+$DSN,"Password",$Pwd,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Port")<>$Port
		$w = WriteValue($ConnKey+$DSN,"Port",$Port,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Server")<>$Server
		$w = WriteValue($ConnKey+$DSN,"Server",$Server,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"Stmt")<>$Stmt
		$w = WriteValue($ConnKey+$DSN,"Stmt",$Stmt,"REG_SZ")
	EndIf
	IF ReadValue($ConnKey+$DSN,"User")<>$User
		$w = WriteValue($ConnKey+$DSN,"User",$User,"REG_SZ")
	EndIf
EndFunction