vb連線access資料庫,在工程上實現查詢,新增記錄,刪除

2021-12-23 03:58:32 字數 1756 閱讀 8039

1樓:匿名使用者

我倒。。。  你可以去網上下一個vb寫的access資料庫。。。

這裡就有。。例子。。  稍微自己改改。。。  就可以用了。。

不過。。。  請尊他人勞動成果。。。。 ^_^..

2樓:

給你一個示例,這個是使用者登入系統

'準備工作: 資料庫 d:\mydb.mdb 資料庫中,建資料表:userinfo,資料表中,建欄位:user,password,並新增一條記錄

'點工程->引用 選中 microsoft activex data objects 2.1 library

'控制元件:新增一個文字框,一個命令按鈕

private sub command1_click()

dim s as string

dim conn as new adodb.connection

dim rs as new adodb.recordset

conn.open "provider=microsoft.jet.oledb.4.0;data source=d:\mydb.mdb"

'請將資料庫名及路徑換成你的實際資料庫名及路徑

dim username as string

dim password as string

s = text1.text

if s = "1" or s = "2" then

username = inputbox("請輸入使用者名稱")

password = inputbox("請輸入使用者密碼")

sql = "select * from [userinfo] where user='" & username & "'"

'userinfo請換成你的實際資料表名

rs.open sql, conn, 1, 3

if rs.eof then

msgbox "沒有找到此使用者"

else

if rs("password") = password then

if s = "1" then

msgbox "123"

elseif s = "2" then

msgbox "456"

end if

else

msgbox "密碼錯誤"

end if

end if

end if

end sub

上面的例子實現了查詢

如果是要新增,刪除,更新等操作,只要編寫相應的sql語句,再用

conn.execute sql 就可以了,如:

新增的:

sql="insert into [userinfo](user,password) values('aaaa','1234')"

conn.execute sql '執行後,就新增了一條記錄

刪除:sql="delete from [userinfo] where user='aaaa'"

conn.execute sql '刪除使用者名稱為aaaa的使用者記錄

更新:sql="update [userinfo] set password='abcdefg' where user='aaaa'"

conn.execute sql '執行後,修改使用者aaaa的密碼為abcdefg

以上只是示例,在實際使用過程中,可以將一些內容用控制元件輸入等方式進行,這樣就有很大的靈活性了

c(winform)中連線access資料庫的字串(我的

bai取當du 前zhiexe的啟 dao動專路徑屬 帥哥可bai以吧資料庫檔案放在你專案du 的debug檔案下zhi面,這樣訪問的dao時候就可以版不加路徑了。連線物件就可以權直接這樣寫 oledbconnection myconnection new oledbconnection provi...

用vb在access資料庫中建立檢視(就是建立個查詢

路子沒什麼問題。你一步一步的試驗吧。從 create view query4 as select from ad order details 開始。一條一條的往上加,看看加誰會出錯。你的 沒反應 是什麼意思呢?修改表結構本來就不會有返回值,你只要檢查該查詢是否建立就可以了。如果你要執行該查詢,在建立...

vb 區域網access資料庫,vb 區域網ACCESS資料庫

沒那麼複雜,你要的話給你來一個。你可以去 http www.codesky.net 找個例項,如果你要對區域網的資料庫進行修改,那麼資料路徑前加上 伺服器的ip 就可以了 大概的語句如下 sub test dim cn as adodb.connectiondim rs as adodb.recor...