Advertisement
Advertisement
| 02.04.2008 at 10:59AM PST, ID: 23135774 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: |
Public Sub testDsnless()
Dim dbMySQL As Database
Dim cnMySQL As DAO.Connection
Dim rsMySQL As DAO.Recordset
Dim sDSN As String, qrMySQL As String
sDSN = "ODBC;DRIVER={MySQL ODBC 3.51 Driver};" _
& " SERVER=www.myserver.com;DATABASE=mydatabase;" _
& " UID=myusername;PWD=mypassword;"
Set dbMySQL = OpenDatabase("", False, False, sDSN)
qrMySQL = "SELECT * FROM tableName;"
Set rsMySQL = dbMySQL.OpenRecordset(qrMySQL)
rsMySQL.AddNew
rsMySQL!ID = 1000
rsMySQL.Update
End Sub
|