如何使用ADO添加，删除，修改记录？

Question

add：
Conn.Execute "Insert Into Table (Field1,Field2,...) values('aaa','bbb',...)"
delete:
Conn.Execute "delete from Table where ..."
Modify:
Conn.Execute "Update table Set Field1='aaa',Field2='bbb'... where ..."

Answer 1

为什么不用RecordSet的AddNew方法呢？

Answer 2

我用的ODBC，好象不行。而且拜托大哥，能不能些详细点。比如我要把在一个文本框里的内容写到数据库里，用ADO怎么写？

Answer 3

我也习惯用sql语句追加数据及删除记录

Answer 4

Dim cn As New ADODB.Connection
Dim cm As New ADODB.Command
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db/mnd.MDB") & ";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
cm.ActiveConnection = cn
cm.commandtext="insert into 表名 values(" & maxid+1 & ",'" & topic & "','" & now() & "','" & session("code") & "','0','" & contant & "')"
 cm.execute
……

Answer 5

啊~我只想在让一个用户添完所有资料，然后单击一个按钮，用ADO完成添加记录的操作。DAO我很熟，碰上ADO，我是一点头绪都没了。。各位帮忙啊！

Answer 6

cm.commandtext="insert into 表名 values(" & maxid+1 & ",'" & topic & "','" & now() & "','" & session("code") & "','0','" & contant & "')"这句能解释一下吗？

Answer 7

将文本框Text1中的内容写到Field1字段中（假设为字符型）
添加:
Conn.Execute "Insert Into Table (Field1,...) values('" & Text1.text & "',...)"
其他的类推
够详细了吧？

Answer 8

strConn = "PROVIDER=MSDASQL;" + "DRIVER={SQL Server};" & _
    "SERVER=(local);" + "DATABASE=DataName;"
    db.ConnectionString = strConn
    db.Open
'打开数据库    Dim adoPro As New ADODB.Recordset
    Dim i As Long
    
    adoPro.Open "select top 1 * from Buydetail", db, adOpenDynamic, adLockBatchOptimistic
            adoPro.AddNew
            adoPro("BuyId") = txtBuyID.text
            adoPro("GoodsId") = TxtGoodsID.text '产品编号
            adoPro("AverPrice") = 0  '加权价
           
            adoPro.UpdateBatch adAffectCurrent
        End If
    Next
    adoPro.Close
    Set adoPro = Nothing

Answer 9

dim cnn as new adodb.connection,strcnn as string
strcnn="driver={micsoft access driver (*.mdb)};dbq=" & "X:/path/database.mdb;"
cnn.open strcnn
dim sql as string
sql="insert into tablename (fields1,fields2,....) values (value1,value2,.....)"  '添加记录
cnn.excute sql
'删除用下面的 
sql="delete form tablename where 条件"
'更新用这个
sql="update tablename fields1 with value1,fields 2 with value2....."
个另地主可能记得不太准确 ，请参照sql语法.

Answer 10

dim Cnn1 as new adodb.connection
dim strcnn as string
dim Rs1 as new recordset
strcnn="driver={micsoft access driver (*.mdb)};dbq=" & "X:/path/database.mdb;"
cnn1.open strcnn
dim sql as string
rs1.open "select * from tablename",Cn1,2,2
'添加
rs1.addnew
rs1.fields(0)=text1.text
rs1.fields(1)=text1.text
rs1.update'删除
rs1.movenext
rs1.delete 1
rs1.update'修改
rs1.movefirst
rs1.fields(0)=text1.text
rs1.fields(1)=text2.text
rs1.update

Answer 11

adodb.addnew
是增加记录
修改不需要命令，
删除直接