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