求数据库的连接，添加，更新，删除代码！谢谢！

Question

access的数据库
要实现添加，更新，删除的功能，我用的是ado控件连接的数据库。
求代码！谢谢！
另外，请问要浏览数据库的话（就是把数据库里面的所有内容都显示出来），用什么形势比较好，用表格还是什么？由于小弟以前编的都是asp的代码，不知道vb里面怎么实现这样的功能，各位老大赐教！！谢谢！！

Answer 1

好多方法哦这是我连接的方法
这个是连接在程序目录里的数据库的。Dim str As String
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "\数据库名"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表名"这样也可以连接你右键ADODC有“ADODC属性”
选用字符串连接  点生成  提供者选Microsoft.Jet.OLEDB.4.0   连接里面选中你的数据库
这样应该可以啦。。我也是初学VB

Answer 2

可是怎么才能实现数据的输出呀！比如说要把数据库里面某一张表的某一条纪录输出到文本框里面！！
adodb1.recordset
adodb1.recordset.movefirst
接下来怎么做

Answer 3

你用datagrid 呀！
Dim Rst As New ADODB.Recordset
  Dim conn As New ADODB.Connection
    Set Rst = New ADODB.Recordset
    Set conn = New ADODB.Connection
     conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;Data source=" & App.Path & "\data\book.mdb"
   conn.CursorLocation = adUseClient
   conn.Open
     Rst.ActiveConnection = conn
    Dim Sql As String
     Sql = "select * from bookinfo"
     Rst.Open Sql, conn, 3, 3
     Set DataGrid1.DataSource = Rst

Answer 4

Dim str As String
str = App.Path
If Right(str, 1) <> "\" Then
str = str + "\"
End If
str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "\数据库名"
Adodc1.ConnectionString = str
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表名"

Answer 5

打开记录集之后，就可以用
   text1.text=rs.fields!字段名

Answer 6

我用上面几位大哥的代码怎么连不上数据库呀！总告诉我object required
Adodc1.ConnectionString = str这行总是报错！另外请问App.Path 是什么东西，是默认的工程目录吗？还什么其他参数
（呵呵，不好意思，就那么点分文了这么多问题，可是小弟是个新手，问的问题太多了，实在没剩多少分了，各位海涵！谢谢！）

Answer 7

你可以在adodc1的属性窗口中联接数据源啊！这样就不会报错了
adodc1.addnew
adodc1.updata
adodc1.delete

Answer 8

在属性窗口添加数据源的话！都要添那几项呀！
并且那个command text里面用不用添东西，如果用添，那么整个的ado控件代表的哪部分数据？
要是不用添，有代表的是哪部分数据，或者说那个数据集，还是那个对象！用控件添加的话，我要怎么才能调出数据，真样写入sql语句对数据库进行操作！！

Answer 9

来信，给你一个源代码：[email protected]