vb.net删除页面 vb删除命令

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

邮件已经发生，请查收。记得给分哈

相关问答

Q1: 在VB.NET环境下,如果要删除一条记录,需要弹出一个提示语句,点"是"就删除,否则就不删除,怎么写代码

在前台删除处写js代码

if(confim("确定删除？"))

{ //确定删除的页面？isdel=yes }

然后在后台page_load获取isdel的值，若为yes，则进行删除操作即可！

Q2: vb.net清空所有窗口

清空所有窗口的话，直接就是把所有的东西都划掉就可以了，很简单的。

Q3: VB.net怎样全部删除DataGridView的内容？

方法有多种。

可以dataAdapter.Fill到数据表应该，设置几个command，再通过dataAdapter.Update就可以更新数据了。不过表要有一个关键的key吧。

另外一种直观一点：

也需要表有个关键key有就是关键字段。

你datagridview.reomveAt(index)同时执行sqlcommand("delete * From table where keyFild='" key "'")就可以。

参考一个实例，如下：

Private Sub bitDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bitDelete.Click

Dim oraConn As New OracleConnection()

oraConn.ConnectionString = " data source=数据库名字;user id=账号;password=密码"

oraConn.Open()

Dim id As String = DataGridView1.CurrentRow.Cells(0).Value.ToString().Trim()

Dim queryString = "delete from t where id ='" id号 "'"

Dim adapter As OracleDataAdapter = New OracleDataAdapter(queryString,oraConn)

Dim mark As DataSet = New DataSet

adapter.Fill(mark, "Mark")

MessageBox.Show("删除数据成功!")

Dim adapter As OracleDataAdapter = New OracleDataAdapter("select * from t ORDER BY id", oraConn)

Dim score As DataSet = New DataSet()

adapter.Fill(score , "Score ")

DataGridView1.DataSource = score

DataGridView1.DataMember = score .Tables(0).ToString

oraConn.Close()

End Sub

Q4: 请问vb.net中如何实现窗体的清空

要在VB.NET中清屏已经不再是象是在VB6中那么简单使用一条Cls就能搞定的,因为现在的VB.NET已经是完全面向对象的语言了,方法就不能和以前那样了,下面给出清空窗体的源代码,通过单击按钮清空,如下:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim g As Graphics

g = Me.CreateGraphics

g.Clear(Me.BackColor)

g.Dispose()

'释放对象g所占用的资源

End Sub

OK,程序已经成功实现你要的功能,运行环境VS.NET2003+Windows 2003 Server

欢迎你加入群:30538950进行交流!

vb.net删除页面的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb删除命令、vb.net删除页面的信息别忘了在本站进行查找喔。