vb如何用ado向access資料庫插入和修改記錄

2022-02-05 23:05:09 字數 3056 閱讀 9326

1樓:

1、microsoft access視窗中,選擇檔案選單中的開啟選項,開啟乙個已有的資料庫。

2、資料庫中有兩張**,如下圖所示。

3、資料庫中,**學生資訊是課程成績的子表。

4、如果直接在子表中插入記錄,會提示不能新增或修改。

5、其實,只需在主表中,插入相關的主鍵和記錄。

6、接著,就可以在子表中插入相關記錄了。

7、如果要在子表中插入字段,只需選擇單擊以新增選項。

8、新增欄位後,輸入欄位名即可。

2樓:

private sub test()

dim con as new adodb.connection

dim rs as new adodb.recordset

dim sql as string

'連access

'con.open "provider=microsoft.jet.

oledb.4.0;data source=d:

\db3.mdb;persist security info=false"

set sql = "select * from 表名" 'sql查詢語句

rs.open sql,con,1,3 '後面的3是確定讀寫許可權的

rs.addnew '增加一行記錄,不用則修改當前記錄

while (not rs.eof)

rs("欄位1")="..." '資料讀寫操作

rs("欄位2")="..." '資料讀寫操作

...rs.movenext '移動到下一條記錄,增加新記錄無需

rs.update '儲存寫入資料,如果使用唯讀許可權,則不能使用這個方法

wend

rs.close '這個方法用來關閉你所代開的表,如果不使用這個方法可造成資料庫負擔過重或後續操作問題

con.close

set con = nothing

end sub

3樓:匿名使用者

新增:』下面這句連線資料庫指定表的所有字段

adodc1.recordsource = "select * from 庫存表"

』下面這句新增記錄

adodc1.recordset.addnew

下面4句就是通過4個textbox控制項輸入欄位的資料,如果是數字型別可以加val

adodc1.recordset.fields("貨物編號") = text1.text

adodc1.recordset.fields("貨物名稱") = text2.text

adodc1.recordset.fields("庫存量") = text3.text

adodc1.recordset.fields("單位") = text4.text

』下面這個是修改後更新

adodc1.recordset.update

修改:'通過主鍵指定要修改的記錄

adodc1.recordsource = "select * from 庫存表 where 貨物編號 = " & text1.text

adodc1.refresh

adodc1.recordset.fields("貨物編號") = text1.text

adodc1.recordset.fields("貨物名稱") = text2.text

adodc1.recordset.fields("庫存量") = text3.text

adodc1.recordset.fields("單位") = text4.text

vb6.0 用ado修改access資料庫中指定某行某列的單元內資料

4樓:匿名使用者

你用ado控制項還是物件呢?

怎樣用vb對access資料庫 進行 資料 新增

5樓:匿名使用者

連線好資料庫後,就可以查詢,新增,修改,刪除資料了

新增:adodc1.recordset.addnew '新增空記錄

adodc1.recordset.fields("商品編號") = text1.text

adodc1.recordset.fields("商品名稱") = text2.text

adodc1.recordset.fields("商品**") = val(text3.text)

adodc1.recordset.update '儲存資料

6樓:慶有

兩種辦法,一種是 用sql,另一種是ado

1、用sql新增資料:

insert into 表名(欄位1,欄位2,欄位3)

values(值01,值02,值03)

例如:docmd.runsql"insert into emptable(name,age,duty,salary) values('王明',35,'外貿總監',12500)"

2、用ado的辦法:

ado比較複雜,給你乙個完整的例子吧:

dim strsqlfitjc as string

strsqlfitjc = "select * from *表"

set rsfitjc = new adodb.recordset 『定義乙個ado連線,連進資料庫

rsfitjc.open strsqlfitjc, cn, adopenkeyset, adlockoptimistic 』開啟連線

rsfitjc.addnew '新增乙個紀錄

rsfitjc.fields("配件編號") = 「style」 『給每個字段賦值

.update 』儲存賦值的新紀錄

.close 關閉連線

end with

vb用的ado連線access資料庫。我要修改資料,為什麼修改完之後的資料總會更新在資料庫的第一行 5

7樓:匿名使用者

先查詢,後修改,也就是讓記錄的指標指向要修改的記錄,然後修改並更新當前記錄。

如何用vb做地鐵查詢系統,如何用vb做乙個地鐵查詢系統

地鐵票價查詢系統 這個沒意義吧 按公里收費的,還是按站台收費的。這個只需要計算就ok了 你以前做過乙個地鐵線路查詢系統,是使用最短路徑演算法做的。如何用vb做乙個深圳地鐵資訊查詢系統?思路?難點?哥們 這系統有點複雜啊 你得先建立幾個大型的資料庫 然後才能用vb來查詢啊,其實用vb實現查詢和修改很簡...

vb如何把選中的access資料進行修改

1 對於選中的記錄修改其字段值,然後更新記錄集即可。2 工具 vb6 3 用adodc連線資料庫,用find方法 也可以使用其它方法 選中記錄,用fields value修改字段值,用update更新記錄集,示例如下 private sub form load adodc1.connectionst...

vb 如何刪除access資料庫指定記錄

mshflexgrid裡的記錄是哪來的?哪個欄位是維一的。有些什麼欄位的?id,只是給你個建議,比如mshflexgrid 第三個欄位是身份證,用如下 delete form 表名 where sfz 2 id是主鍵,插入這個欄位就行。通過sql語句刪除 sql 有專門的刪除查詢,格式為 delet...