vbnet数据库操作vbnet数据库操作.docVIP

vbnet数据库操作 参考一下下面这段代码就可以了。 Imports System.Data 引入数据库操作类命名空间 Imports System.Data.OleDb 引入ADO.NET操作命名空间 Public Class FrmModifystInfo Inherits System.Windows.Forms.Form Public ADOcmd As OleDbDataAdapter Public ds As DataSet = New DataSet() 建立DataSet对象 Public mytable As Data.DataTable 建立表单对象 Public myrow As Data.DataRow 建立数据行对象 Public rownumber As Integer 定义一个整型变量来存放当前行数 Public SearchSQL As String Public cmd As OleDbCommandBuilder ====================================================== #Region Windows 窗体设计器生成的代码 #End Region ====================================================== Private Sub FrmModifystInfo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 窗体的载入 TxtSID.Enabled = False TxtName.Enabled = False ComboSex.Enabled = False TxtBornDate.Enabled = False TxtClassno.Enabled = False TxtRuDate.Enabled = False TxtTel.Enabled = False TxtAddress.Enabled = False TxtComment.Enabled = False 设置信息为只读 Dim tablename As String = student_Info SearchSQL = select * from student_Info ExecuteSQL(SearchSQL, tablename) 打开数据库 ShowData() 显示记录 End Sub Private Sub ShowData() 在窗口中的textbox中显示数据 myrow = mytable.Rows.Item(rownumber) TxtSID.Text = myrow.Item(0).ToString TxtName.Text = myrow.Item(1).ToString ComboSex.Text = myrow.Item(2).ToString TxtBornDate.Text = Format(myrow.Item(3), yyyy-MM-dd ) TxtClassno.Text = m