新手求助!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 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 这样试一下