如何一次往数据库里写入多条记录？

bitzl210 2005-12-30 09:35:53

Myrs.Open "select * from [CzInformation]", Mycon, 1, 3
Myrs.AddNew
For i = 1 To (cmbCzzs.ListIndex + 1)
Myrs!车站号 = i
Myrs!车站名 = Trim(txtZm(i).Text)

If cmbZjqLeft(i).ListIndex <> 0 Then
Myrs!左侧起始 = "1"

If cmbZjqLeft(i).ListIndex <> cmbZjqAll(i).ListIndex Then
Myrs!右侧起始 = cmbZjqAll(i).ListIndex - cmbZjqLeft(i).ListIndex

Else
Myrs!右侧起始 = "0"

End If
Myrs.Update
Else
If cmbZjqAll(i).ListIndex <> 0 Then
Myrs!左侧起始 = "0"

Myrs!右侧起始 = "1"

End If
Myrs.Update
End If
Next
Myrs.Close

我这样写进数据库的记录，只存了最后一条。
请问怎么样可以按我想的，一下存50条？

...全文

107 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

bitzl210 2005-12-30

打赏
举报

谢谢

faysky2 2005-12-30

打赏
举报

Myrs.Open "select * from [CzInformation]", Mycon, 1, 3

For i = 1 To (cmbCzzs.ListIndex + 1)
Myrs.AddNew '这句移到这里
Myrs!车站号 = i
Myrs!车站名 = Trim(txtZm(i).Text)

If cmbZjqLeft(i).ListIndex <> 0 Then
Myrs!左侧起始 = "1"

If cmbZjqLeft(i).ListIndex <> cmbZjqAll(i).ListIndex Then
Myrs!右侧起始 = cmbZjqAll(i).ListIndex - cmbZjqLeft(i).ListIndex

Else
Myrs!右侧起始 = "0"

End If
'Myrs.Update '这句注释掉
Else
If cmbZjqAll(i).ListIndex <> 0 Then
Myrs!左侧起始 = "0"

Myrs!右侧起始 = "1"

End If
'Myrs.Update '这句注释掉
End If
Next
Myrs.UpdateBatch '批量更新
Myrs.Close