VBS连接数据库【荐】.pdfVIP

VBS 连接数据库连接数据库 连接数据库连接数据库 例程1： Public strConn As String Public conn Public rs Public xx Public Sub Workbook_Open() strConn = DSN=testdatabase;UID=;password= Set conn = CreateObject(ADODB.Connection) conn.Open strConn UserForm1.Show xx = 10000 Set rs = conn.Execute(SELECT * FROM table1) Cells(1, 1).Value = rs(name) End Sub Set MyConn=Sever.CreateObject(“ADODB.Connection”)“FILEDSN=d:\Program Files\” “SELECT * FROM Mytable”)“BR”RS(“Mycolumn”)) MyConn.Open Common Files\ODBC\Data Sources\MyData.dsn Set RS=MyConn.Execute( WHILE NOT RS.EOF Response.Write( RS.MoveNext WEND RS.Close MyConn.Close Set MyConn=Sever.CerateObject(“ADODB.Connection”)“FILEDSN=d:\Program Files\” “SELECT * FROM Mytable”) MyConn.Open Common Files\ODBC\Data Source\MyData.dsn Set RS=MyConn.Execute( % TABLE BORDER=1 TR % FOR i=0 to RS.Fields.Count-1 % TH% =RS(i).Name */TH % Next % /TR % While Not RS.EOF % TR % FOR i=0 TO RS.Fields.Count-1 % TD% = RS(i) %/TD % Next % /TR % RS.MoveNext WEND RS.Close MyConn.Close 例程2 ： 1、运行数据库DSN WinCC 内部变量：@DatasourceNameRT，如：CC_MyTest_06_04_08_09_05_14R 2、普通连接的ConnectionString (1)连接运行数据库 strSQL=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initia l Catalog=CC_MyTest_06_04_08_09_05_14R;Data Source=.\WINCC (2)连接其它数据库，如：Northwind strSQL=Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initia l Catalog=Northwind;Data Source=.\WINCC 注：普通连接方式下，所有标准的SQL 语句都可以使用。 3、归档数据库的ConnectionString strSQL=Provider=WinCCOLEDBProvider.1;Catalog=CC_MyTest_06_04_08_09_05_14R;D ata Source=.\WinCC 在此连接方式下，只能用WinCCOLEDBProvider 提供的方法访问归档数据库： (1)单个归档变量查询： strSQL = TAG:R,10,2006-04-12 16:00:00,2006-04-13 15:59:59 或 strSQL = TAG:R,Archive1\Tag1,2006-04-12 16:00:00,2006-04-13 15:59:59 (2)多个归档变量查询： strSQL = TAG:R,(10;14;15),2006-04-12 16:00:00,2006-04-13 15:59:59 或 strSQL = TA