我原来是做asp的，现在想搞搞vb,但很多不懂，请指教一个关于数据库连接的问题？

Question

dim tempRs as recordset
set tempRs=yourDB.openrecordset("select * from table")
with tempRs 
    .addnew
    .field("neirong")=text1.text
    .update
end with

Answer 1

Dim db As Database
Dim rs As RecordsetSet db=OpenDatabase("DBName",False,False)
Set rs=db.OpenRecordset("RSName",DbOpenDynaset)
rs.AddNew
rs.Fields("FieldName")=Text1.Text
rs.Update

Answer 2

为什么提示
编译错误：
用户定义类型未定义
请问错在哪儿了??
Private Sub Command1_Click()
Dim db As Database
Dim rs As RecordsetSet db = OpenDatabase("E:\vb\database.mdb", False, False)
Set rs = db.OpenRecordset("guest", DbOpenDynaset)
rs.AddNew
rs.Fields("neirong") = Text1.Text
rs.Update
  
End Sub

Answer 3

上面的数据访问要选择引用DAO3.5或者DA04.0

Answer 4

我都引用了，但现在提示
 实时错误'3343'
 不可识别的数据库格式'E:\vb\database.mdb'。
请问又哪儿错了？Private Sub Command1_Click()
Dim db As Database
Dim rs As RecordsetSet db = OpenDatabase("E:\vb\database.mdb", False, False)
Set rs = db.OpenRecordset("guest", DbOpenDynaset)
rs.AddNew
rs.Fields("neirong") = Text1.Text
rs.Update
  
End Sub

Answer 5

用ado吧，跟ASP里一样引用ado2.1或其它版本
dim conn as new adodb.connection
conn.open "driver={microsoft access driver (*.mdb);dbq=E:\vb\database.mdb"
conn.execute "insert into guest neirong value ('" & text1.text & "')"

Answer 6

若用ACCESS97，引用DA03.5 即可

Answer 7

用的是access2000，antshome(我也.net了) ：引用了ado2.6
但还是不行：实时错误'-2147217805 (80040e73)'
指定的初始化字符串不符合OLE DB规定

Answer 8

使用asp能连接的，vb中用ado也能连接，  asp中，就是使用ado

Answer 9

我用conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\database.mdb;Persist Security Info=False"这个方法连接上了，请问它和ado方法有什么区别?

Answer 10

你用的是access2000，引用ADO2.6当然不行，要ADO2.7，如果找不到，请把VB6升级到sp5看看。

Answer 11

用ado2.6能行，但得用conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\vb\database.mdb;Persist Security Info=False"语句，我现在想把记录显示出来请问怎么办?

Answer 12

我搞错了，引用ADO2.6或2.7都是可以的，但连接格式用
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data  Source=E:\vb\database.mdb"
    conn.Open ConnStr
    
    rs.CursorLocation = adUseClient
    rs.Open "数据表名", conn, adOpenKeyset, adLockPessimistic
必须强调，Provider必须等于Microsoft.Jet.OLEDB的4.0版本以上，否则不能打开access2000的mdb文件。

Answer 13

我刚才搞错了，用ado2.6也可以，但连接用
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=E:\Microsoft Visual Studio\Vbprog\AcademicRecord\wlhxtk.mdb"
    conn.Open ConnStr
    
    rs.CursorLocation = adUseClient
    rs.Open "Z4", conn, adOpenKeyset, adLockPessimistic
语句。这里强调一下，Provider必须等于Microsoft.Jet.OLEDB的4.0版本以上，否则不能打开access2000的mdb文件。
你想如何显示记录？逐条记录显示吗？
可用list控件显示，例如
rs.MoveFirst
List1.Clear
While Not rs.EOF
  S=""
  For i=0 To rs.Fields.Count-1
  S=S&rs.Fields(i).Value&Chr(vbKeyTab)
    Next
    List1.AddItem S
    rs.MoveNext
Wend

Answer 14

类似于这样：
Set ConnUser = CreateObject("adodb.connection")
Set RsUser = CreateObject("ADODB.Recordset")
ConnUserStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + AppPath + "\mdb\user.mdb"
ConnUser.Open ConnUserStr
RsUser.CursorLocation = adUseServer ' adUseClient
SQL = "Select * From theuser where 操作 = true order by 操作"
RsUser.Open SQL, ConnUserStr, adOpenKeyset, adLockPessimistic
DoEvents
If RsUser.EOF = False And RsUser.BOF = False Then
   ReDim strLvShi(RsUser.RecordCount)
   While RsUser.EOF = False
        strLvShi(i) = RsUser.Fields("姓名")
        RsUser.MoveNext
        i = i + 1
        DoEvents
   Wend
End If这是我以前写的一段程序，作用是把 数据库中的姓名字段读到动态书组里