你把它写成strsql = "select 表名.客户号,表名.客户名称,表名.结账日期 from 结算信息表"这种形式试试呢。
看看你数据库中表中的字段和你 strsql 里要查询的字段是否一致
Option ExplicitPublic mycnn As New ADODB.Connection Public myres As New ADODB.RecordsetPublic Function OpenMyres(ByVal txtSql As String) If myres.State = adStateOpen Then myres.Close End If With myres .CursorLocation = adUseClient .CursorType = adOpenDynamic .Open txtSql, mycnn, , adLockPessimistic, adCmdText End With End Function这是我打开表的函数openmyres(),是不是这个里面的问题?
Public myres As New ADODB.RecordsetPublic Function OpenMyres(ByVal txtSql As String)
If myres.State = adStateOpen Then
myres.Close
End If
With myres
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open txtSql, mycnn, , adLockPessimistic, adCmdText
End With
End Function这是我打开表的函数openmyres(),是不是这个里面的问题?
这里出错
.Open txtSql, mycnn, adLockPessimistic, adCmdText