vb 添加数据到数据库中

来源：百度知道 编辑：UC知道 时间：2024/05/30 19:12:17
conn2.Execute ("insert into khgl values('" & Trim(DTP1.Value) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Text7.Text)) & "','" & Trim(Combo1.Text) & "','" & Trim(Text8.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Combo3.Text) & "','" & Trim(Combo4.Text) & "','" & Trim(DTP3.Value) & "','" & Trim(Combo5.Text) & "','" & Trim(Combo6.Text) & "','" & Trim(DTP2.Value) & "','" & Trim(Text9.Text) & "','" & Trim(Text10.Text) & "','" & Trim(Text11.Text) & "','" & Trim(Text12.Text) & "'

If Check1.Value = Checked Then
conn2.Execute ("insert into khgl values('" & Trim(DTP1.Value) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Text7.Text)) & "','" & Trim(Combo1.Text) & "','" & Trim(Text8.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Combo3.Text) & "','" & Trim(Combo4.Text) & "','" & Trim(DTP3.Value) & "','" & Trim(Combo5.Text) & "','" & Trim(Combo6.Text) & "',null,'" & Trim(Text9.Text) & "','" & Trim(Text10.Text) & "','" & Trim(Text11.Text) & "','" & Trim(Text12.Text) &