我的一个例子:
Dim objconnection
Dim connstr
Dim strsql
connstr="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=PYDB;Data Source=BKPC\WINCC;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=BKPC;Use Encryption for Data=False;Tag with column collation when possible=False;"
Set objconnection=CreateObject("adodb.connection")
objconnection.ConnectionString=connstr
objconnection.open
strsql="insert into wincc_data values(4,'dd');"
objconnection.execute strsql
objconnection.close
Set objconnect=Nothing

问个问题:如何查找表中某个字段的值,把得到的值赋给wincc的一个变量,让它显示出来,最好能给段代码,谢谢!