vb.net增加修改删除 vbnet foreach( 二 )

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）;
就可以了
VB.net求一个简单的增删改页面。VS+access数据库的，MSSQL数据库的话你改下，反正就2种链接方式，书上都有。
下面是代码和解释，另外我会把文件发到你邮箱里的，你把文件复制到自己的站点文件夹里面运行就可以看到效果了。
Imports System.Data.OleDb
Imports System.Data
Partial Class baidu
Inherits System.Web.UI.Page
'下面是添加记录
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
'定义“连接数据库”和“执行SQL”变量
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim dbname As String
dbname = Server.MapPath("baidu.mdb")
myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="dbname)
myConnection.Open()
'INSERT INTO "表格名" ("栏位1", "栏位2", ...) VALUES ("值1", "值2", ...)
'这里可以加上昵称是否已经存在的判断语句，就是SELECT "栏位名" FROM "表格名" WHERE "条件"
myCommand = New OleDbCommand("Insert INTO a1(昵称) Values('"TextBox1.Text"')", myConnection)
myCommand.ExecuteNonQuery()
Response.AddHeader("Refresh", "0")
'关闭连接()
myConnection.Close()
'释放资源
myCommand.Dispose()
End Sub
'下面是删除记录
Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
'定义“连接数据库”和“执行SQL”变量
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim dbname As String
dbname = Server.MapPath("baidu.mdb")
myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="dbname)
myConnection.Open()
'DELETE FROM "表格名" WHERE {条件}
myCommand = New OleDbCommand("DELETE FROM a1 WHERE 昵称 = '"TextBox1.Text"'", myConnection)
myCommand.ExecuteNonQuery()
Response.AddHeader("Refresh", "0")
'关闭连接()
myConnection.Close()
'释放资源
myCommand.Dispose()
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'定义“连接数据库”和“执行SQL”变量
Dim myConnection As OleDbConnection
Dim myCommand As OleDbCommand
Dim dbname As String
dbname = Server.MapPath("baidu.mdb")
myConnection = New OleDbConnection("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source="dbname)
myConnection.Open()
myCommand = New OleDbCommand("select * FROM a1", myConnection)
GridView1.DataSource = myCommand.ExecuteReader()
GridView1.DataBind()
'关闭连接()
myConnection.Close()
'释放资源
myCommand.Dispose()
End Sub
End Class
邮件已经发生，请查收。记得给分哈
vb.net中向datagridview中添加，删除，修改记录并保存到access数据库，求代码一般是将access数据库绑定到datagridview中，要添加数据只需要datagridview1.Item(3, 0).Value=https://www.04ip.com/post/XXX这种就行了，删除修改同理。保存到access是你已经有了一个access表吧？不然字段都要新建的。如果要保存到数据库的话就调用sql语句链接数据库了，我找个以前的代码Dim OleDbConn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=保存信息\保存信息.mdb;persist security info=false")