\'数据库插入
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