Dim cmd As New SQLCommand
cmd.Connec tion Name = "zygl"
dim kz as string = ".Controls("DateTimePicker1").Value, .Controls("TextBox1").Text, .Controls("ComboBox1").Text, .Controls("DateTimePicker2").Value, .Controls("TextBox2").Text, .Controls("TextBox3").Text, .Controls("TextBox4").Text, .Controls("TextBox5").Text, .Controls("ComboBox2").Text, .Controls("TextBox6").Text, .Controls("NumericComboBox1").Value"
dim sql as string = "Insert Into [患者] (登记日期,姓名,性别,出生日期,年龄,地址,电话,联系人,费用类别,住院次数,医农保证号) "
sql = sql & " Values(kz)"
cmd.CommandText = sql
cmd.ExecuteNonQuery()
e.form.close()
取当前窗口各控件录入的值写入表,系统提示红色部分出错,为什么呢?
另外能否精简?
[此贴子已经被作者于2009-1-6 16:25:47编辑过]
加好友 
发短信
菜鸟中的老鸟
Post By：2009/1/6 16:23:00 [只看该作者]
