VB高手快进来!! 120急救啊!!!!!

来源:百度知道 编辑:UC知道 时间:2024/06/26 00:26:29
我做了一个程序,用的全部是ADODC,我想把ADODC改为ADODB,怎么改啊??
比如:
adodc1.recourse="select * from one"
adodc1.refresh
adodc1.recordset.addnew
adodc1.recordset.fields("no")=text1.text
adodc1.recordset.fields("name")=text2.text
adodc1.recordset.update
上面这段程序用ADODB怎么写啊??????

先在"工程"-"引用"->"Microsoft ActiveX Data Objects 2.8 Library"

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=数据库路径"
rs.Open "select * from one", conn, 3, 3
rs.AddNew
rs!no = text1.Text
rs!Name = text2.Text
rs.Update
rs.Close
conn.Close