十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim myconn As New OleDb.OleDbConnection
成都创新互联-专业网站定制、快速模板网站建设、高性价比大峪网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式大峪网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖大峪地区。费用合理售后完善,10多年实体公司更值得信赖。
Dim mycommand As New OleDb.OleDbCommand
myconn.ConnectionString = "Provider=Microsoft.ace.OLEDB.12.0;Data Source=C:\Users\Administrator\Documents\账号密码.accdb "
myconn.Open()
mycommand.Connection = myconn
Dim sql5 As String = "delete from 表3 where userid='" (TextBox1.Text) "'"
mycommand.CommandText = sql5
mycommand.CommandType = CommandType.Text
mycommand.ExecuteNonQuery()
Dim sql3 As String = "update 表2 set Balance=Balance-2 where UserID='" (TextBox1.Text) "'"
mycommand.CommandText = sql3
mycommand.CommandType = CommandType.Text
mycommand.ExecuteNonQuery()
myconn.Close()
sQueryString是SQL(增删查改)语句
public
Boolean
ExecSQL(string
sQueryString)
{
SqlConnection
con
=
new
SqlConnection(ConfigurationManager.AppSettings["conStr"]);
con.Open();
SqlCommand
dbCommand
=
new
SqlCommand(sQueryString,
con);
try
{
dbCommand.ExecuteNonQuery();
con.Close();
}
catch
{
con.Close();
return
false;
}
return
true;
}
}
建立一个类,明自己取,然后调用就是了
例如:
类
BC=NEW
类();
STRING
ist="INSERT
INTO
XX(1,2,3)VALUES(A,B,C)";
BC.ExecSQL(ist);
就可以了
点击修改按钮以后,相对的数据显示到 信息显示 窗口的相对TextBox 的代码如下:
信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名为例,其他的跟这个一样。
信息显示.ShowDialog()
完成修改的SQL代码如下:
UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=条件
后面要跟上 where 条件 比如update 用户信息表 set 操作权限=@type,密码=@pwd, 用户名=@name where 用户信息表ID=@ID