Dim conn As New ADODB.Connection
Dim sql As String
FileName = "d:\db1.mdb"
DbPw = "操作員密碼"
conn = "provider=microsoft.jet.oledb.4.0;persist security info =false;data source=" & FileName & ";Jet OLEDB:Database Password=" & DbPw
conn.Open
sql = " update box set box.jin =box.jin+12"
conn.Execute sql
conn.Close
Set conn = Nothing
本站僅提供存儲服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請
點擊舉報。
