我在使用MySQL数据库在VB6中进行SQL查询时遇到了问题.基本上,我要做的是将MySQL数据库中的数据检索到列表视图中.尽管同样的代码在Access数据库中运行得很好.
我正在写下面的错误:
[MySQL][ODBC 5.1驱动程序][MySQL-5.5.5-10.4.28-MariaDB]您有一个 您的SQL语法有误;请查看与您的 MariaDB服务器版本以了解正确的语法,请在第1行使用
Dim list As List Item
ListView1.ListItems. Clear
Dim date1 As Date
Dim date2 As Date
date1 = Me. DTPicker1.Value, "mm/dd/yyyy")
date2 = Me. DTPicker2.Value, "mm/dd/yyyy")
If mysqlcn.State = adStateOpen Then mysqlcn.Close
Do Events
Set mysqlcn = New ADODB.Connection
With mysqlcn
.ConnectionString = "Driver= {MySQL ODBC 5.1 Driver};"
& "Server=localhost;"
& "Database=db_test;"
& "User=root;"
& "Password=;"
& "Option=3;"
.CursorLocation = adUseClient
. Open
End With
Rs. Open "Select* from register where Date0 between # " & date1 & " # AND # " & date2 & " #", mysqlcn, adOpenDynamic, adLockPessimistic
Do Until rs.EOF
Set list = ListView1.ListItems. Add(, , rs!ID)
list.SubItems(1) = rs!Date0
list.SubItems(2) = rs!CashStatus
list.SubItems(3) = rs!TrxId
list.SubItems(4) = rs!To
list.SubItems(5) = rs!AccountNo
list.SubItems(6) = rs!Amount
list.SubItems(7) = rs!AccountTitle
list.SubItems(8) = rs!From
list.SubItems(9) = rs!PrintedBy
list.SubItems(10) = rs!Comission
rs.MoveNext
Loop
rs.Close