在wincc中使用ADOX动态创建Access数据库导出归档数据并显示_百度文库.pdfVIP

本文由achm207贡献 在wincc中使用ADOX动态创建Access数据库导出归档数据并显示2010-06-17 16: 49前段时间为了做项目学了两周的VB和数据库，参考了不少资料终于可以实现了。在 据，用于选择时间段显示，并且可以曲线显示数据。还不完善，只是初稿很多细节问 题没有完善。时间判断转换部分参考了工控论坛上的一位大牛的大作，一并作谢！废 话少说贴代码。 数据库创建数据导出代码： Dim begintime,endtime Dim dcat,dconn,drs,dpstr Dim dfm,ddlg,dtbl Dim sPro,sDsn,sSer,sptr,sConn Dim sSql1,sSql2 Dim sRs1,sRs2 Dim sCmd1,sCmd2 Dim m, n, s, b b=timeconv(begintime,endtime,0) If b=False Then Exit Sub Else create new database and table set dcat = createobject(adox.catalog) set dconn = createobject(adodb.connection) set drs = createobject(adodb.recordset) Set ddlg = ScreenItems(dialog) ddlg.Filter = MDB文件(*.mdb)|*.mdb|AllFiles(*.*)|*.*| ddlg.FilterIndeX = 1 ddlg.InitDir = E:\vb code ddlg.Flags = 6 ddlg.Action = 2 If ddlg.Filename = Then MsgBox you must input name Exit Sub Else dfm =ddlg.FileName End If dpstr = Provider=Microsoft.Jet.OLEDB.4.0; dpstr = dpstr Data Source= dfm dcat.Create dpstr Set dtbl = CreateObject(adox.table) dcat.ActiveConnection = dpstr dtbl.Name = MyTable dtbl.Columns.Append time dtbl.Columns.Append tag1value dtbl.Columns.Append tag2value dcat.Tables.Append dtbl dconn.Open dpstr drs.CursorLocation = 3 drs.Open MyTable,dconn, 1, 2 open sql server database sPro = Provider = WinCCOLEDBProvider.1; sDsn = Catalog = CC_test_10_04_21_18_05_57R; page 1 sSer = Data Source = .\WinCC sptr = sPro + sDsn + sSer Set sconn = CreateObject(ADODB.Connection) sconn.ConnectionString = sptr sconn.CursorLocation = 3 sconn.Open Set sRs1 = CreateObject(ADODB.Recordset) Set scmd1 = CreateObject(ADODB.Command) sCmd1.CommandType = 1 Set sCmd1.ActiveConnection = sconn sCmd1.CommandText = sSql1 Set sRs1 = sCmd1.Execute Set sRs2 = CreateObject(ADO