vb net数据库（vb.net数据库操作）

本文目录

• vb.net数据库操作
• vb.net 写数据库
• vb.net连接数据库
• vb.net数据库学习哪好

vb.net数据库操作

参考一下下面这段代码就可以了。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 SubPrivate 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 = myrow.Item(4).ToString TxtTel.Text = myrow.Item(5).ToString TxtRuDate.Text = Format(CDate(myrow.Item(6)), "yyyy-MM-dd ") TxtAddress.Text = myrow.Item(7).ToString TxtComment.Text = myrow.Item(8).ToString End SubPrivate Sub BtFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtFirst.Click ’指向第一条数据 rownumber = 0 ShowData() End Sub Private Sub BtPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPrev.Click ’指向上一条数据 BtNext.Enabled = True rownumber = rownumber - 1 If rownumber 《 0 Then rownumber = 0 ’如果到达记录的首部，行号设为零 BtPrev.Enabled = False End If ShowData() End Sub Private Sub BtNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtNext.Click ’指向上一条数据 BtPrev.Enabled = True rownumber = rownumber + 1 If rownumber 》 mytable.Rows.Count - 1 Then rownumber = mytable.Rows.Count - 1 ’判断是否到达最后一条数据 BtNext.Enabled = False End If ShowData() End Sub Private Sub BtLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtLast.Click ’指向最后一条数据 rownumber = mytable.Rows.Count - 1 ShowData() End Sub Private Sub BtDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtDelete.Click mytable.Rows.Item(rownumber).Delete() ’删除记录 If MsgBox( "确定要删除改记录吗？ ", MsgBoxStyle.OKCancel + vbExclamation, "警告 ") = MsgBoxResult.OK Then cmd = New OleDbCommandBuilder(ADOcmd) ’使用自动生成的SQL语句 ADOcmd.Update(ds, "student_Info ") BtNext.PerformClick() End If End Sub Private Sub BtModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtModify.Click TxtSID.Enabled = False ’关键字段只读 TxtName.Enabled = True ’可读写 ComboSex.Enabled = True TxtBornDate.Enabled = True TxtClassno.Enabled = True TxtRuDate.Enabled = True TxtTel.Enabled = True TxtAddress.Enabled = True TxtComment.Enabled = True End Sub Private Sub BtUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtUpdate.Click If Not Testtxt(TxtName.Text) Then MsgBox( "请输入姓名！ ", vbOKOnly + vbExclamation, "警告 ") TxtName.Focus() Exit Sub End If If Not Testtxt(ComboSex.Text) Then MsgBox( "请选择性别！ ", vbOKOnly + vbExclamation, "警告 ") ComboSex.Focus() Exit Sub End If If Not Testtxt(TxtClassno.Text) Then MsgBox( "请选择班号！ ", vbOKOnly + vbExclamation, "警告 ") TxtClassno.Focus() Exit Sub End If If Not Testtxt(TxtTel.Text) Then MsgBox( "请输入联系电话！ ", vbOKOnly + vbExclamation, "警告 ") TxtTel.Focus() Exit Sub End If If Not Testtxt(TxtAddress.Text) Then MsgBox( "请输入家庭住址！ ", vbOKOnly + vbExclamation, "警告 ") TxtAddress.Focus() Exit Sub End If If Not IsNumeric(Trim(TxtSID.Text)) Then MsgBox( "请输入数字学号！ ", vbOKOnly + vbExclamation, "警告 ") Exit Sub TxtSID.Focus() End If If Not IsDate(TxtBornDate.Text) Then MsgBox( "出生时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ") Exit Sub TxtBornDate.Focus() End If If Not IsDate(TxtRuDate.Text) Then MsgBox( "入校时间应输入日期格式（yyyy-mm-dd）！ ", vbOKOnly + vbExclamation, "警告 ") TxtRuDate.Focus() Exit Sub End If myrow.Item(0) = Trim(TxtSID.Text) myrow.Item(1) = Trim(TxtName.Text) myrow.Item(2) = Trim(ComboSex.Text) myrow.Item(3) = Trim(TxtBornDate.Text) myrow.Item(4) = Trim(TxtClassno.Text) myrow.Item(5) = Trim(TxtTel.Text) myrow.Item(6) = Trim(TxtRuDate.Text) myrow.Item(7) = Trim(TxtAddress.Text) myrow.Item(8) = Trim(TxtComment.Text) mytable.GetChanges() cmd = New OleDbCommandBuilder(ADOcmd) ’使用自动生成的SQL语句 ADOcmd.Update(ds, "student_Info ") ’对数据库进行更新 MsgBox( "修改学籍信息成功！ ", vbOKOnly + vbExclamation, "警告 ") TxtName.Enabled = False ComboSex.Enabled = False TxtBornDate.Enabled = False TxtClassno.Enabled = False TxtRuDate.Enabled = False TxtTel.Enabled = False TxtAddress.Enabled = False TxtComment.Enabled = False ’重新设置信息为只读 End Sub Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click 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 End Sub Public Function ExecuteSQL(ByVal SQL As String, ByVal table As String) Try ’建立ADODataSetCommand对象 ’数据库查询函数 ADOcmd = New OleDbDataAdapter(SQL, "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\student.mdb ") ’建立ADODataSetCommand对象 ADOcmd.Fill(ds, table) ’取得表单 mytable = ds.Tables.Item(0) ’取得名为table的表 rownumber = 0 ’设置为第一行 myrow = mytable.Rows.Item(rownumber) ’取得第一行数据 Catch MsgBox(Err.Description) End Try End FunctionEnd Class请采纳。

vb.net 写数据库

你这是向sql后台数据库写数据吗?sqldataadapter1.update 改须指定有效的updatecommand,我一直没有看到给你个例子你看吧:’首先指定有效的UpdateCommandsqlstr = "insert into Playlist(PlayName,PlayPath)values(’" & TextBox4.Text.Trim & "’,’" & TextBox5.Text.Trim & "’)"Module1.Mycommand.CommandText = sqlstr ’增加新一行(此行必须,要不不能与后台同步,并且后面调用update会出错) Module1.MyDataSet.Tables("Music").Rows.Add() Module1.MyDataAdaPter.InsertCommand = Module1.Mycommand Module1.MyDataAdaPter.Update(Module1.MyDataSet, "Music") MsgBox("增加数据成功！！")

vb.net连接数据库

解决思路：1. 字义连接字符串；Public SqlConn As String = "data source=127.0.0.1;initial catalog=textbox1.text.trim;user id=sa;pwd=这里是数据库登陆密码;"2. 字义连接模块（以下是一个通用的SQL连接模块适当的做了一些修改，可直接使用） Public Function ExecuteSql(ByVal strSQL As String, ByRef errMsg As String,SqlConn as string) As System.Data.DataTable Dim cnn As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection(SqlConn) Dim cmd As New System.Data.SqlClient.SqlCommand() Dim adpt As System.Data.SqlClient.SqlDataAdapter Dim rst As New System.Data.DataSet() Dim SplitSQL() As String errMsg = "" Try SplitSQL = Split(strSQL) If InStr("INSERT,DELETE,UPDATE", UCase$(SplitSQL(0))) And InStr(strSQL, "SCOPE_IDENTITY") = 0 Then cmd.Connection = cnn cmd.Connection.Open() cmd.CommandText = strSQL cmd.ExecuteNonQuery() ExecuteSql = Nothing Else adpt = New System.Data.SqlClient.SqlDataAdapter(strSQL, cnn) adpt.Fill(rst) ExecuteSql = rst.Tables(0) End If Catch ex As Exception errMsg = ex.Message ExecuteSql = Nothing Finally rst = Nothing cnn.Dispose() End Try End Function 3. 调用办法假定网页有一个textbox1用来输入数据库名称，一个BUTTON用于连接数据库，则在button.click事件中设置以下代码：dim txtsql as string=你的SQL语句dim errormsg as string=""sqlconn="data source=127.0.0.1;initial catalog=textbox1.text.trim;user id=sa;pwd=这里是数据库登陆密码;"dim dt as datatable=executesql(txtsql,errormsg,sqlconn)-----------------至于你的语句要执行什么操作就自己写了

vb.net数据库学习哪好

　　vb.net数据库学习哪好vb.net数据库在哪所学校可以学习到这门课程。大家有什么好的职业学校推荐给我们?

　　相信每一个学习数据库的人都在寻找合适的vb.net 数据库教程学习。但是令人很失望的是,我们没有找到合适的，而且，在我们遇到困难的时候，往往不知道该去找谁来帮助我们，这往往让我们艰难的学习之路走的更加困难。在这里，云南昆明IT培训