引入数据库操作类命名空间_yiipdo数据库操作类

引入数据库操作类命名空间由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“yiipdo数据库操作类”。

Imports System.Data '引入数据库操作类命名空间 Imports System.Data.OleDb '引入ADO.NET操作命名空间 Public Cla Form2 Dim objConn As New OleDb.OleDbConnection '创建一个连接对象

Dim objDa As New OleDb.OleDbDataAdapter '创建一个OleDbDataAdapter对象

Dim objComm As New OleDb.OleDbCommand '创建一个OleDbCommand对象

Dim objDs As New DataSet '创建一个数据集DataSet对象

Dim mytable As Data.DataTable '建立表单对象

Dim myrow As Data.DataRow '建立数据行对象

Dim mycol As Data.DataColumn '建立数据列对象

Dim rownumber As Integer '定义一个整型变量来存放当前行数

Dim sqlSTR As String '定义一个文本型变量，用于存放SQL命令 Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs)Handles Me.FormClosed objConn.Close()'关闭数据库连接 End Sub Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles MyBase.Load Dim i As Integer objConn.ConnectionString = “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:VBnet练习dbgl.mdb” '设置连接字符串

objComm.CommandText = “select * from 学生表” '设置SQL命令，告诉程序如何获取数据 objComm.Connection = objConn objDa.SelectCommand = objComm objConn.Open()'打开数据库连接

objDa.Fill(objDs)'填充数据集对象objDa

mytable = objDs.Tables.Item(0)'取得名为table的表 ShowData()'显示记录

txtXh.Enabled = False '设置学号文本框无效

For i = 0 To mytable.Columns.Count1 Then rownumber = mytable.Rows.Count1 If rownumber

End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnFirst.Click '指向第一条数据 rownumber = 0 ShowData()End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnLast.Click '指向最后一条数据

rownumber = mytable.Rows.Count1 Then '判断是否删除的是最后一条数据 rownumber = mytable.Rows.Count-1 End If MsgBox(“数据库记录已经删除完毕!”, 48, “系统提示”)Else MsgBox(“你没有选择任何操作功能，请先选择功能”, vbOKOnly + vbCritical, “系统警告信息”)End If ShowData()'显示记录

End Sub

Private Sub btnsel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles btnsel.Click

End Sub

Private Sub rdUp_Click(ByVal sender As Object, ByVal e As System.EventArgs)Handles rdUp.Click '选择修改功能时，将已做修改作废，重新读取记录数据，并禁止修改学号 ShowData()'显示记录

txtXh.Enabled = False '设置学号文本框无效

End Sub

Private Sub rdIns_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles rdIns.CheckedChanged If rdIns.Checked = True Then txtXh.Enabled = True '设置学号文本框有效

Else txtXh.Enabled = False '设置学号文本框无效 End If End Sub End Cla