Vb6 此子过程中存在类型不匹配错误,有人可以帮助我吗
缺少列 SQL插入SELECT语句Vb6 此子过程中存在类型不匹配错误,有人可以帮助我吗,vb6,ms-access-2003,Vb6,Ms Access 2003,缺少列 SQL插入SELECT语句 正确设置日期值表达式的格式: Private Sub cmdenter_Click() If Option1.Value = True Then db.Execute "Insert into TM_REGISTRATION values('" + txtregdn.Text + "','" + txtformno.Text + "','" + Combo1.Text + "','" + Format(mskadmdt.Text, "
正确设置日期值表达式的格式:
Private Sub cmdenter_Click()
If Option1.Value = True Then
db.Execute "Insert into TM_REGISTRATION values('" + txtregdn.Text + "','" + txtformno.Text + "','" + Combo1.Text + "','" + Format(mskadmdt.Text, "mm-dd-yyyy") + "','" + studentname.Text + "','" + Combo2.Text + "','" + fname.Text + "','" + fmobile.Text + "','" + mname.Text + "','" + mmobile.Text + "','" + gname.Text + "','" + gmobile.Text + "','" + Format(mskdob.Text, "mm-dd-yyyy") + "',1,0,'" + Combo3.Text + "','" + Combo4.Text + "','" + Combo5.Text + "','" + Combo6.Text + "','" + txtaddress1.Text + "','" + txtaddress2.Text + "','" + district.Text + "','" + pincode.Text + "','" + Picture1.Picture + "')"
ElseIf Option2.Value = True Then
db.Execute "Insert into TM_REGISTRATION values('" + txtregdn.Text + "','" + txtformno.Text + "','" + Combo1.Text + "','" + Format(mskadmdt.Text, "mm-dd-yyyy") + "','" + studentname.Text + "','" + Combo2.Text + "','" + fname.Text + "','" + fmobile.Text + "','" + mname.Text + "','" + mmobile.Text + "','" + gname.Text + "','" + gmobile.Text + "','" + Format(mskdob.Text, "mm-dd-yyyy") + "',0,1,'" + Combo3.Text + "','" + Combo4.Text + "','" + Combo5.Text + "','" + Combo6.Text + "','" + txtaddress1.Text + "','" + txtaddress2.Text + "','" + district.Text + "','" + pincode.Text + "','" + Picture1.Picture + "')"
End If
End Sub
您收到的确切错误消息是什么?它是来自VB6还是来自Access?
db.Execute "Insert into TM_REGISTRATION values('" + txtregdn.Text + "','" + txtformno.Text + "','" + Combo1.Text + "',#" + Format(mskadmdt.Text, "yyyy\/mm\/dd") + "#,'" + studentname.Text + "','" + Combo2.Text + "','" + fname.Text + "','" + fmobile.Text + "','" + mname.Text + "','" + mmobile.Text + "','" + gname.Text + "','" + gmobile.Text + "',#" + Format(mskdob.Text, "yyyy\/mm\/dd") + "#,1,0,'" + Combo3.Text + "','" + Combo4.Text + "','" + Combo5.Text + "','" + Combo6.Text + "','" + txtaddress1.Text + "','" + txtaddress2.Text + "','" + district.Text + "','" + pincode.Text + "','" + Picture1.Picture + "')"