Vb.Net数据库 vbnet数据库编程

vb.net 中如何使用SQL语句查询数据库中的数据

1、首先打开Visual Studio 2008代码窗口，添加引用。

创新互联建站专注于科尔沁左翼网站建设服务及定制，我们拥有丰富的企业做网站经验。热诚为您提供科尔沁左翼营销型网站建设，科尔沁左翼网站制作、科尔沁左翼网页设计、科尔沁左翼网站官网定制、小程序定制开发服务，打造科尔沁左翼网络公司原创品牌,更为您提供科尔沁左翼网站排名全网营销落地服务。

2、输入以下代码：Public conn1 As SqlConnection = New SqlConnection 。

3、声明关键字 Public；（因为是全局变量，所以用Public 来声明）。

4、如果SQL 数据库就在本机，则用以下代码连接。

5、如果代码太长，影响可读性，可以用空格加"_"后，回车换行即可。

vb.net 怎么操作数据库

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！

另外

.NET

Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。

比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：

'首先导入命名空间

Imports

System.Data

Imports

System.Data.OleDb

'然后在某一个事件处理程序中写：

Dim

conn

New

OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data

Source=数据库.accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

New

OleDbCommand("Select

From

数据表",

conn)

conn.Open()

'打开数据库连接

Dim

reader

OleDbDataReader

command.ExecuteReader()

'执行SQL语句，返回OleDbDataReader

对象

While

reader.Read()

'读取一条数据

textbox1.Text

reader("一些数据")

VbCrLf

Loop

reader.Close()

'关闭OleDbDataReader

conn.Close()

'关闭连接

消息队列在VB.NET数据库开发中的应用

　我们先简单的了解一下什么是消息队列(MSMQ)？消息队列是 Windows （NT也有MSMQ WIN / /me/xp不含消息队列服务但是支持客户端的运行）操作系统中通讯的基础也是用于创建分布式松散连接通讯应用程序的工具这些应用程序可以通过不同种类的网络进行通讯也可以与脱机的计算机通讯消息队列分为用户创建队列和系统队列用户队列分为

· 公共队列在整个可传递消息的消息队列网络中复制并传输并且有可能由网络连接的所有站点访问

· 专用队列不在整个网络中发布相反它们仅在所驻留的本地计算机上可用专用队列只能由知道队列的完整路径名或标签的应用程序访问

· 管理队列包含确认在给定消息队列网络中发送的消息回执的消息指定希望 MessageQueue 组件使用的管理队列

· 响应队列包含目标应用程序接收到消息时返回给发送应用程序的响应消息指定希望 MessageQueue 组件使用的响应队列

系统队列分为

· 日记队列可选地存储发送消息的副本和从队列中移除的消息副本

· 死信队列存储无法传递或已过期的消息的副本

· 专用系统队列是一系列存储系统执行消息处理操作所需的管理和通知消息的专用队列

现在大家对消息队列有了简单的了解后就该进入主题了要使用m *** q进行软件开发需要安装m *** q 安装完后就该进入实际的开发阶段先打开vs net ide中的服务起资源管理器展开你想建立消息队列的计算机名再展开消息队列右击它在弹出菜单中选择新建建立一个新的消息队列并为它指定一个名字这个名字可以随意也可以通过编程来完成代码如下

system Messaging MessageQueue Create( \Private$\MyPrivateQueue ) 建立专用队列System Messaging MessageQueue Create( myMachine\MyQueue ) 建立公共队列

其实我认为使用那中方法并不重要重要的是搞清楚专用队列和公共队列的差别（其他队列不是必须的）在本例中是通过服务器资源管理器分别在服务器上建立了专用队列和公共队列

程序功能本程序分为两部分包括服务器程序（安装在sql server服务器上）和客户端程序客户端的作用是用来编写t sql语句并将t sql语句放在消息中并将消息发送到sql server服务器上的消息队列中去服务器程序检查指定的消息队列当发现有新消息到达时就开始执行消息中的内容由于消息中的内容是t sql语句所以服务器端实际上是执行对数据库的操作

客户端程序

public Sub client（）Dim tM As New System Messaging MessageQueue()tM Path = \Private$\jk FORMATNAME:PUBLIC= d dc c fd ce d b e d 与指定计算机中的消息队列建立连接 Dim newMessage As New System Messaging Message(TextBox Text) 接受文本筐的t sql语句newMessage Label = This is the label 消息名字 tM Send(newMessage) 发送消息End Sub

服务端程序

public Sub server（）Dim NewQueue As New System Messaging MessageQueue( \Private$\jk ) FORMATNAME:PUBLIC= d dc c fd ce d b e d 与指定计算机中的消息队列建立连接 Dim m As System Messaging Message 查看消息队列中的消息m = NewQueue Receive m Formatter = New System Messaging XmlMessageFormatter(New String() { System String mscorlib })Dim st As Stringst = m Body 消息队列中消息的消息内容既sql语句Dim con As New OleDb OleDbConnection( 输入自己的数据库连接字符串 )con Open()Dim As New OleDb OleDbCommand(st con) 执行消息中的sql语句 ExecuteNonQuery()con Close()End Sub

我为什么要使用消息队列来处理数据库的操作这个问题我一直没回答现在我就来回答这个问题在本程序中你会发现在sub client（）中我并没连接数据库和请求数据而是通过发消息来操作数据库的这个好处是节省了两部分时间

对数据库连解请求数据的时间

从数据库返回数据的时间

在很多情况下其实我们并不需要看见具体的数据就知道该怎么修改数据库中的数据例如要删除张三的记录就可以将一条简单的删除语句放入消息中发给服务器让服务器程序去处理对数据的更改

此外消息队列的另一个主要用途也就是当前erp软件中必不可少的就是在断开连接时保存信息当连接恢复时发送消息消息在如下两种情况中无法迅速地传递到它们的队列当队列驻留的计算机无法工作时或当路由消息所需的域控制器无法工作时消息队列可让您应对这些情况使得在从网络上断开连接或必要的计算机或控制器无法工作时仍可以继续发送消息在这些情形下消息暂时存储在本地计算机或传递路由上的某个计算机的队列中直到完成传递所需的资源重新联机

例如假设有一个记录所有在出差的销售人员发送的订单的中央队列这些销售人员每天的大部分时间都以断开连接的方式工作记录来自客户站点的订单信息并且每天拨号连接一次将所有这些信息传输到中央队列中因为消息在发送方断开连接时仍可发送到队列所以销售人员可以在记录客户信息时立即发送他们的消息但系统会缓存这些消息直到晚间进行拨号连接为止

在断开连接时要怎么保存消息呢？向断开连接的队列发送消息同向可用队列发送消息的过程几乎完全相同当要向其发送的队列不可用时不必进行任何特殊的配置以使组件将消息存储在临时队列中在client代码的tM Path = \Private$\jk 后面有一条注释语句其实这条语句就是实现向断开连接的队列发送消息的功能只要将tM Path = \Private$\jk 这条语句换成tM Path = FORMATNAME:PUBLIC= d dc c fd ce d b e d 其中PUBLIC后面的数字是要发送到计算机的guid数字这个数字可以打开那台计算机的消息队列的属性看见使用这种方法就可以在断开连接的情况下保证对服务器的操作是有效现在运行这个程序后打开win 中的开始》程序》管理工具》计算机管理在计算机管理窗口中展开服务和应用程序》消息队列》传出队列你将在右边的窗口中看见你建立的消息（如果你使用tM Path = \Private$\jk 语句在计算机管理窗口中展开服务和应用程序》消息队列》专用队列可以看见你建立的队列）

其实消息队列的编程并不复杂但它在网络环境的程序开发中是非常有用的可以简化大量的开发过程和节省开发时间

其实消息队列的编程有很大的灵活性几乎可以解决网络编程的大部分问题比如聊天程序远程控制程序

本文针对消息队列做了一个简单的介绍并举了一个例来说明怎么在 net下使用消息编程达到快速高效稳定的对数据库进行操作最后补充要说的是在internet中也一样可以使用消息队列只需要将tM Path = FORMATNAME:PUBLIC= d dc c fd ce d b e d 语句后面的数字变成消息队列所在服务器的数字就可以了但是要提醒大家的是使用消息在传输时将占有大量的带宽所以在不是必须的时候 internet下的编程不要使用消息

lishixinzhi/Article/program/net/201311/15668

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 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 = 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 Sub

Private 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 Function

End Class

本文名称：Vb.Net数据库 vbnet数据库编程
分享地址：https://www.cdcxhl.com/article28/doojjcp.html

成都网站建设公司_创新互联，为您提供品牌网站建设、服务器托管、全网营销推广、云服务器、网站营销、标签优化

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容