vb2010 DataGridView insert 到数据库

erichfromm 2013-03-22 12:42:57

sqlStr &= "" & CType(DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i), Object) & ""
提示错误信息为：
没有为字符串“” 和类型“DataGridViewTextBoxCell” 定义运算符“&”。

数据库表：字段类型都已经改成了nchar(10)

以下是click事件代码：

Private Sub 保存_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 保存.Click
Dim sqlStr As String = "insert into 表1 values("
Dim i As Integer
For i = 0 To DataGridView1.Columns.Count - 1
sqlStr &= "" & CType(DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i),Object) & ""
If i < DataGridView1.Columns.Count - 1 Then sqlStr &= ","
Next
sqlStr &= ")"
Dim cmd As 数据命令类DBCommand = New 数据命令类DBCommand(New 数据库连接类ConnectionString().连接信息ConnectionInfo)
If cmd.Insert(sqlStr) > 0 Then
MsgBox("保存成功！", MsgBoxStyle.DefaultButton1, "业务模块")
Else
MsgBox("保存失败!请联系系统管理员。")
End If
End Sub

...全文

96 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

gxingmin 2013-03-22

打赏
举报

上面是ToString()，少写了g

gxingmin 2013-03-22

打赏
举报

if not (DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i) is nothing) then
sqlStr &= "" & DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i).Value.ToStrin() & "" 
end if

erichfromm 2013-03-22

打赏
举报

这样的话程序都不让我调试，，报错：错误 1 没有为类型“String”和“System.Windows.Forms.DataGridViewCell”定义运算符“&”。

gxingmin 2013-03-22

打赏
举报

sqlStr &= "" & DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i) & ""

gxingmin 2013-03-22

打赏
举报

if not (DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i).Value is nothing) then sqlStr &= "" & DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(i).Value.ToString() & "" end if

erichfromm 2013-03-22