优化：Private Sub CommandButton2_ClickDim conn As ADODBConnectionSet conn = New ADODBConnectionconnOpen Provider=MicrosoftACEOLEDB120;Data Source=E检测设备导热系数测定仪drxsZWHmdbDim cmd As ADODBCommandSet cmd = Ne

Private Sub CommandButton2_Click() Dim conn As ADODB.Connection Set conn = New ADODB.Connection conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\检测设备\导热系数测定仪\drxs\ZWH.mdb"

Dim cmd As ADODB.Command Set cmd = New ADODB.Command cmd.ActiveConnection = conn cmd.CommandText = "insert into 测试报告(序号,试验编号,检验单位,产品名称,试件规格,试件面积,试件厚度,试件形式,状态调节,材料名称,检验依据,采样日期,采样时间,采样时间1,采样时间2,采样时间3,采样时间4,热流1,热流2,热流3,热流4,计量板温度1,计量板温度2,计量板温度3,计量板温度4,计量板边缘温度1,计量板边缘温度2,计量板边缘温度3,计量板边缘温度4,防护板温度1,防护板温度2,防护板温度3,防护板温度4,外防护板温度1,外防护板温度2,外防护板温度3,外防护板温度4,冷板温度1,冷板温度2,冷板温度3,冷板温度4,计量板功率1,计量板功率2,计量板功率3,计量板功率4,导热系数1,导热系数2,导热系数3,导热系数4,委托号,检测号,计量板中心给定温度,冷板给定温度,采样次数,热流计,附加厚度,附加热阻,导热系数9) values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)" With cmd.Parameters .Append .CreateParameter("value0", adVarChar, adParamInput, 255, Range("N1").Value) '序号 .Append .CreateParameter("value1", adVarChar, adParamInput, 255, Range("Q2").Value) '试验编号 .Append .CreateParameter("value2", adVarChar, adParamInput, 255, "沈阳紫微机电设备有限公司") '检验单位 .Append .CreateParameter("value3", adVarChar, adParamInput, 255, 1) '产品名称 .Append .CreateParameter("value4", adVarChar, adParamInput, 255, Range("S3").Value) '试件规格 .Append .CreateParameter("value5", adVarChar, adParamInput, 255, Range("C17").Value) '试件面积 .Append .CreateParameter("value6", adVarChar, adParamInput, 255, Range("G17").Value) '试件厚度 .Append .CreateParameter("value7", adVarChar, adParamInput, 255, "随机抽样") '试件形式 .Append .CreateParameter("value8", adVarChar, adParamInput, 255, "二级环境标准") '状态调节 .Append .CreateParameter("value9", adVarChar, adParamInput, 255, Range("Q1").Value) '材料名称 .Append .CreateParameter("value10", adVarChar, adParamInput, 255, "GB/T10294-2008") '检验依据 .Append .CreateParameter("value11", adVarChar, adParamInput, 255, Range("N5").Value) '采样日期 .Append .CreateParameter("value12", adVarChar, adParamInput, 255, Range("A6").Value) '采样时间 .Append .CreateParameter("value13", adVarChar, adParamInput, 255, Range("A6").Value) .Append .CreateParameter("value14", adVarChar, adParamInput, 255, Range("A7").Value) .Append .CreateParameter("value15", adVarChar, adParamInput, 255, Range("A8").Value) .Append .CreateParameter("value16", adVarChar, adParamInput, 255, Range("A9").Value) '采样时间4 .Append .CreateParameter("value17", adVarChar, adParamInput, 255, Range("C6").Value) .Append .CreateParameter("value18", adVarChar, adParamInput, 255, Range("C7").Value) .Append .CreateParameter("value19", adVarChar, adParamInput, 255, Range("C8").Value) .Append .CreateParameter("value20", adVarChar, adParamInput, 255, Range("C9").Value) '热流4 .Append .CreateParameter("value21", adVarChar, adParamInput, 255, Range("B6").Value) .Append .CreateParameter("value22", adVarChar, adParamInput, 255, Range("B7").Value) .Append .CreateParameter("value23", adVarChar, adParamInput, 255, Range("B8").Value) .Append .CreateParameter("value24", adVarChar, adParamInput, 255, Range("B9").Value) '计量板温度4 .Append .CreateParameter("value25", adVarChar, adParamInput, 255, Range("F6").Value) .Append .CreateParameter("value26", adVarChar, adParamInput, 255, Range("F7").Value) .Append .CreateParameter("value27", adVarChar, adParamInput, 255, Range("F8").Value) .Append .CreateParameter("value28", adVarChar, adParamInput, 255, Range("F9").Value) '计量板边缘温度4 .Append .CreateParameter("value29", adVarChar, adParamInput, 255, Range("D6").Value) .Append .CreateParameter("value30", adVarChar, adParamInput, 255, Range("D7").Value) .Append .CreateParameter("value31", adVarChar, adParamInput, 255, Range("D8").Value) .Append .CreateParameter("value32", adVarChar, adParamInput, 255, Range("D9").Value) '防护板温度4 .Append .CreateParameter("value37", adVarChar, adParamInput, 255, Range("G6").Value) .Append .CreateParameter("value38", adVarChar, adParamInput, 255, Range("G7").Value) .Append .CreateParameter("value39", adVarChar, adParamInput, 255, Range("G8").Value) .Append .CreateParameter("value33", adVarChar, adParamInput, 255, Range("G9").Value) '外防护板温度4 .Append .CreateParameter("value34", adVarChar, adParamInput, 255, Range(