我设置游标类型为4时,也不行啊!
我是用的是
Public cbxt As ADODB.Connection
Public sn As String
Public dbn As String
sn = "LJ"
dbn = "抄表系统"
cbxt.ConnectionString = ("Driver={SQL Server};UID=sa;PWD=;" & Trim("Server=" + sn + ";") & Trim("Database=" + dbn))
cbxt.open
我是用的是
Public cbxt As ADODB.Connection
Public sn As String
Public dbn As String
sn = "LJ"
dbn = "抄表系统"
cbxt.ConnectionString = ("Driver={SQL Server};UID=sa;PWD=;" & Trim("Server=" + sn + ";") & Trim("Database=" + dbn))
cbxt.open
用动态行吗?
cbsql1 = "select 抄表记录.抄卡号,日期,上年过码,本月底码,上月底码,表码,电度,金额,区册号,ID1 from 抄表记录,区册表 where left(抄表记录.抄卡号,4)=区册表.区册号"
cbsql1 = cbsql1 + " and 区册号=" + Trim(Text2.Text) + " and year(日期)=" + Trim(Combo1(0).Text) + " and month(日期)=" + Trim(Combo1(1).Text)
cbsql1 = cbsql1 + " order by 抄表记录.抄卡号"
rs2.Open cbsql1, , adOpenDynamic, adLockOptimistic