用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
问题补充：
1我的源代码有问题吗？我的为什么不能，在VBS的环境中，你能贴出你的源代码吗？
最佳答案
弄个GSC控件，调试 出错等信息很明确，再调试
提问者对于答案的评价：
虽然没有什么实质性的,但是还是提出了解决问题的一种途径, 如果用两个 ADO控件,和DATAGRID控件,这是很容易可以解决的,但是我是不想调用ADO控件,因为这样不方便,速度也有影响.用这样的代码,我在SIEMENS的英文网站上看过,跟我的差不多,他的好象可以运行,我的代码在WINCC6.2的环境中也可以运行,代码无错,用MSGBOX也可以显示,只是不能绑定数据显示控件而已.但我想是肯定是可以绑定,只是没有找到窍门,楼上的也不愿意贴出代码来看看,总之谢谢了,希望我能解决后再贴上来吧!
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc266673.html
微信扫一扫 
支付宝扫一扫 