谁能给我一段ADO操作数据库的代码，包括查询，插入，和修改

[viber]

如题
谢谢

[lihonggen0]

新建工程----VB应用程序向导------

创建一个数据窗体看一下

[lihonggen0]

工程--->引用--->Microsoft ActiveX Data Object 2.x（版本号）

Dim CN As New ADODB.Connection '定义数据库的连接
Dim Rs As New ADODB.Recordset

CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\NWIND.MDB;Persist Security Info=False"
CN.Open

Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockBatchOptimistic

-------------------

cn.execute "insert into table........"
cn.execute "delete from table where ......"

[rainstormmaster]

同意楼上，用向导，基本上一应俱全

[didishu0807]

Public Function DBConnect() As Boolean
DBConnect = False
On Error GoTo ErrHandler
With g_Conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\WinTransPrice.mdb;Persist Security Info=False" '数据库连接字符串
.CommandTimeout=20 '连接时间
.CursorLocation=adUseClient '游标'
.Open
End With
DBConnect = True
Exit Function
ErrHandler:
MsgBox "打开数据库连接失败，请检查数据文件是否存在！", vbOKOnly, "系统错误"
End Function
增加:
rs.Open "select * from countries where code='" & ID & "'", _
g_Conn, adOpenKeyset, adLockOptimistic
If Not rs.EOF Then
rs.Close
MsgBox "代码重复！", vbOKOnly, "错误"
Exit Sub
End If
'增加新的数据
rs.AddNew
rs.Fields("code") = ID
rs.Fields("name") = txtCountryName.Text
rs.Fields("eng_name") = txtEngName.Text
rs.Fields("capital") = txtCapital.Text
rs.Fields("capital_eng") = txtCapitalEng.Text
rs.Fields("countryposition") = txtPosition.Text
rs.Fields("countrymemo") = txtMemo.Text
rs.UPdate
rs.Close
修改:
strSql = "select * from countries where code=('" & ID & "')"
rs.Open strSql, g_Conn, adOpenKeyset, adLockOptimistic
If rs.EOF Then
rs.Close
Exit Sub
Else
rs.Fields("countrymemo") = notes
rs.Fields("capital") = txtCapital.Text
rs.Fields("capital_eng") = txtCapitalEng.Text
rs.Fields("countryposition") = txtPosition.Text
rs.UPdate
rs.Close
End If

[PennyMac]

adoDetail.Recordset.Open
adoDetail.Recordset.Requery
adoDetail.Recordset.Fields(1).Value = Trim(dcbclient.Text)
adoDetail.Recordset.Update

[yijiansong]

同意楼上，用向导，基本上一应俱全，然后根据需要更改

[liul17]

dim rd as New ADODB.Recordset
dim cnDB As ADODB.Connection
Dim sCnStr As String
dim sServerName as string 'Server名字
dim sDbname as string '数据库名字

sCnStr = "Provider=SQLOLEDB.1;Provider=SQLOLEDB.1;Password='abc';Persist Security Info=True;User ID=sa;Initial Catalog=" & sDbname & ";Data Source=" & sServerName
Set cn = New ADODB.Connection
cn.Open sCnStr

sQueSQL = "SELECT * FROM Table1"
Set rd = New ADODB.Recordset
rd.Open sQueSQL, cnDB, adOpenStatic, adLockReadOnly

if rd.eof then

else

endif

[liul17]

上面是连接及查询其中的squesql 是一字符串变量 加上 dim sQueSql as string

'插入
squesql="insert into table1(f1,f2) values('a','b')"
cndb.execute squesql

'删除
squesql="delete table1 where f1='a'"
cndb.execute squesql

'更新
squesql="update table1 set f2='c' where f1='a'"
cndb.execute squesql

[linfuyong]

ConnStr = "dsn=check;uid=kq;pwd=kq;"
Set Conn = New ADODB.Connection
Conn.Open ConnStr

Set rs = New ADODB.Recordset
strSQL = "delete from leaves where leavetype='" & Combo2.Text & "'"
rs.Open strSQL, Conn, adOpenDynamic, adLockBatchOptimistic

Set rs = New ADODB.Recordset
strSQL = "insert into leaves values ('" & Combo2.Text & "','" & Text1.Text & "','" & Text2.Text & "','" & str & "')"
rs.Open strSQL, Conn, adOpenDynamic, adLockBatchOptimistic

Set rs = New ADODB.Recordset
strSQL = "update leaves set leavetype='" & Combo2.Text & "'" where leavetype='" & Combo2.Text & "'"
rs.Open strSQL, Conn, adOpenDynamic, adLockBatchOptimistic

[liul17]

若还有问题可 emailto : [e-mail]