我的程序很简单，但就是运行有错误？

[LEONARD0824]

Public Sub unit_to_Access()
Dim tmpconnection As OleDb.OleDbConnection
Dim tmpadapter As Data.OleDb.OleDbDataAdapter
Dim tmpdataset As New DataSet()
Dim tmpbler As OleDb.OleDbCommandBuilder
Dim connectionstring As String
Dim commandstring As String
Dim tmpstring As String
Dim rowcount As Integer
Dim i, j As Integer
Dim tmprow As Data.DataRow

Try
commandstring = "select * from unit"
connectionstring = "provider=microsoft.jet.oledb.4.0;data source=f:\unit.mdb"
tmpconnection = New OleDb.OleDbConnection(connectionstring)
tmpadapter = New Data.OleDb.OleDbDataAdapter(commandstring, tmpconnection)
tmpbler = New OleDb.OleDbCommandBuilder(tmpadapter)
tmpadapter.Fill(tmpdataset, "unit")


With tmpdataset.Tables("unit")

.Clear()
For i = 1 To UnitNum
tmprow = .NewRow
For i = 0 To 17
tmprow.Item(i) = "1"
Next
.Rows.Add(tmprow)

Next

End With
tmpadapter.Update(tmpdataset, "unit")
Catch m As Exception
MessageBox.Show(m.ToString)

End Try

tmpdataset = Nothing
tmpbler = Nothing
tmpadapter = Nothing
tmpconnection.Close()
tmpconnection = Nothing

End Sub
我执行到tmpadapter.update，会发生错误，指明是“insert into”错误，但我不知道怎么回事，也不知道怎么解决？希望各位大虾帮忙

[hobo_boy]

跟踪调试一下

[LEONARD0824]

我的程序不是在变量定义方面错误,执行到tmpadapter.update，会发生错误，指明是“insert into”错误。但好像我的语法没有错误？

[hhuan]

1，你的第一层for循环的UnitNumm没有定义
2、两层循环变量都用i在vb6里是不允许的，也不是好习惯。
如果程序能执行，可能的原因是
1、由于UnitNumm没有定义，循环内的插入和赋值没有执行，这样就add了一条空记录，update时如果数据表定义了非空字段，可能会出错。
2、最好单步执行看看记录是否有值或检查有无重复插入的数据。

[bigrongshu]

1.循环换成i,j,否则逻辑错误,内循环执行完时候i=17了

2.你的表格和数据库中是否对应,是否是18列?

[Tongls]

真是不知道是什么东西！ 你去试一试! 注意的是CommanderBulider必须要更新，而且Dataset必须要AcceptChanges!

[LEONARD0824]

谢谢各位，我发现我的数据库某些字段有错误，不能有怪字符