真正的高手请进,本人愿意出1000分请教.

Question

Call OpenConnectionSvr
这个过程中打开连接了吗？对吗？

Answer 1

RDSet.Open "select 数据采集时间,max(五村调压前压力) as 五村调压前压力,max(八村调压前压力) as 八村调压前压力,max(单宿调压前压力) as 单宿调压前压力,max(二村调压前压力) as 二村调压前压力 from myview where 数据采集时间>" & " '" + time1+ "'" & "and 数据采集时间<" & " '" + time2+ "'" & "group by 数据采集时间, db, adOpenStatic, adLockOptimistic
db这写得对吗？

Answer 2

对不起,create view yuepdqview 应该是create view myview

Answer 3

你的db是一个adodb.connection吗？
其它模块中是否有db.open .... ,并且打开后未关闭。

Answer 4

1.最好不要用NULL作為字段
2.打開記錄RDSet時,看看db時否打開.看這段源代碼,db應該是全局變量.在使用前,即db (ADODB.Connection)必須是正確連接打開的.否則出現上面的錯誤.

Answer 5

to lihonggen0(用VB)
Sub OpenConnectionSvr()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
Screen.MousePointer = vbHourglass
db.Open "PROVIDER=MSDASQL;dsn=vb2sql;uid=userid;pwd=passwd;database=mydb;"
Screen.MousePointer = vbDefault
End Sub
没问题,别的地方用过正常

Answer 6

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As StringstrSQL = "select 数据采集时间,max(五村调压前压力) as 五村调压前压力,max(八村调压前压力) as 八村调压前压力,max(单宿调压前压力) as 单宿调压前压力,max(二村调压前压力) as 二村调压前压力 from myview where 数据采集时间>" & " '" & time1 & "'" & "and 数据采集时间<" & " '" & time2 & "'" & "group by 数据采集时间"
If cnn.State = adStateOpen Then cnn.Close
cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Password=qdccaucma;Persist Security Info=True;User ID=sa;Initial Catalog=MyDb;Data Source=sql"
With rst
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open strSQL, cnn, , , adCmdText
End With

Answer 7

to Frank_Xu(),xsp(半个程序员)　
db是正確連接打開的.

Answer 8

OpenConnectionSvr中如果有错误处理请把它去掉，
然后检查你的db这个 connection是否是全局的或者作用范围是否达到loaddb这个过程
在你的
RDSet.Open "select 数据采集时间,max(五村调压前压力) as 五村调压前压力,max(八村调压前压力) as 八村调压前压力,max(单宿调压前压力) as 单宿调压前压力,max(二村调压前压力) as 二村调压前压力 from myview where 数据采集时间>" & " '" + time1+ "'" & "and 数据采集时间<" & " '" + time2+ "'" & "group by 数据采集时间, db, adOpenStatic, adLockOptimistic
之前请 debug.print db.state看看db是否处于打开状态
然后开始执行，如果在OpenConnectionSvr报错，那么就是说你的打开连接有错误
如果说debug.print db.state中的state不等于adstateopen那么就是db在loaddb之前被关闭了

Answer 9

那能不能把你的在loaddb之前执行的代码贴出来

Answer 10

to ferrytang(楼上的你悠着点!!!)　
debug.print db.state中的state等于1,是打开的.

Answer 11

to ferrytang(楼上的你悠着点!!!)　
debug.print db.state中的state等于1,是不是打开的?

Answer 12

Set RDSet = New Recordset
rdset也是全局的！?

Answer 13

to ferrytang(楼上的你悠着点!!!)　
Dim WithEvents RDSet As Recordset

Answer 14

谢谢各位,问题我解决了,来者有分,特别感谢：　ferrytang(楼上的你悠着点!!!)　,dbcontrols(泰山__帮助你使我感到快乐.),　lihonggen0(用VB)　,xsp(半个程序员)