|
我用VB写了一段读取SQL的用户归档的数据库表格值
但是读取不上来,到了Set oRs = oCom.Execute就不继续执行了
Dim sPro
Dim sDsn
Dim sSer
Dim sCon
Dim sSql
Dim oRs
Dim conn
Dim oCom
Dim oItem
Dim m, n, s
Dim hourdate
Dim secdate
Dim k
Dim oList
//定义变量，VBS使用变体类型，无需指定数据类型，否则编译出错
Set oList = ScreenItems("listview1")//使用Listview控件
oList.View =3
oList.ListItems.Clear
//定义控件属性
sPro = "Provider=WinCCOLEDBProvider.1;"//定义服务提供者
sDsn = "Catalog=CC_test_06_03_29_12_38_33R;"
sSer = "Data Source=.\WinCC"
sCon = sPro + sDsn + sSer
//定义连接字符串
sSql = "SELECT * FROM UA#TEST"//????????????
//访问压缩归档的SQL语句，非压缩归档使用SELECT语句，用法见SQL
MsgBox "Open with:" & vbCr & sCon & vbCr & sSql & vbCr
//出提示框，也可以不用
Set conn = CreateObject("ADODB.Connection")
conn.ConnectionString = sCon
conn.CursorLocation = 3
conn.Open
Set oRs = CreateObject("ADODB.Recordset")
Set oCom = CreateObject("ADODB.Command")
oCom.CommandType = 1
Set oCom.ActiveConnection = conn
oCom.CommandText = sSql
Set oRs = oCom.Execute
这是我的程序
sSql = "SELECT * FROM UA#TEST" ,TEST是我的用户归档名称
是不是这里出现了问题
请哪个高手 能帮我指出问题~ 谢谢了
| 
