用户归档的SQL数据库读取

golove

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