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

2022-02-27 02:17:06 字數 1546 閱讀 5565

1樓:匿名使用者

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

vb6.0 使用adodc控制元件讀取access資料庫. 怎麼修改資料庫指定某一列的所有見容?

2樓:匿名使用者

adodc控制元件是這個兄弟,使用很簡單,舉個按鈕單擊的例子:

private sub command1_click()

adodc1.connectionstring="provider=microsoft.jet.

oledb.4.0;data source=access路徑名"     '//連線字串,access2007以上版本不一樣

adodc1.recordsource="select * from 表名稱"   '//查詢表資料

adodc1.refreash      '//必須要重新整理控制元件啟用

'//如果要操作查詢,加下面的語句,比如象你說的整列更新

if not adodc1.recordset.eof then    //確保有資料可以更新

adodc1.recordset.fields("列名稱")=你要更新的值   '//賦值

adodc1.update   //更新資料集合

else

msgbox "無資料可以更新!","系統訊息",vbokonly

end if

end sub

'//ado控制元件一共就需要你設定兩個屬性,再重新整理一下就好了,也可以不用**,直接設定好屬性,**裡直接寫重新整理他的語句就齊活

還有一種方法那不是ado控制元件,是ado類,需要引用activex data object

3樓:麒麟

dim gadoconnlocal as new adodb.connection

dim gadocmdlocal as new adodb.command

dim adorstlocal as new recordset

gadoconnlocal.connectionstring = "provider=microsoft.jet.

oledb.4.0;data source=c:

\db1.mdb;persist security info=false" '假設資料庫名為db1,存放在c盤下

gadoconnlocal.cursorlocation = aduseclient

gadoconnlocal.mode = admodereadwrite

gadoconnlocal.open

gadocmdlocal.activeconnection = gadoconnlocal

gadocmdlocal.commandtype = adcmdtext

gadocmdlocal.commandtext = "update [基本情況] set 性別= '男'"

gadocmdlocal.execute

上面這段**放到按鈕裡,如果不行的話需要在工程中引用 如下圖的控制元件庫。

vb資料庫中,如何對某一欄位內的資料進行修改

vb6 0 FOR迴圈語句,vb6 0有沒有中途跳出當前for迴圈,進行下次迴圈?

dim i as integer,d1 as integer,d2 as integer,d3 as integer,d4 as integer dim str1 as string dim str2 as string private sub form load command1.caption ...

vb中,閏年怎麼表示,vb6 0中,閏年判斷 如何表示

閏年是我們生活中再平常不過的事了。不過你知道它是怎麼計算的嗎?閏年公式如下 若公立年可以被 4 整除,則很有可能為公立年,除非.這個公立年可以被 100 整除,但是不可以被 400 整除,就不是閏年 測試程式及模組如下 public function isleapyear yr as integer...

VB6 0我想用format函式保留兩位小數

電腦中顯示純小數就是這種形式的,因為對於純小數而言,前面那個0純屬多餘,而且可以節省一個位元組的空間,這在西方國家完全沒問題,但是中國人看慣了0.045754這樣的形式,只好多做一下手腳了 要記住,format函式的返回值是字串,直接print的話可以出現小數點前的前導0 print format ...