VBA 代码：将数据插入 ParamFactValue 表

Set conn = New ADODB.Connection conn.Open 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\力学\VBA测试\New.mdb'

Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd.ActiveConnection = conn For i = 0 To 1 cmd.CommandText = 'insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)' cmd.Parameters.Append cmd.CreateParameter('value0', adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter('value1', adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter('value2', adVarChar, adParamInput, 255, '试验项目号') cmd.Parameters.Append cmd.CreateParameter('value6', adVarChar, adParamInput, 255, 0) Next i cmd.Execute For i = 1 To 2 cmd.CommandText = 'insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)' cmd.Parameters.Append cmd.CreateParameter('value0', adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter('value1', adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter('value2', adVarChar, adParamInput, 255, '试验编号') cmd.Parameters.Append cmd.CreateParameter('value6', adVarChar, adParamInput, 255, 0) Next i cmd.Execute For i = 2 To 3 cmd.CommandText = 'insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)' cmd.Parameters.Append cmd.CreateParameter('value0', adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter('value1', adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter('value2', adVarChar, adParamInput, 255, '试样编号') cmd.Parameters.Append cmd.CreateParameter('value6', adVarChar, adParamInput, 255, 0) Next i cmd.Execute For i = 3 To 4 cmd.CommandText = 'insert into ParamFactValue(TestNo,littleNo,Name,UserOrResultParam) values (?,?,?,?)' cmd.Parameters.Append cmd.CreateParameter('value0', adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter('value1', adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter('value2', adVarChar, adParamInput, 255, '试样数目') cmd.Parameters.Append cmd.CreateParameter('value6', adVarChar, adParamInput, 255, 0) Next i cmd.Execute For i = 4 To 5 cmd.CommandText = 'insert into ParamFactValue(TestNo,littleNo,Name,TheValue,Unit,UserOrResultParam) values (?,?,?,?,?,?)' cmd.Parameters.Append cmd.CreateParameter('value0', adVarChar, adParamInput, 255, 1052) '检测过程的编号 cmd.Parameters.Append cmd.CreateParameter('value1', adVarChar, adParamInput, 255, i) '头编号 cmd.Parameters.Append cmd.CreateParameter('value2', adVarChar, adParamInput, 255, '试样初始厚度h0') cmd.Parameters.Append cmd.CreateParameter('value3', adVarChar, adParamInput, 255, 40) cmd.Parameters.Append cmd.CreateParameter('value4', adVarChar, adParamInput, 255, 'mm') cmd.Parameters.Append cmd.CreateParameter('value6', adVarChar, adParamInput, 255, 0) Next i cmd.Execute conn.Close Set conn = Nothing