老师帮忙看看,哪里错了?能精简吗? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师帮忙看看,哪里错了?能精简吗?

共有25117人关注过本帖树形打印复制链接主题：老师帮忙看看,哪里错了?能精简吗?

菜鸟foxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

老师帮忙看看,哪里错了?能精简吗? 发帖心情

Post By：2009/1/6 16:23:00 [只看该作者]

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编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/1/6 16:34:00 [只看该作者]

这一行代码包含很多很多的错误啊。

补一下动态合成表达式的知识吧，位于帮助文件“开发篇 - Foxtable编程 - 时间编程 - 单引号和双引号”
此外还要注意表达式中，字符用单引号括起来，日期用符号#括起来，数值不用括起来的。

狐狸爸爸

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/1/6 16:39:00 [只看该作者]

我觉得你还是别用SQL插入数据，严谨的代码会非常的长

用foxtable自带的增加行功能：

Dim r As Row = Tables("患者").AddNew
r("登记日期") = e.Form.Controls("DateTimePicker1").Value
r("姓名") = e.Form.Controls("TextBox1").Value
......

菜鸟foxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/1/6 16:42:00 [只看该作者]

以下是引用狐狸爸爸在2009-1-6 16:39:00的发言：
我觉得你还是别用SQL插入数据，严谨的代码会非常的长

用foxtable自带的增加行功能：

Dim r As Row = Tables("患者").AddNew
r("登记日期") = e.Form.Controls("DateTimePicker1").Value
r("姓名") = e.Form.Controls("TextBox1").Value
......

图片点击可在新窗口打开查看这样子如果控件过多,那不是太麻烦了?要写好半天..

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/1/6 16:44:00 [只看该作者]

以下是引用菜鸟foxtable在2009-1-6 16:42:00的发言：

图片点击可在新窗口打开查看这样子如果控件过多,那不是太麻烦了?要写好半天..

那也比你用SQL方便多了。

ybil

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：521 积分：4916 威望：0 精华：7 注册：2008/9/2 22:22:00

Post By：2009/1/7 0:03:00 [只看该作者]

Dim r As Row
Dim TC, Tz As String
Tc = "DTP1,TtB1,CbB1,DTP2,TtB2,TtB3,TtB4,TtB5,CbB2,TtB6,NmB"
Tz ="登记日期,姓名,性别,出生日期,年龄,地址,电话,联系人,费用类别,住院次数,医农保证号"
r = Tables("患者").AddNew
For n As Integer = 0 to 10
r(Tz.split(",")(n))= e.form.Controls(Tc.split(",")(n)).Value
Next

狐狸爸爸	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00	Post By：2009/1/7 0:40:00 [只看该作者] 您无权查看精华帖子
	[本帖被加为精华]

yuanbin

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：102 积分：880 威望：0 精华：4 注册：2008/8/31 21:47:00

Post By：2009/1/7 8:35:00 [只看该作者]

学习了。

菜鸟foxtable

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：2009/1/7 8:50:00 [只看该作者]

以下是引用狐狸爸爸在2009-1-7 0:40:00的发言：

呵呵，我来改进一下：

Dim r As Row
Dim TC(), Tz() As String
Tc = "DTP1,TtB1,CbB1,DTP2,TtB2,TtB3,TtB4,TtB5,CbB2,TtB6,NmB".Split(",")
Tz = "登记日期,姓名,性别,出生日期,年龄,地址,电话,联系人,费用类别,住院次数,医农保证号".Split(",")
r = Tables("患者").AddNew
For n As Integer = 0 to 10
r(Tz(n))= e.form.Controls(Tc(n)).Value
Next

我对你的景仰.犹如滔滔江水,绵绵不绝图片点击可在新窗口打开查看

狐狸爸爸

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2009/1/7 9:15:00 [只看该作者]

以下是引用菜鸟foxtable在2009-1-7 8:50:00的发言：

我对你的景仰.犹如滔滔江水,绵绵不绝图片点击可在新窗口打开查看

真正解决问题的是YBIL

下一主题 >> << 上一主题

总数 12 1 2 下一页

主题：老师帮忙看看,哪里错了?能精简吗?