Dim con As New ODBCConnection
Dim qry As New ODBCQuery
Dim result As New ODBCResultSet
Set qry.connection = con
Set result.Query = qry
Dim oName As String
Dim oUser As String
Dim oPS As String
oName = "xfproject"
oUser = "root"
oPS = "123456"
Call con.ConnectTo(oName,oUser,oPS)
qry.SQL = "select id,projname from project_info "
result.Execute
If Result.IsResultSetAvailable Then
Do
Result.Nextrow
Print Cstr(Result.GetValue("id"))
Print Cstr(Result.GetValue("projname"))
Loop Until Result.IsEndOfData
End If
'关闭数据库连接
result.Close(DB_CLOSE)
Call con.disconnect
其中id字段在mysql中是int类型,可以正常取值。
而projname为varchar类型,提示出错
DO- Field ID isout of range ...
解决办法:
在连数据源时,如下图
展开更多设置选项:如下图,设置其字符集类型:gbk,这里的字符集应与数据库的字符集相同,如果是中文,最好都设置为gbk格式