共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]此段代码错在何处
1楼
ybmjy 发表于：2010/4/28 7:19:00Dim Multi As String = "姓名,性别,年龄"
Dim Values() as String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
if e.Form.Controls(Values(Index)).Value = nothing
MessageBox.Show("对不起,您输入的信息不全,请录入<" & Values(Index) & ">后再继续!", "提示")
e.Form.Controls(Values(Index)).Select()
Return
end if
dim y as String = ""
y = y & "," & Values(Index)
dim s as String = ""
s = s & ",'" & e.Form.Controls(Values(Index)).value & "'"
Dim scm as New SQLCommand
scm.ConnectionName = "y"
scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
scm.ExecuteNonQuery
Next
在向后台数据库中写入控件值时，为何一个控件的值在后台就是一行。如上代码将在后台数据库中写入3行
Dim Values() as String
Values = Multi.split(",")
For Index As Integer = 0 To Values.Length - 1
if e.Form.Controls(Values(Index)).Value = nothing
MessageBox.Show("对不起,您输入的信息不全,请录入<" & Values(Index) & ">后再继续!", "提示")
e.Form.Controls(Values(Index)).Select()
Return
end if
dim y as String = ""
y = y & "," & Values(Index)
dim s as String = ""
s = s & ",'" & e.Form.Controls(Values(Index)).value & "'"
Dim scm as New SQLCommand
scm.ConnectionName = "y"
scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
scm.ExecuteNonQuery
Next
在向后台数据库中写入控件值时，为何一个控件的值在后台就是一行。如上代码将在后台数据库中写入3行
2楼
狐狸爸爸 发表于：2010/4/28 8:59:00加入一行:
scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
Messagebox.show(scm.CommandText)
scm.ExecuteNonQuery
看看你合成的SQL语句是否正确
scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
Messagebox.show(scm.CommandText)
scm.ExecuteNonQuery
看看你合成的SQL语句是否正确
3楼
ybmjy 发表于：2010/4/28 9:12:00以下是引用狐狸爸爸在2010-4-28 8:59:00的发言：
加入一行:
scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
Messagebox.show(scm.CommandText)
scm.ExecuteNonQuery
看看你合成的SQL语句是否正确
加入一行:
scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")"
Messagebox.show(scm.CommandText)
scm.ExecuteNonQuery
看看你合成的SQL语句是否正确
控件值都能正确地写到相应的字段中，就是有几个控件就会增加几行，估计是循环语句的问题，可又不知如何弄了哈
4楼
狐狸爸爸 发表于：2010/4/28 9:28:00|
呵呵，你的scm.ExecuteNonQuery就在循环语句之中，每循环一次就插入一行，你应该将其挪到循环语句之外。 Dim Multi As String = "姓名,性别,年龄" Dim Values() as String Values = Multi.split(",") dim y as String = "" dim s as String = "" For Index As Integer = 0 To Values.Length - 1 if e.Form.Controls(Values(Index)).Value = nothing MessageBox.Show("对不起,您输入的信息不全,请录入<" & Values(Index) & ">后再继续!", "提示") e.Form.Controls(Values(Index)).Select() Return end if y = y & "," & Values(Index) s = s & ",'" & e.Form.Controls(Values(Index)).value & "'" Next Dim scm as New SQLCommand scm.ConnectionName = "y" scm.CommandText = "Insert Into 民兵 " & "(" & y.Trim(",") & ")" & "" & "" & "Values(" & s.Trim(",") & ")" scm.ExecuteNonQuery 大概就是这样，你自己调试一下吧  |
5楼
ybmjy 发表于：2010/4/28 9:31:00搞定，谢谢
共5 条记录, 每页显示 10 条, 页签:
[1]