读书人

新手!VB.net对SQL中表的修改

发布时间: 2012-04-03 12:38:19 作者: rapoo

新手求助!VB.net对SQL中表的修改
Dim conn As New OleDbConnection("Provider=SQLOLEDB;Server=.;Database=Library;Integrated Security=SSPI")
Dim grxx As String="updata tb_adm set adm_sex='" & TextBox10.Text & "',adm_borthday='" & TextBox11.Text & "',adm_pw='" & TextBox12.Text & "' where adm_id='" & TextBox8.Text & "'"
Dim aa As String = "select * from tb_adm where adm_id='" & TextBox8.Text & "'"
conn.Open()
Dim da_grxx As New OleDbDataAdapter(aa, conn)
Dim ds_grxx As New DataSet
da_grxx.Fill(ds_grxx, "tb_adm")
Dim comm As New OleDbCommand(grxx, conn)
comm.ExecuteNonQuery()
conn.Close()
正在学习VB.net中,这是从书上抄过来的代码,但是运行时显示comm.ExecuteNonQuery()出错,请各位帮我看看那里的问题,说明一下,数据库为Library,其中一个表为tb_adm,里面有adm_id,adm_name,adm_sex,adm_borthday,adm_pw,分别对应程序中textbox8-9,想通过对textbox内容的修改来修改tb_adm表中各项
另外SQL和VB.net是分开学的,但是一合并起来发现问题好多,顺便求一些简单实例能帮助学习的,先谢谢了

[解决办法]

VB.NET code
//这是个修改的示例。//sql语句参数化。。。别拼接。。。自己看都难看Dim con As SqlConnection        Dim cmd As SqlCommand        Dim str As String        LoginName = XXX        LoginPwd = XXX        str = System.Configuration.ConfigurationManager.AppSettings("connectionString")        con = New SqlConnection(str)        con.Open()        cmd = New SqlCommand("Update Login set LoginName=@name,LoginPwd=@pwd where LoginId=@Id ", con)        cmd.Parameters.AddWithValue("@Id", Id)        cmd.Parameters.AddWithValue("@name", LoginName)        cmd.Parameters.AddWithValue("@pwd", LoginPwd)        cmd.ExecuteNonQuery()        con.Close()
[解决办法]
探讨
Dim conn As New OleDbConnection("Provider=SQLOLEDB;Server=.;Database=Library;Integrated Security=SSPI")
Dim grxx As String="updata tb_adm set adm_sex='" & TextBox10.Text & "',adm_borthday='……

[解决办法]
楼主,把Dim grxx As String="updata tb_adm set adm_sex='" & TextBox10.Text & "',adm_borthday='" & TextBox11.Text & "',adm_pw='" & TextBox12.Text & "' where adm_id='" & TextBox8.Text & "'" 这个SQL语句msgbox 出来看一下,然后复制到数据库的查询分析器或者企业管理器里面去运行一下,看看报什么错误。

另外where adm_id='" & TextBox8.Text & "'" 这个条件句中的adm_id是什么类型,如果是数字型,则改成
where adm_id=" & TextBox8.Text 这样试一下

读书人网 >VB Dotnet

热点推荐