| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- sql问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46162) |
| -- 作者：cuicuibing -- 发布时间：2014/2/18 11:08:00 -- sql问题 为什么以下代码 运行并无提示出错，但实际数据库里边并没有增加记录。 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 Next
|
| -- 作者：cuicuibing -- 发布时间：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 Next
|
| -- 作者：cuicuibing -- 发布时间：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 Next |
| -- 作者：cuicuibing -- 发布时间：2014/2/18 11:11:00 -- 晕阿，为什么复制后，少了东西啊。 |
| -- 作者：cuicuibing -- 发布时间：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 Next |
| -- 作者：cuicuibing -- 发布时间：2014/2/18 11:15:00 -- 请帮忙看看，为什么没有数据库没有添加记录，运行没有提示错误，选择自己的时候，有正确提示。 |
| -- 作者：Bin -- 发布时间：2014/2/18 11:23:00 -- 你是到数据库里查看,还是到狐表里查看啊, 狐表里的话要重新加载刷新才能看到数据的哦 |