中冶自动化-fameview组态软件用户手册24.数据库操作

1、.24-24-24-24-24-24-编24-24-24-把数据导出到Excel24-使用24-框来选择数据源(如FameViewUserdata框来选择数据源(如FameViewUserdata.24-.24-UserDbSQLObj.ShowWindow .24-24.224.2通过按钮弹框,选择ODBC源,如fameViewuserdata.24-12006-5-522006-5-512006-5-522006-5-512006-5-522006-5-5通过表按钮框,选择要查询的数据表,如通过按钮弹通过表按钮框,选择要查询的数据表,如通过按钮弹框,选择进行查询所依据的时间字段,如.24-

2、SQLCurveObj.ShowWindow .24-24.324.3;如果希望列表中的内容根据某字段进行排序,请输入此排序字段的名称,便实现了按此字.24-:UserDbListObj.AddNewFromVarValue至:UserDbListObj.SetVarValueFromField:UserDbListObj.EditFromVarValue.24-24.424.4组框如下3.文本变量可以是VT变量, 对应的是选择框中的当前文本;.24-例:DataboxObj.Update例24.5 期时间字段为F1,根据F1 来删除数据;在画面中各增加一个日期拾取器和时间拾取器,分别把内容保

3、存在VT1VT2.24-内容如下组成格式文本Delete* From T1 WhereF1=#2002-1-10:0:0#s=Delete*FromT1WhereF1s=s+s1s=s+s=s+s2s=s+# SQLObj.SQLExecute如果数据库的类型为SQLServer,则 组成格式文本Delete * From T1 Where F1=1000If UserDB.IsEmpty()=0 ThenEnd If通假.24-CREATE PROCEDURE(f1real,f2real,f3datetime,f4realoutput) AS INSERTO UserDatabase.dbo

4、.demo ( f1,f2,f3)VALUES(f1,f2,f3) if error=0set24.824.8SQLServer 中编CREATE PROCEDUREDeclare Declarectdatetime set n=-30while过程test下setct=DATEADD(DAY,n,O .24- If n=1 mandTextStoredProc.SetInputParamCount 3 StoredProc.SetInputParam 1,f1,4,1.23 StoredProc.SetInputParam 2,f2,4,2.34 StoredProc.SetInputPar

5、am3,f3,7,2005-12-1105:00:00StoredProc.SetOutputParamCount 1 StoredProc.SetOutputParam1,f4,4 End IfSELECT AVG(f1) ASf11, AVG(f2) ASF12, FROM SELECT AVG(f1) ASf11, AVG(f2) ASF12, FROM setdeletefromdemo If n=1 mandTexttest End 24.9把数据库数据导出到ExcelMyYear = InputBox(请输入查询年份,) MyMonthInputBox(请输入查询月份,)MyDay

6、= IsDate(MyMonth&MyDay&MyYearTrueThen NOW_DATE = MyYear + 年 + MyMonth + 月StartTimeMyMonth&MyDay&MyYear&00:00:00 If MyMonth =+StartTime+AndUserDB.OpenRecordsetdemo,2,2,2 打.24-SetSetExcelObj=CreateObject(Excel.Application) ExcelObj.Visible = TrueExcelFileC:组态系统ExcelFiletest.xls yexcel.Workbooks.Open ExcelFile=While UserDB.IsEOF()=0 ExcelObj.ActiveWorkbook.SaveAsC:组态系统ExcelFile&NOW_DATE&.xls SetEnd 24.10使用Set conn=