-- 作者:msedu
-- 发布时间:2010/8/27 10:28:37
-- 金字塔VBA如何操作数据库,范例,插入、查询、删除:
\'数据库插入 Function DataInsert() Set adoConn=CreateObject("Adodb.Connection") adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source="&Application.AppPath&"\\test.mdb" Set Report1=MarketData.GetReportData("Fu11","SQ") strSql="Insert into Fu1011(Price,Bs,Pos) Values(\'"&Report1.NewPrice&"\',\'5\',\'5\')" adoConn.Execute(strSql) adoConn.Close \'MsgBox Report1.NewPrice End Function
\'数据库查询 Function DataSelect() Set adoConn=CreateObject("Adodb.Connection") strC&Application.AppPath&"\\test.mdb" strSql="Select * From Fu1011" adoConn.Open strConn Set Rs=adoConn.Execute(strSql) If Rs.EOF THEN MsgBox "查询结果:数据表为空" Exit Function Else Do While Not Rs.EOF MsgBox Rs("Price").Value Rs.MoveNext Loop Rs.Close Set Rs=Nothing End If End Function
\'数据库删除 Function DataDelete() Set adoConn=CreateObject("Adodb.Connection") strC&Application.AppPath&"\\test.mdb" strSql="Delete * From Fu1011" adoConn.Open strConn adoConn.Execute(strSql) adoConn.Close End Function
【提示】欢迎,大家入金字塔QQ群、学习、切磋、提高,群号为、QQ:121087743
[此贴子已经被作者于2010-8-27 10:29:21编辑过]
|