高校问答宜昌紫荆花足道涉黄:ado和ado.net有什么区别?
来源：百度文库 编辑：高校问答 时间：2024/05/04 05:48:29
Dim conn As New ADODB.Connection
Dim connstr As String
Dim sdbname As String
sdbname = App.Path + "\db\#db.mdb"
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Persist Security Info=False;" & "Data Source=" & sdbname & ";" & "Jet OLEDB:"
conn.Open connstr
Dim sql As String
sql = "select * from admin"
Dim rs As New ADODB.Recordset
rs.Open sql, conn, 1, 3
rs.addnew
rs("title")=text1.text
rs.update
conn.close
我想要一个ado.net的连接，vb.net+access
特别注意rs.addnew和rs.update vb.net里面也得有一个rs，和addnew和update相类似的方法.
谢谢．
老兄，谢谢你了，我还是不明白呀，你给不能给我弄个addnew 和update出来呀？谢了
ADO.NET没有什么RS了
正好这两天研究ADO.NET，我给你一段代码吧
Dim objConn As New Odbc.OdbcConnection
Dim objCmd As New Odbc.OdbcCommand
objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Application.StartupPath & "\database.mdb"
objConn.Open()
objCmd.Connection = objConn
objCmd.CommandText = "delete * from Commands where ID=" & CmdID
objCmd.ExecuteNonQuery()
objConn.Close()
'ExecuteNonQuery()是执行无返回内容的sql语句时用的
'addnew就可以用ExecuteNonQuery()执行插入语句来实现
再看下面这段
Dim objConn As New Odbc.OdbcConnection
Dim objCmd As New Odbc.OdbcCommand
Dim objDataReader As Odbc.OdbcDataReader
'这个OdbcDataReader有点类似RS，用于读取查询结果
objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Application.StartupPath & "\database.mdb"
Debug.Print(Application.StartupPath & "\database.mdb")
objConn.Open()
objCmd.Connection = objConn
objCmd.CommandText = "select * from Commands"
objDataReader = objCmd.ExecuteReader()
'有结果的语句用ExecuteReader()，例如SELECT
While objDataReader.Read()
MsgBox(objDataReader.GetString(0) & "," & objDataReader.GetString(1))
'objDataReader.GetString(0)是获取objDataReader中的第一列的数据，以此类推。
End While