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...