1. 首頁 > 生活百科 > >

求VB 用ADODB連接ACCESS數據庫實例

生活百科VB


求VB 用ADODB連接ACCESS數據庫實例


'首先 ， 工具->引用->選中Microsoft ActiveX Data Objects 2.X Library'必須選中 ， 否則下面代碼不會起作用！（以下鏈接數據庫之方式 ， 不需要使用ADODB控件 ， 僅需代碼即可）Public Conn As New ADODB.ConnectionPublic Rs As New ADODB.RecordsetPublic Cnt As Integer '這個Cnt是用來表示數據庫數據總量的 ， 對鏈接過程無關'連接數據庫的代碼段Conn.CursorLocation = adUseClient '以Conn為鏈接名建立鏈接 ， 這里是設置數據游標（客戶端數據游標） ， 即設定讀取數據庫數據之方式（一行一行地讀）Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\test.mdb"'自己改動一下上面的路徑和文件名即可 ， 其他的代碼你不理解照粘貼無妨If Rs.State <> adStateClosed Then Rs.CloseRs.Open "SELECT 鋪名, 上月讀數, 本月讀數, 實用度數, 鋪位數, 首層面積, 非經營層面積, 欠費明細, 欠費金額 FROM data WHERE 首層面積 is not null and 非經營層面積 is not null;", Conn, adOpenKeyset, adLockPessimisticCnt = Rs.RecordCount'關閉數據庫鏈接（一般放到子過程結束處 ， 關閉數據庫鏈接）Rs.CloseConn.CloseSet Rs = NothingSet Conn = Nothing'添加、修改、刪除、更新數據（都以Conn.Execute后帶SQL語句來實現對數據庫的查詢操作）'Conn.Execute "update data set 上月讀數 = 本月讀數"’Rs.MoveNext '數據游標轉到數據庫下一行'實例：For i = 1 To CntDoEventsConn.Execute "insert into data (ID,鋪名,上月讀數,本月讀數,實用度數,鋪位數) values(" & Rs("ID") & ",'" & Rs("鋪名") & "'," & Rs("上月讀數") & "," & Rs("本月讀數") & "," & Rs("實用度數") & "," & Rs("鋪位數") & ")"Rs.MoveNextNext
【求VB 用ADODB連接ACCESS數據庫實例】

    猜你喜歡