Dim hh,xm,gx,cym,xb,csd,mz,jg,dz,xy,sfh,sg,xx,wh,hk,by,fw,zy,hd,hs,qz,lx,jm,jg1 As String
Dim csrq,djrq,qvrq,yxrq As Date
Dim zp As Image
hh=e.Form.Controls("textbox1").text
xm=e.Form.Controls("textbox5").text
sfh=e.Form.Controls("textbox6").text
gx=e.Form.Controls("combobox1").text
cym=e.Form.Controls("textbox7").text
xb=e.Form.Controls("textbox8").text
csd=e.Form.Controls("textbox9").text
mz=e.Form.Controls("combobox2").text
gx=e.Form.Controls("textbox01").text
csrq=e.Form.Controls("datetimepicker1").text
dz=e.Form.Controls("textbox03").text
xy=e.Form.Controls("combobox4").text
sg=e.Form.Controls("textbox02").text
xx=e.Form.Controls("textbox3").text
wh=e.Form.Controls("combobox5").text
hk=e.Form.Controls("combobox6").text
by=e.Form.Controls("combobox7").text
fw=e.Form.Controls("textbox10").text
zy=e.Form.Controls("textbox12").text
hd=e.Form.Controls("textbox06").text
hs=e.Form.Controls("textbox07").text
Dim cmd As New SQLCommand
cmd.C
cmd.CommandText = "Insert Into hkxx (户号,姓名,身份证号,户主与户主关系,曾用名,性别,出生地,民族,籍贯,出生日期,本市其他地址,宗教信仰,身高,血型,文化程度,婚姻状况,兵役状况,服务处所,职业,何时由何地迁来本市/县,何时由何地迁来本址,承办签章) values ('" & hh & "','" & xm & "','" & sfh & "','" & gx & "','" & cym & "','" & xb & "','" & csd & "','" & mz & "','" & jg & "','" & cdate(csrq) & "','" & dz & "','" & xy & "','" & sg & "','" & xx & "','" & wh & "','" & hk & "','" & by & "','" & fw & "','" & zy & "','" & hd & "','" & hs & "')"
cmd.ExecuteNonQuery()
我执行这段代码时，总出错，insert into 错误，请指教
加好友 
发短信
Post By：2014/7/15 16:55:00 [显示全部帖子]
此主题相关图片如下：qq截图20140715174427.jpg