淘宝网的地址,找不到了,给一个链接啊?
万大侠帮我看一下问题呀/?在WICC VBS的环境中,
用ADO 字符串连接,程序如下,就是不能和DATAGRID或MSFGRID连接显示数据,帮忙看看问题在哪里?当然用ADODC控件和DATAGRID两个控件来做是可以的.
Sub OnClick(Byval Item)

Dim database, server, uid, pwd

Dim strcn, cn

Dim is_sql

Dim rs, datagrid

Set datagrid=ScreenItems("DBGRID")

Database = "DXW" '在WINCC SQL2005的数据库中增加一个名称为DXW的数据库，并增加一个名为DXWTWO的表

server = "dxw\wincc" '此处为电脑名称DXW,改为你的电脑名称

uid = ""

pwd = ""

strcn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=dxw;Data Source=.\WINCC"

Set cn = CreateObject("ADODB.Connection")

Set rs = CreateObject("ADODB.Recordset")

cn.ConnectionString = strcn

cn.Open

is_sql = "select * from DXWTWO"

'rs =cn.Execute (is_sql) '执行SQL语句

rs.CursorLocation = 3 'adUseClient



rs.Open is_sql, cn,1,3 'adOpenKeyset, adLockOptimistic

Set datagrid.DataSource = rs '此句无法绑定数据显示控件,但没有报错不知该如何做?此句在VB6.O的环境中可行。

datagrid.Refresh



MsgBox rs("名字")

'MsgBox (rs.fields.count)

rs.close

cn.Close

MsgBox "OK"

End Sub