ios公测版微信描述文件:vb.net 连sql对表进行操作

来源:百度文库 编辑:高考问答 时间:2024/03/28 17:14:25
只要最基本的操作
增加,删除,修改
报表
表 name age
通过edit框增加记录

谁能作一个给我!!
本人不胜感激!!!
spadezone@21cn.com

这是运行过的程序:(VB.NET)

Imports System.Data
Imports System.Data.SqlClient

Public Class WebForm3
Inherits System.Web.UI.Page

#Region " Web 窗体设计器生成的代码 "

'该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub
Protected WithEvents Label5 As System.Web.UI.WebControls.Label
Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Button2 As System.Web.UI.WebControls.Button

'注意: 以下占位符声明是 Web 窗体设计器所必需的。
'不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: 此方法调用是 Web 窗体设计器所必需的
'不要使用代码编辑器修改它。
InitializeComponent()
End Sub

#End Region
Dim objConnection As New System.Data.SqlClient.SqlConnection
Dim objDataAdapter As New System.Data.SqlClient.SqlDataAdapter
Dim objDataSet As New DataSet
Dim objDataView1 As New DataView
Dim objDataView2 As New DataView
Dim objDataView3 As New DataView
Dim objDataView4 As New DataView
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码

Me.objConnection.ConnectionString = System.Configuration.ConfigurationSettings.AppSettings("connstr")
Me.objDataAdapter.SelectCommand = New System.Data.SqlClient.SqlCommand
Me.objDataAdapter.SelectCommand.Connection = objConnection
Me.objDataAdapter.SelectCommand.CommandText = "select * from fb_baseinfo"
'绑定数据到DataSet
Me.objConnection.Open()
Me.objDataAdapter.Fill(objDataSet, "fb_baseinfo")

Me.objConnection.Close()
Me.objDataAdapter = Nothing
Me.objConnection = Nothing
End Sub

Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
DataGrid1.Dispose() '清空DataGrid1控件的内容
If Me.DropDownList1.SelectedValue = "1" Then
' Me.objDataAdapter.Fill(objDataSet, "fb_baseinfo")
'Me.objDataView = New DataView(Me.objDataSet.Tables("fb_baseinfo"))
Me.objDataView1 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView1.RowFilter = "sort_id=1"
Me.DataGrid1.DataSource = objDataView1
Me.DataGrid1.DataMember = "fb_baseinfo"
Me.DataGrid1.DataBind()

End If

If Me.DropDownList1.SelectedValue = "2" Then
Me.objDataView2 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView2.RowFilter = "sort_id=2"
Me.DataGrid1.DataSource = objDataView2
Me.DataGrid1.DataMember = "fb_baseinfo"
Me.DataGrid1.DataBind()

End If

If Me.DropDownList1.SelectedValue = "3" Then
Me.objDataView3 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView3.RowFilter = "sort_id=3"
Me.DataGrid1.DataSource = Me.objDataView3
Me.DataGrid1.DataMember = "fb_baseinfo"
Me.DataGrid1.DataBind()
End If

If Me.DropDownList1.SelectedValue = "4" Then
Me.objDataView4 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
Me.objDataView4.RowFilter = "sort_id=4"
Me.DataGrid1.DataSource = Me.objDataView4
Me.DataGrid1.DataMember = "fb_baseinfo"
Me.DataGrid1.DataBind()
End If
End Sub

Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
'修改内容
Dim objConnection As New SqlConnection
Dim objDataAdapter As New SqlDataAdapter
If e.CommandName.Equals("Delete") Then
objConnection.ConnectionString = System.Configuration.ConfigurationSettings.AppSettings("connstr")
objConnection.Open()
objDataAdapter.SelectCommand = New SqlCommand
objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "select * from fb_baseinfo"
Dim cmd As New System.Data.SqlClient.SqlCommand
cmd.Connection = objConnection
cmd.CommandText = "delete from fb_baseinfo where id=" & Me.DataGrid1.Items(e.Item.ItemIndex).Cells(2).Text
cmd.ExecuteNonQuery()
objConnection.Close()

DataGrid1.Dispose() '清空DataGrid1控件的内容
objDataSet.Clear() '清空DataSet对象的内容(数据集)
If Me.DropDownList1.SelectedValue = "1" Then
objConnection.Open()
objDataAdapter.Fill(objDataSet, "fb_baseinfo")
objConnection.Close()
objDataView1 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
objDataView1.RowFilter = "sort_id=1"
DataGrid1.DataSource = objDataView1
DataGrid1.DataMember = "fb_baseinfo"
DataGrid1.DataBind()
End If
If Me.DropDownList1.SelectedValue = "2" Then
objConnection.Open()
objDataAdapter.Fill(objDataSet, "fb_baseinfo")
objConnection.Close()
objDataView2 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
objDataView2.RowFilter = "sort_id=2"
DataGrid1.DataSource = objDataView2
DataGrid1.DataMember = "fb_baseinfo"
DataGrid1.DataBind()
End If
If Me.DropDownList1.SelectedValue = "3" Then
objConnection.Open()
objDataAdapter.Fill(objDataSet, "fb_baseinfo")
objConnection.Close()
objDataView3 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
objDataView3.RowFilter = "sort_id=3"
DataGrid1.DataSource = Me.objDataView3
DataGrid1.DataMember = "fb_baseinfo"
DataGrid1.DataBind()
End If
If Me.DropDownList1.SelectedValue = "4" Then
objConnection.Open()
objDataAdapter.Fill(objDataSet, "fb_baseinfo")
objConnection.Close()
objDataView4 = Me.objDataSet.Tables("fb_baseinfo").DefaultView
objDataView4.RowFilter = "sort_id=4"
DataGrid1.DataSource = Me.objDataView4
DataGrid1.DataMember = "fb_baseinfo"
DataGrid1.DataBind()
End If
objConnection = Nothing
objDataAdapter = Nothing
End If
'删除内容
If e.CommandName.Equals("update") Then
Response.Redirect("updata.aspx?id=" & Me.DataGrid1.Items(e.Item.ItemIndex).Cells(2).Text)
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Response.Redirect("index.aspx")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Response.Redirect("insert.aspx")
End Sub
End Class