Hi,
kheb een tijdje geleden een code voor VisualBasic geschreven om te contacten met
mySQL server
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
| Attribute VB_Name = "DataBaseMod"
Public Function AuthorizedLogin(UserName As String, _
password As String, _
server As String, _
dbase As String, _
ErrorMessageOn As Boolean) As Boolean
'Creeer van een Database Connection
'Eens kijken of deze gebruiker recht heeft op toegang!
'
'Last modified: 01-03-2001
On Error GoTo ErrorHandler 'Foutieve Login opvangen
Dim DataBase As ADODB.Connection
Set DataBase = New ADODB.Connection
'Werkende code:
'--------------------------------------------------------------------------------'
'DataBase.ConnectionString = "Provider=MSDASQL.1;Password=" & password & ";" & _
' "Persist Security Info=True;" & _
' "User ID=" & UserName & ";Data Source=Reparaties"
'--------------------------------------------------------------------------------'
'Kijken of we DSN kunnen omzeilen
DataBase.ConnectionString = "Driver={MySQL};" & _
"Password=" & password & ";" & _
"Persist Security Info=True;" & _
"User ID=" & UserName & ";" & _
"database=" & dbase & ";" & _
"server=" & server
DataBase.ConnectionTimeout = 5
DataBase.Open
DataBase.Close
AuthorizedLogin = True
Exit Function
ErrorHandler:
'Kijken wat de oorzaak van de melding is
'1. Ongeldige toegang, foutief wachtwoord etc...
'2. Geen verbinding met de server mogelijk
Dim ErrorMessage As String
Dim ErrorTitle As String
Dim ErrorResponse As Integer
'Ff kijken of we een Error Melding willen...
If ErrorMessageOn Then
If InStr(1, LCase$(Error), LCase$("access denied")) Then
ErrorMessage = "Geen geldige gebruikersnaam en/of wachtwoord!" & Chr$(13) & _
"Deze actie is gelogd op de SQLServer!" & Chr$(13) & Chr$(13) & _
"Neem met problemen contact op met de systeembeheerder!"
ErrorTitle = "Login : Toegang geweigerd"
Else
ErrorMessage = "Kan de server niet vinden!" & Chr$(13) & _
"Controleer of u contact heeft met het netwerk" & Chr$(13) & Chr$(13) & _
"Gekozen server:" & Chr$(13) & System.GetCurrentServer & Chr$(13) & Chr$(13) & _
"Neem met problemen contact op met de systeembeheerder!"
ErrorTitle = "Login : Server niet gevonden"
End If
ErrorResponse = MsgBox(ErrorMessage, vbCritical, ErrorTitle)
End If
AuthorizedLogin = False
End Function
Public Function CreateDatabaseConnection()
End Function |
Misschien heb je er wat aan... zou zonde zijn om het wiel opnieuw uit te vinden
Je moet wel myODBC hebben geinstalleerd
/u/13945/FreeBSD01.png?f=community)
