一个简单的问题？

Question

Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim cnn2 As New ADODB.Connection
    
    cnn.CursorLocation = adUseClient
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\db2.mdb;Persist Security Info=False"
    cnn2.CursorLocation = adUseClient
    cnn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\db3.mdb;Persist Security Info=False"
    
    rs.Open "a", cnn, , adLockBatchOptimistic
    Set rs.ActiveConnection = Nothing
    Set rs.ActiveConnection = cnn2
    rs.UpdateBatch
    rs.Close
    cnn.Close
    cnn2.Close详细还请看C:下Search ADo*.CHM

Answer 1

Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\...\db1.mdb;Persist Security Info=False"
    rs.Open "sql语句", cn, adOpenStatic, adLockBatchOptimistic
    
End Sub

Answer 2

我现在要把text1里面的内容插到表中，具体怎么做？

Answer 3

补充：
set rs=nothing
set cnn=nothing释放资源

Answer 4

rs.add
rs.fields(0)=text1.text
rs.update
或者
cnn.execute "insert into ..."

Answer 5

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
在哪定义？

Answer 6

你有邮箱吗，我发给你。我刚做完一个ado访问sql server的程序

Answer 7

连接与记录集变量可以申明成全局的或者局域的，这要看你怎么用它了，我觉得这样申明更简洁，一步到位：
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Answer 8

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\...\db1.mdb;Persist Security Info=False"这句编译总有问题请详细解释一下。

Answer 9

to  smail将军我已将邮箱给你。