rs.addnew的问题

Question

可能数据库驱动没安装。
从微软网站下载安装mdac_type.exe试试。

Answer 1

代码如下：
Private Sub Command1_Click()
  Dim fso As New FileSystemObject
  Dim fil As File
  Dim i, j As Integer
  Dim ts As TextStream
  Dim cn As New ADODB.Connection
  Dim rs As New ADODB.Recordset
  Dim sql As String
 
  
  cn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=sale"
  sql = "select * from aa"
  Set fil = fso.GetFile("d:\1.txt")
  Set ts = fil.OpenAsTextStream(ForReading)
  
  Set rs = cn.Execute(sql)
  'rs.CursorLocation = adUseServer  Text1.Text = ts.ReadAll
  
  Dim a() As String
  Dim b() As String
  a = Split(Text1.Text, Chr(10)) '将每条记录分开存入数组中
  
  For i = 0 To 1000      '文件结尾
  If a(i) = "" Then Exit For
  Next
  j = i - 1
 MsgBox j
  
  
 For i = 0 To j - 1 b = Split(a(i), ",")  '将一条记录的每个字段的值分开存入数组中
 'MsgBox b(0)
 rs.AddNew
 rs.Fields(1) = CInt(b(0))
 'sql = "insert into aa(idcar,money1) values ('" & b(0) & "','" & b(14) & "')"
 Set rs = cn.Execute(sql)
 rs.Update
 rs.Close
 Next i
 
   
  ts.Close
End Sub

Answer 2

你的RS是只读的
用RS。OPEN CN，SQLSTR，1，3
RS。ADDNEW
就可以了

Answer 3

你的RS是只读的
用RS。OPEN SQLSTR，cn,1，3
RS。ADDNEW
就可以了