用VB连接了TD服务器后如何执行SQL语句进行查询?调试时总是报：实时错误424 缺少对象
以下是一个简单的小程序Private Sub Command1_Click()
Dim com As TDAPIOLELib.Command
Dim RecSet As Recordset
Set com = tdc.Command//tdc在登录窗体中已经定义为 Dim tdc As New TDAPIOLELib.TDConnection，调试时该行变黄，报 错：实时错误424 缺少对象
com.CommandText = "select * from bug"
Set RecSet = com.Execute
For i = 1 To RecSet.RecordCount
List1.AddItem (RecSet.FieldValue(i))
RecSet.Next
Next
End Sub
请教各位高手，大侠！！！！多谢啦！我的msn:yujuan.wang@gmail.com 我的QQ：93687970，请注明51job，谢谢！
自己给自己个沙发，恭候各位大侠光临！
救命啊！！！ 如果是td8.0，需要先调用tdc的InitConnectionEx和ConnectProjectEx方法连接到具体的td工程库才行
页:
[1]
