ifixVB连接数据库,数据库数据处理附带代码参考.doc

ifixVB连接数据库,数据库数据处理附带代码参考.doc

ID:50949860

大小:2.81 MB

页数:83页

时间:2020-03-16

ifixVB连接数据库,数据库数据处理附带代码参考.doc_第1页
ifixVB连接数据库,数据库数据处理附带代码参考.doc_第2页
ifixVB连接数据库,数据库数据处理附带代码参考.doc_第3页
ifixVB连接数据库,数据库数据处理附带代码参考.doc_第4页
ifixVB连接数据库,数据库数据处理附带代码参考.doc_第5页
资源描述:

《ifixVB连接数据库,数据库数据处理附带代码参考.doc》由会员上传分享,免费在线阅读,更多相关内容在应用文档-天天文库

1、一,在ifix帮组手册中的参考内容1二,在vb中需要引用内容6三,采用2中引用的ADOext方式连接用户数据库参考6四,具体的参考代码84.1创建新表84.2删除不需要时间范围数据94.3删除某个表104.4清除表中重复数据114.5将临时数据表中数据倒回主数据表154.6删除某个表中全部数据174.7读一个数据库中数据,将该数据写入另一个数据库18附件1:网络下载参考数据25附录2:sql参考36附录3:附带一个小资料sql参数40SQL常用命令使用方法43参考1:日表代码50参考2:污水月表代码55参考3:单年表代码63参考4:多年表代码69参考5:污水设备运

2、行时间表代码75参考6:删除某表指定时间前数据81一,在ifix帮组手册中的参考内容Driver={MicrosoftAccessDriver(*.MDB)};DBQ=E:\报表\gyws_report.mdb;"INSERTINTOfixreport"+_"(datatime,datatag,datavalue)"+_"VALUES('2010-7-1310:11:23','addbc','124.45')"二,在vb中需要引用内容三,采用2中引用的ADOext方式连接用户数据库参考四,具体的参考代码4.1创建新表PrivateSubclose_pic16_

3、Click()'++++++再已存在库中创建表+++++DimcatAsADOX.CatalogDimtblAsNewADOX.TableSetcat=NewADOX.Catalogcat.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;"&_"DataSource=E:~污水报表gyws_report.mdb;"Withtbl.Name="fixreport_temp"'CreateafieldandappendittothenewTable'object.Thismustbedonebeforeappe

4、ndingthe'TableobjecttotheTablescollectionofthe'Catalog..Columns.Append"datatime",adDate.Columns.Append"datatag",adVarWChar.Columns.Append"datavalue",adDouble.Columns.Append"datatxt",adVarWCharEndWith'Addthenewtabletothedatabase.cat.Tables.Appendtbl'CleanupthereferencesSetcat=NothingSe

5、ttbl=NothingEndSub4.2删除不需要时间范围数据、PrivateSubclose_pic14_Click()DimconADOAsADODB.ConnectionDimrsADOAsADODB.RecordsetDimstrQuery1AsStringDimStartTime报表设计.datestar.RefreshStartTime=Format(报表设计.datestar.Value,"yyyy-mm-dd")&""&Format(报表设计.timestar.Value,"hh:mm:ss")Me.timestar1.Value=StartTi

6、meDimData,Data1,Data2,Datasm,Tagsm(1)SetconADO=NewADODB.ConnectionconADO.ConnectionString="Driver={MicrosoftAccessDriver(*.MDB)};DBQ=E:\~污水报表\gyws_report.mdb;UID=aa;PWD=;"strQuery1="delete"+_"FROMfixreport"+_"WHERE(datatime<={ts'"+StartTime+"'})"conADO.OpenSetrsADO1=NewADODB.Records

7、etrsADO1.OpenstrQuery1,conADO,adOpenForwardOnly,adLockReadOnly,adCmdTextEndSub4.3删除某个表PrivateSubclose_pic15_Click()'++++++s删除表+++++DimconADOAsADODB.ConnectionDimrsADOAsADODB.RecordsetDimstrQueryAsStringDimDatat,Datatag,Datav,Datasm,Tagsm(1)DimjDimsmtime,smmAsStringSetconADO=NewADODB.C

8、onnec

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。