vb里如何把每一行的前三个数提取出来,然后添加到MDB表里呢??

Question

如题所述

Answer 1

Private Sub Command1_Click()
Dim s
'数据库连接
Dim db As Connection
Dim rs As Recordset
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=C:\BIBLIO.MDB;"
Set rs = New Recordset
rs.Open "select * from Authors", db, adOpenStatic, adLockOptimistic
s = Split(Text1.Text, vbCrLf)
For i = LBound(s) To UBound(s)
rs.AddNew
rs("df").Value = Left(s(i), 3)
rs.Update
Next i
rs.close
set rs=nothing
db.close
set db=nothing
End Sub

Answer 2

你一共有几行