|
Je kan vanuit office Applicaties contact maken met een MySql database. Maak een public constante aan: | 01. |
| | 02. |
Public Const MYCONSTRING = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=msaccessbe;" & _
| | 03. |
" User=dbuser;Password=jadaag;Option=10;"
|
en dan kan je onderstaande functies gebruiken: Connecten met database: | 01. |
| | 02. |
Function MakeConn() As ADODB.Connection
| | 03. |
Dim cnConnection As ADODB.Connection
| | 04. |
| | 05. |
On Error GoTo MakeConn_Err_Handl
| | 06. |
| | 07. |
If cnConnection.State = adStateClosed Then
| | 08. |
| | 09. |
| | 10. |
Dim strConnString As String
| | 11. |
strConnString = MYCONSTRING
| | 12. |
| | 13. |
Set cnConnection = New ADODB.Connection
| | 14. |
| | 15. |
cnConnection.Open strConnString
| | 16. |
| | 17. |
Set MakeConn = cnConnection
| | 18. |
| | 19. |
End If
| | 20. |
| | 21. |
Exit Function
| | 22. |
| | 23. |
| | 24. |
MakeConn_Err_Handl:
| | 25. |
| | 26. |
Select Case Err.Number
| | 27. |
| | 28. |
Case 0
| | 29. |
Resume Next
| | 30. |
| | 31. |
Case 91
| | 32. |
| | 33. |
Resume Next
| | 34. |
| | 35. |
End Select
| | 36. |
| | 37. |
End Function
| | 38. |
| | 39. |
|
query doen: | 01. |
Function doQuery(strSQL As String) As ADODB.Recordset
| | 02. |
| | 03. |
Dim myRecordset As ADODB.Recordset
| | 04. |
Dim tmpconn As New ADODB.Connection
| | 05. |
Set tmpconn = MakeConn
| | 06. |
| | 07. |
Set myRecordset = New ADODB.Recordset
| | 08. |
| | 09. |
With myRecordset
| | 10. |
.CursorType = adOpenKeyset
| | 11. |
.CursorLocation = adUseClient
| | 12. |
.LockType = adLockOptimistic
| | 13. |
.Open strSQL, tmpconn
| | 14. |
End With
| | 15. |
| | 16. |
Set doQuery = myRecordset
| | 17. |
| | 18. |
End Function
| | 19. |
|
|
