sql问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → sql问题

共有3117人关注过本帖树形打印复制链接主题：sql问题

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：404 积分：3561 威望：0 精华：0 注册：2014/1/8 17:12:00

sql问题

Post By：2014/2/18 11:08:00 [只看该作者]

为什么以下代码运行并无提示出错，但实际数据库里边并没有增加记录。

Dim nms() As String = e.Form.Controls("CheckedComboBox1").text.split(",") '获得接收用户名

Dim cmd As New SQLCommand

cmd.C

For Each nm As String In nms

'If nm = "" Then

'Return

'End If

'If nm = User.Name Then

'MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

'Return

'End If

cmd.CommandText = "Insert Into xinxi (fasong,jieshou,zhuangtai) Values ('" & user.name & "','" & nm & "',0)"

cmd.ExecuteNonQuery

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：404 积分：3561 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/18 11:09:00 [只看该作者]

Dim nms() As String = e.Form.Controls("CheckedComboBox1").text.split(",") '获得接收用户名

Dim cmd As New SQLCommand

cmd.C

For Each nm As String In nms

'If nm = "" Then

'Return

'End If

'If nm = User.Name Then

'MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

'Return

'End If

cmd.CommandText = "Insert Into xinxi (fasong,jieshou,zhuangtai) Values ('" & user.name & "','" & nm & "',0)"

cmd.ExecuteNonQuery

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：404 积分：3561 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/18 11:10:00 [只看该作者]

Dim nms() As String = e.Form.Controls("CheckedComboBox1").text.split(",") '获得接收用户名

Dim cmd As New SQLCommand

cmd.C

For Each nm As String In nms

If nm = "" Then

Return

End If

If nm = User.Name Then

MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

cmd.CommandText = "Insert Into xinxi (fasong,jieshou,zhuangtai) Values ('" & user.name & "','" & nm & "',0)"

cmd.ExecuteNonQuery

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：404 积分：3561 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/18 11:11:00 [只看该作者]

晕阿，为什么复制后，少了东西啊。

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：404 积分：3561 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/18 11:13:00 [只看该作者]

Dim nms() As String = e.Form.Controls("CheckedComboBox1").text.split(",") '获得接收用户名

Dim cmd As New SQLCommand

cmd.ConnectionName = "shenchan"

For Each nm As String In nms

If nm = "" Then

Return

End If

If nm = User.Name Then

MessageBox.Show("不能给自己发信息!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

End If

cmd.CommandText = "Insert Into xinxi (fasong,jieshou,zhuangtai) Values ('" & user.name & "','" & nm & "',0)"

cmd.ExecuteNonQuery

cuicuibing

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

加好友

发短信

等级：一尾狐帖子：404 积分：3561 威望：0 精华：0 注册：2014/1/8 17:12:00

Post By：2014/2/18 11:15:00 [只看该作者]

请帮忙看看，为什么没有数据库没有添加记录，运行没有提示错误，选择自己的时候，有正确提示。

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/18 11:23:00 [只看该作者]

你是到数据库里查看,还是到狐表里查看啊, 狐表里的话要重新加载刷新才能看到数据的哦

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

主题：sql问题