28,391
社区成员
发帖
与我相关
我的任务
分享
<%
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\AA.mdb;"
Set rs = CreateObject("ADODB.RecordSet")
rs.CursorLocation = 3
rs.Open "SELECT * FROM xxx WHERE 1=0",conn,1, 4
a = Split(s, VBCrLf)
For i = 0 To UBound(a)
If Trim(a(i))<>"" Then
rs.AddNew
b = Split(a(i), " ")
For j=0 To UBound(b)
rs(j) = b(j)
Next
End If
Next
rs.UpdateBatch
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>