Question

vb 写入access数据库问题

我的access数据库就一个表（lujing） 表里有两个列分别是id（数据类型是自动排序）dizhi（数据类型是文本）
怎么把listbox里读取到的文件地址信息存入表（路径）里的dizhi l列里

Private Sub Command1_Click()
Dim DlgInfo As DlgFileInfo
Dim i As Integer
Dim cnn As New Connection
Dim rst As Recordset
'选择文件
List1.Clear
With CommonDialog1
.CancelError = flase
.MaxFileSize = 32767 '被打开的文件名尺寸设置为最大，即32K
.Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer
.DialogTitle = "选择文件"
.Filter = "所有类型的文件(*.*)|*.*"
.ShowOpen
DlgInfo = GetDlgFileInfo(.FileName)
End With
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & App.Path & "\ls.mdb"
Set rst = New ADODB.Recordset
rst.Open "lujing", cnn, 3, 3
For i = 1 To DlgInfo.iCount
List1.AddItem DlgInfo.sPath & DlgInfo.sFile(i)
rst.AddNew
rst.Fields("dizhi").Value = List1.List(i)
rst.Update
Next i
MediaPlayer1.URL = List1.List(0)
For i = 0 To List1.ListCount - 1
Next
Exit Sub
ErrHandle: '按了“取消”按钮

End Sub
程序运行没问题 但是数据库里的dizhi列里没数据写入

Answer 1

有三句代码位置错了，（添加记录、写入）

请参考

For I = 0 To List1.ListCount - 1
    rst.AddNew
    rst!dizhi = List1.List(I)
    rst.Update
Next