vb连接sqlserver数据库 vb怎样连接数据库
大家好，今天来为大家解答vb连接sqlserver数据库这个问题的一些问题点，包括vb怎样连接数据库也一样很多人还不知道，因此呢，今天就来为大家分析分析，现在让我们一起来看看吧！如果解决了您的问题，还望您关注下本站哦，谢谢~
vb连接数据库sqlserver的问题
(三)用代码实现数据绑定
上面我们着重探讨了控件与数集据绑定的向导模式。这种模式虽然实现方法简单，但是却不灵活，可移植性较差。为此，我们为大家介绍如何用代码来实现数据绑定。用代码实现数据绑定的优点在于灵活自由，代码移植方便。
为了便于更好的理解，我们仍然选用“TextBox”控件作为实例来介绍。
1.绑定到TextBox控件
(1)界面设计：
新建一个项目，按照图的方法设置程序界面，再增加一个Button控件，将其“Text“属性设为“TextBox数据绑定”。
(2)代码实现：
'指定程序中引用的名称空间：在代码窗中输入：
Imports System.Drawing
Imports System.Windows.Forms
Imports System.ComponentModel
Imports System
Imports System.Data.OleDb
Imports System.Data
'首先定义全局变量myDataSet及GetConnected()方法，代码如下：
Public Class Form1
Inherits Form
Private WithEvents Button1 As Button
Private TextBox1 As TextBox
……(省略部分自动生成代码)
Private myDataSet As DataSet
Private components As System.ComponentModel.Container
Public Sub New()
MyBase.New()
GetConnected()'这个过程是用于建立连接，打开数据库
InitializeComponent()
End Sub
'清除在程序中使用过的资源
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
……(省略部分自动生成代码)
End Sub
'
'为GetConnected()方法增加代码，用来打开数据表，返回数据集。
Public Sub GetConnected()
'创建一个 OleDbConnection
Dim ConnectionString As String=〃 Provider= Microsoft.Jet.OLEDB.4.0; Data Source= e:\My Documents\db1.mdb〃
Dim myConn As OleDbConnection= New OleDbConnection()
myConn.ConnectionString= ConnectionString
Dim strCom As String=〃 SELECT* FROM student〃
'创建一个 DataSet
myDataSet= New DataSet()
myConn.Open()
'用 OleDbDataAdapter得到一个数据集
Dim myCommand As OleDbDataAdapter= New OleDbDataAdapter(strCom, myConn)
'把Dataset绑定student数据表
myCommand.Fill(myDataSet,〃student〃)
'关闭此OleDbConnection
myConn.Close()
End Sub
'初始化窗体中的组件
Private Sub InitializeComponent()
……(省略部分自动生成代码)
End Sub
'将各个文本框控件绑定到数据库的各个字段。
Private Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
TxtStuID.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuID〃))
TxtStuName.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuName〃))
TxtStuSex.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuSex〃))
TxtStuBorn.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuBorn〃))
TxtStuCore.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuCore〃))
End Sub
End Class
Module Module1
Sub Main()
Application.Run(New Form1())
End SubEnd Module
编译后运行程序，看看是不是与上面介绍的实例运行结果相同。
在上面的代码中，我们新建了一个GetConnected()过程，用于建立连接，打开数据库。在用代码实现数据绑定或者对数据库进行任何操作前，就必须要先建立连接，打开数据库，程序运行结束后再关闭数据连接。
在Button1_Click过程中，我们把“TextBox”控件绑定到数据集myDataSet中“student”的各个字段上。
程序运行后，点击“TextBox数据绑定”按纽，程序就会用myDataSet中“student”中的数据来自动填充文本框。
2.绑定到Label控件
有了上面的内容做基础，再来讨论如何把数据集绑定到Label控件上就显得很简单了。把数据绑定到Label控件的方法与绑定到TextBox控件的方法大同小异。此处不再详细讲解，只给出代码实现绑定到Label控件的核心部分代码。
Private Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'把student表的StuName字段绑定到Label1的Text属性上。
Label1.DataBindings.Add( New Binding(〃Text〃, Me.myDataSet,〃student.StuName〃))
End Sub
3.绑定到ComboBox控件
上面介绍的是对组件的简单数据绑定，对组件的复杂数据绑定和它有所区别，也有所相同，具体如下：
(1)要对ComboBox组件实现数据绑定，首先也是要打开数据表，得到数据集。这和上面TextBox组件的代码大致一样，在此略过。
(2)实现数据绑定：
设定了ComboBox组件的三个属性就可以实现数据绑定了，这三个属性是“DataSource”、“DisplayMember”、“ValueMember”。其中DataSource表示指定的数据集；DisplayMember表示ComboBox组件显示的字段值；ValueMember表示ComboBox组件选择后的值。这三个属性的具体使用方法如下：
ComboBox1.DataSource= Me.myDataSet
ComboBox1.DisplayMember=〃studnet.StuName〃
ComboBox1.ValueMember=〃 studnet.StuName〃
下面我们就来看看把数据集绑定到ComboBox控件的核心代码：
Private Sub Button1_Click( ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
ComboBox1.DataSource= Me.myDataSet
ComboBox1.DisplayMember=〃student.StuName〃
ComboBox1.ValueMember=〃 student.StuName〃
End Sub
注意：对ComboBox控件进行数据绑定的方法同样适用于ListBox控件，因此关于LisBox控件数据绑定方法本文将不再介绍。需要者请参阅ComboBox相关内容。
三、数据库简单操作
前面介绍了ADO.NET基础，以及ADO.NET与Windows窗体控件的绑定方法。但是，对于数据库编程我们更想了解的还是如何增加记录，删除记录，更新记录等数据库记录的操作方法。这里我们将以一个具体的实例为大家介绍这些操作方法。
在图3中，有btnFirst(第一个记录)，btnEnd(最后一条记录)，btnAdd(增加记录)，btnDel(删除记录)，btnEdit(修改记录)控件。
用代码形式打开数据并在frmtest_load中把数据绑定给TextBox控件。此处给出源代码：
'打开数据库
Public Sub OpenData()
'创建一个 OleDbConnection
Dim ConnectionString As String=〃 Provider= Microsoft.Jet.OLEDB.4.0; Data Source= e:\My Documents\db1.mdb〃
Dim myConn As OleDbConnection= New OleDbConnection()
myConn.ConnectionString= ConnectionString
Dim strCom As String=〃 SELECT* FROM student〃
'创建一个 DataSet
myDataSet= New DataSet()
myConn.Open()
'用 OleDbDataAdapter得到一个数据集
Dim myCommand As OleDbDataAdapter= New OleDbDataAdapter(strCom, myConn)
'把Dataset绑定student数据表
myCommand.Fill(myDataSet,〃student〃)
'关闭此OleDbConnection
myConn.Close()
End Sub
'绑定数据到TextBox控件
Private Sub frmtest_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
txtStuID.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuID〃))
txtStuName.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuName〃))
txtStuSex.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuSex〃))
txtStuBorn.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuBorn〃))
txtStuCore.DataBindings.Add(New Binding(〃Text〃, Me.myDataSet,〃student.StuCore〃))
End Sub
完成以上步骤后，我们就可以通过编程对数据库进行各作操作了。
1.实现对数据记录的浏览
在完成对窗体中的WinForm组件进行绑定后，实现对数据记录的浏览操作的关键就是要找到如何定位数据记录指针的方法。而要实现这种处理就需要用到.NET FrameWork SDK中的名称空间System.Windows.Froms中的BindingManagerBase类。
BindingManagerBase是一个抽象的类，主要用于管理同一数据表所有绑定对象。BindingManagerBase类中定义了二个属性“position”和“Count”，第一个属性是定义当前数据指针，而第二个属性主要是得到当前数据集有多少记录数目。在已经进行完数据绑定后，通过这两个属性配合使用，实现对数据记录的浏览。
(1)向上翻阅一条记录：
双击“上一条”按钮，在代码窗中输入以下代码：
Private Sub btnPrevious_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrevious_.Click
Me.BindingContext(myDataSet,〃student〃).Position-= 1
End Sub
(2)向下翻阅一条记录：
双击“下一条”按钮在代码窗中输入以下代码：
Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnNext.Click
Me.BindingContext(myDataSet,〃student〃).Position+= 1
End Sub
(3)翻到最后一条记录：
双击“最后一条记录”按钮，在代码窗中输入以下代码：
Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEnd.Click
Me.BindingContext(myDataSet,〃student〃).Position= Me.BindingContext(myDataSet,〃student〃).Count- 1
End Sub
(4)翻阅到第一条记录：
双击“第一条记录”按钮，在代码窗中输入以下代码：
Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
Me.BindingContext(myDataSet,〃student〃).Position= 0
End Sub
说明：为了代码书写方便，我们可以先定义一个BindingManagerBase对象myBind，如myBind= Me.BindingContext(myDataSet,〃student〃)，于是以上各句代码均可以简写成：
向上翻阅一条记录：myBind.Position= myBind.Position- 1
向下翻阅一条记录：myBind.Position= myBind.Position+ 1
翻阅到最后一条记录：myBind.Position=myBind.count- 1
翻阅到第一条记录：myBind.Position= 0
2.删除数据记录
双击“删除记录”按钮，在代码窗中输入以下代码：
Private Sub btnDel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDel.Click
Dim ConnectionString As String=〃 Provider= Microsoft.Jet.OLEDB.4.0; Data Source= e:\My Documents\db1.mdb〃
Dim myConn As OleDbConnection= New OleDbConnection()
myConn.ConnectionString= ConnectionString
myConn.Open()
Dim strDele As String=〃DELETE From student WHERE StuID='〃+ txtStuID.Text+〃'〃
Dim myCommand As OleDbCommand= New OleDbCommand(strDele, myConn)
myCommand.ExecuteNonQuery() myDataSet.Tables(〃student〃).Rows(Me.BindingContext(myDataSet,〃student〃).Position).Delete()
myDataSet.Tables(〃student〃).AcceptChanges()
10.myConn.Close()
End Sub
前面四行代码我们已经非常熟悉，目的是建立与数据据的连接并打开数据库。第6行代码我们建立一个SQL查询，用来查询数据表中StuID字段值等于TxtStuID.Text输入值的所有记录。并在第7行代码中将查询结果建立一个新的OleDbCommand对象，用来指定要删除的记录。第8行代码是从数据库中删除指定的记录，第9行代码是从myDataSet中删除记录。前者是物理上删除记录，如果去掉第8行代码运行程序你就会发现，记录只是在当前操作中被删除了，在数据库中依然存在。
其中第6行代码中定义的SQL查询条件读者可以根据需要自行指定。需要说明的是，由于我们在创建数据表时，指定StuID字段的类型为Text类型，因此在书写SQL语名时要在“＝”号前加上单引号，具体格式请参照第6行代码。如果StuID字段类型为数字型，那么第6行正确写法应该为：
Dim strDele As String=〃DELETE From student WHERE StuID=〃+ txtStuID.Text
3.修改数据记录
修改数据的方法有很多，本文中我们将以采用SQL语言来修改数据记录为例详细介绍一下如何修改数据记录。下面我们先看看程序代码：
Dim ConnectionString As String=〃 Provider= Microsoft.Jet.OLEDB.4.0; Data Source= e:\My Documents\db1.mdb〃
Dim myConn As OleDbConnection= New OleDbConnection()
myConn.ConnectionString= ConnectionString
myConn.Open()
'以上代码用来连接数据源
myDataSet.Tables(〃student〃).Rows(Me.BindingContext(myDataSet,〃student〃).Position).BeginEdit()
'利用SQL语句创建数据更新集合
Dim StrUpdate As String=〃Update student SET StuName='〃+ txtStuName.Text+〃',StuSex='〃+ txtStuSex.Text+〃',StuBorn='〃+ txtStuBorn.Text+〃',StuCore='〃+ txtStuCore.Text+〃' WHERE StuID='〃+ txtStuID.Text+〃'〃
'利用SQL结果创建新的OleDbCommand对象
Dim myCommand As OleDbCommand= New OleDbCommand(StrUpdate, myConn)
myCommand.ExecuteNonQuery()
myDataSet.Tables(〃student〃).Rows(Me.BindingContext(myDataSet,〃student〃).Position).EndEdit()
myDataSet.Tables(〃student〃).AcceptChanges()
myConn.Close()
MsgBox(〃数据修改完成！〃)
上述代码中我们采用SQL语言中的Update语名来更新记录，对各个TextBox中的值修改后更新到数据库。其中重要语句就是SQL语句的编写。如果你有不明白的地方，请参阅SQL相关资料。代码中我们同时还利用了BeginEdit()与EndEdit()方法，任何从数据的修改都必须在这两个方法之间进行。前者是数据修改的入口，后者则是完成将数据写入数据库的工作。
4.增加数据记录
增加数据记录与修改数据在实现方法上有很多相同之处。在下面的实例中我们利用SQL的Insert语句在指定位置插入一条记录，把更新到数据库。如果你想在数据表最后增加一条记录，只需要将数据记录指针指向数据表末尾就行了。
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim ConnectionString As String=〃 Provider= Microsoft.Jet.OLEDB.4.0; Data Source= e:\My Documents\db1.mdb〃
Dim myConn As OleDbConnection= New OleDbConnection()
myConn.ConnectionString= ConnectionString
myConn.Open()
Dim StrAdd As String=〃insert into student(Stuid,StuName,StuSex,StuBorn,StuCore) values('〃+ txtStuID.Text+〃','〃+ txtStuName.Text+〃','〃+ txtStuSex.Text+〃','〃+ txtStuBorn.Text+〃','〃+ txtStuCore.Text+〃')〃
Debug.Write(StrAdd)
Dim myCommand As OleDbCommand= New OleDbCommand(StrAdd, myConn)
myCommand.ExecuteNonQuery()
myConn.Close()
myDataSet.Tables(〃student〃).Rows(Me.BindingContext(myDataSet,〃student〃).Position).BeginEdit()
myDataSet.Tables(〃student〃).Rows(Me.BindingContext(myDataSet,〃student〃).Position).EndEdit()
myDataSet.Tables(〃student〃).AcceptChanges()
MsgBox(〃数据增加完成！〃)
End Sub
有了前面几种基本操作方法的代码分析后，这段代码相信不难理解。大家需要关注的还是SQL语句是如何实现数据记录增加的。这种方法具有一定的通行性。
完成上述设计后我们来看看整个程序的运行结果。按下F5键运行程序即可。
本文中所有代码均在Windows XP+VB.NET环境下调试通过。
vb怎么连接sql
问题补充：
“我想知道相对地址连接~~是sql
移到的机子上不装sql那怎么办？？”
1、sql数据库连接必须是服务器，不用地址，因为在安装sql
server
2000
后，你的数据库地址已经确定；
2、在一般情况下不安装是不可以的，对于access数据库现在的操作系统有其驱动，而没有sql的，除非使用网络，例如局域网。
sql
server
2000
数据库代码比较简单，无非数据库连接语句不同，其他和access数据库没有大的区别。
如果“程序要移动到其他机子上”，移动到的机子上必须同样安装sql
server
2000
数据库，而且服务器名称、数据库名称必须和原服务器名称、数据库名称相同，如果有数据库密码，必须保持一致。
下面是sql数据库连接代码，请参考：
public
conn
as
new
adodb.connection
conn.connectionstring
=
"driver={sql
server};server=服务器名称;uid=sa;pwd=密码;database=数据库名称"
conn.open
vb如何连接远程Access数据库
开发环境：VB6.0
数据库关联模型：data控件
DBMS：access2000
数据库装在局域网里的另外一台服务器上,请问我怎样在自己的机器上写一个VB程序，来控制和查询这个数据库？？
以下是连接字符串：
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\计算机名\共享目录名\文件名.MDB;"
关于此主题请参考：
如何操作远程http服务器上mdb数据库？《发布》
问题：
如何操作远程http服务器上mdb数据库？
已知某WEB服务器上的ACCESS数据库路径，如何在本地建立连接？
如何将远程http/web服务器的access数据库中的数据或表保存到本地？
回答：
无法简单实现。
Access是基于文件的，web服务器当然无法调用，这是原理问题。
不过你可以在WEB服务器上架设 Microsoft Replication Manager 4.0后就可以用过同步来完成通过 INTERNET进行的数据共享了。
如果你架设VPN的话可以，因为那是和在本机上access以文件形式操作mdb一样的。
你可以参考一下：
方法一：
你用类似 sql server等软件转一下。
http网络操作不是 Access的工作，是其他基于服务的数据库的应用范围。
方法二：
重新开发 Access数据库，用winsock等控件开发客户端发送数据，服务端接受数据的数据库，在两边同时运行access的情况下可以完成所需的操作。
回答：
Q& A回答
【提问】你好
【回答】你好
【提问】我在您的网站上想找一些远程访问数据库的文章，不过没找到，想直接请教您，打扰了
【回答】是远程访问mdb文件嘛？
【提问】是的，我WEB服务器用SQLSERVER2000，另一台机器装的ACESS，所有的数据要在WEB服务器录入，同时要更新到对应机器的ACESS数据库，数据更新要保持同步。就是我要在装SQL200O的中心机去更新远程的ACESS库。我看好多人说要文件共享，并且ACESS不支持存储过程，触发器，事务等，可是在有些网上又看到了说可以写存储过程的，我都搞不清了
【提问】望赐教
【回答】恐怕你要分清楚什么是access，什么是mdb，什么是jet应用了，你弄清楚了嘛？
【提问】没有，mdb不是ACESS的一个库文件吗，以前没用过。本来我说都装ACESS，结果领导非要用ACESS。领导的交往的朋友大多做ERP，办公自动化，是他们建议用的ACESS。
【回答】Access是一个软件，mdb是这个软件默认的存储格式，jet应用是使用jet引擎来调用 mdb这种格式的文件。Access当然支持存储过程，但是是以Access为界面，sqlserver或者msde为后端数据库。成为adp。mdb格式不支持远程数据操作，因为mdb是一种文件格式，所以你要操作文件必须用文件共享。
【回答】你是否是公司里的技术一把手，如果不是，那没什么可想的了，如果是，否决领导的提议。
END，本文到此结束，如果可以帮助到大家，还望关注本站哦！