Question

VB中，如果将listbox的内容保存到access中的a表a字段里？

listbox中的内容生成出来，可能有几千个，数量不定，如果全部保存到access的语句是？

Answer 1

db = App.Path & "\shuju.mdb" '数据库
connstr = "DBQ=" + db + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn = CreateObject("ADODB.Connection")
conn.Open connstr
Set oRs = CreateObject("ADODB.Recordset")
sSQL = "Select * From a"
oRs.open Ssql,conn,1,3
for n=0 to List1.ListCount-1
oRs.AddNew()
astr = List1.List(n)
oRs("a") = astr
oRs.Update()
next
oRs.Close()
Set oRs = Nothing
Set conn = Nothing