vbnet数据库连接

Ⅰ VB.NET怎样连接数据库

Imports System.Data
Imports System.Data.sqlClient

Mole 连接数据库
Public Server1 As String
Public DataBase1 As String
Public Function GetTable(ByVal sqlstr$) As DataTable
Dim SqlConn As SqlConnection = New SqlConnection("server=" & Server1 & ";database=" & DataBase1 & ";integrated security=true") '声明这些SQL的类
Dim facDataAdapter As SqlDataAdapter = New SqlDataAdapter
Dim SqlComm As SqlCommand = New SqlCommand(sqlstr, SqlConn)
facDataAdapter.SelectCommand = SqlComm
Dim dt As DataTable = New DataTable
facDataAdapter.Fill(dt)
Return dt
End Function
End Mole

Ⅱ VB.net 数据库连接问题

我 看了一下应该是你第一次连接上后，cnn.open就打开并持续开着，并没有关闭，所以，你断网后，第二次连接，他依然是打开的。
另外：
我个人建议你要学会用vb.net的组件，自己连太麻烦，他有现成的，你直接在数据库里选择添加新数据源，按照提示把数据库添加上，然后，你会看到你的程序下面会多了个数据集(dataset).
最后要做的就是使用这些数据集了。以form1为例，你添加一个datagridview,然后在他的数据源上选择刚才添加的项数据集中的某个数据表，然后你会看到，在form1中多了一个dataadapter,sqlconn,datset,并且在form1的load事件中，你会发现多了一条语句，dataadapet.fill(dataset)。
当你运行程序并更改了datagridview后，想要更新数据，只需要在后面，增加一个button,并设置他的click事件为：dataadapter.update(dataset)
怎么样，是不是还有一个问题想问？就是如何更改数据源，很简单，在form1的load事件中，dataadapter.fill(dataset)这条语句之前，再增加一条，sqlconn.ConnectionString = "server=**;database=**;uid=**;pwd=**;Connect TimeOut=2"这个就是你的数据源。
希望我的答案能令你满意。

Ⅲ vb.net 怎么操作数据库

如果楼主熟悉VB6，可以直接在项目中添加ADODB的Com引用，这样你就可以像VB6那样操作数据库了！
另外
.NET
Framework中连接数据库要用到ADO.NET。如果要操作Access数据库，要用到System.Data.OleDb命名空间下的许多类。
比如按楼主所说，“我想在textbox1中显示表一中【一些数据】字段下的第一个内容”：
'首先导入命名空间
Imports
System.Data
Imports
System.Data.OleDb
'然后在某一个事件处理程序中写：
Dim
conn
As
New
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source=数据库.accdb;Jet
OLEDB:Database
Password=MyDbPassword")
Dim
command
As
New
OleDbCommand("Select
*
From
数据表",
conn)
conn.Open()
'打开数据库连接
Dim
reader
As
OleDbDataReader
=
command.ExecuteReader()
'执行SQL语句，返回OleDbDataReader
对象
Do
While
reader.Read()
'读取一条数据
textbox1.Text
+=
reader("一些数据")
&
VbCrLf
Loop
reader.Close()
'关闭OleDbDataReader
conn.Close()
'关闭连接

Ⅳ vb.net的数据库怎么连接啊

Dim
sqlConnection1
As
SqlClient.SqlConnection
Dim
strConnect
As
String=”data
source=服务器名;initial
catalog=数据库名;user
id=sa;password=;”
sqlConnection1=New
System.Data.SqlClient.SqlConnection(strConnect)
sqlConnection1.open
‘打开数据库
sqlConnection1.close
‘关闭连接，释放资源
1)连接Sql
Server数据库
Dim
odbcDbConnetion1
As
Microsoft.Data.OdbcConnection
Dim
strConnect
As
Sting=”Driver={SQL
Server};Server=服务器名;Uid=sa;pwd=;Database=
数据库名;”
odbcDbConnetion1=New
Microsoft.Data.OdbcConnection(strConnect)

Ⅳ VB.NET如何连接数据库

VB.NET连接数据库的几种方法
Microsoft Visual Basic.NET 是Microsoft Visual Basic的更新版本，它基于.NET的框架结构，能使用户非常容易地创建Microsoft Windows操作系统和网络的应用程序。 使用Visual Basic.NET，可以快速地实现可视化开发网络应用程序、网络服务、Windows 应用程序和服务器端组件。另外，Visual Basic.NET为Windows应用程序提供了XCOPY部署，开发人员不再需要为DLL的版本问题担忧。 Visual Basic现在已经真正成为面向对象以及支持继承性的语言。窗体设计器支持可视化继承，并且包含了许多新的特性，比如自动改变窗体大小、资源本地化以及可达性支持。数据类工具内在支持XML数据，在设计时数据绑定使用断开的数据。另外， Visual Basic.NET直接建立在.NET 的框架结构上，因此开发人员可以充分利用所有平台特性，也可以与其他的.NET语言交互。
在这篇文章中我要跟大家讲的，是介绍Visual Basic.NET的数据库编程及其相关知识。

一、先介绍ADO.NET和ODBC.NET

ADO .NET由Microsoft ActiveX Data Objects (ADO)改进而来，它提供平台互用和可收缩的数据访问功能，是Visual Basic.NET进行数据库编程所使用的重要工具。ADO.NET 使用了某些 ADO 的对象，如 Connection 和 Command 对象，并且还引入了新的对象。主要的新 ADO.NET 对象包括 DataSet、DataReader 和 DataAdapter。

ODBC.NET是.NET框架中另外一个很有用的用于数据库开发的类库。但是，在.NET FrameWork SDK1.0版中不包含 ODBC.NET，要使用ODBC.NET请到微软网站下载，具体下载地址：http: //msdn.microsoft.com/library/default.asp?url=/downloads/list/netdevframework.asp （文件名是odbc_net.msi）在默认情况下，安装路径是“C:\Program File\Microsoft.net\odbc.net”。安装后的组件名为Microsoft.Data.Odbc.dll文件。

添加ODBC .NET Data Provider的步骤：

启动Visual Basic.NET开发环境，选中菜单栏的[工具]—>[数据]—>[自定义工具箱]，在弹出的[自定义工具箱] 对话框中选[.Net 框架组件]单击[浏览]按钮，在“C:\Program File\Microsoft.net\odbc.net”目录下选择 Microsoft.Data.Odbc.dll文件。接下来就在[自定义工具箱]中选择“OdbcCommand”、 “OdbcCommandBuilder”、“OdbcConnection”、“OdbcDataApdater”后，单击[确定]。至此，完成了在 Visual Basic.NET中加入ODBC .NET。

二、接下来介绍数据提供者（Data Provider）

ADO.NET和ODBC.NET两者共提供了三种数据提供者，其中ADO.NET提供两种（The SQL Server .NET Data Provider和 The OLE DB .NET Data Provider ） ODBC .NET提供一种（The ODBC .NET Data Provider）。表1是三种数据提供者及其支持的数据库:

数据提供者（Data Provider）
支持的数据库

I
The SQL Server .NET Data Provider
仅支持SQL Server7.0或更高版本

II
The OLE DB .NET Data Provider
Access、Oracle和Sql Server等

III
The ODBC .NET Data Provider
Access、Oracle、Sql Server、MySql、VFP等

表1三种数据提供者及其支持的数据库

三、接下来就分别介绍以上几种数据提供者连接各种数据库

1、 用The SQL Server .NET Data Provider连接数据库

The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，

SqlConnection类位于名称空间System.Data.SqlClient下。

连接代码：

Dim sqlConnection1 As SqlClient.SqlConnection

Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)

sqlConnection1.open ‘打开数据库

sqlConnection1.close ‘关闭连接，释放资源

2、 用The OLE DB .NET Data Provider连接数据库

上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据

库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy

stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:

1)连接SQL Server数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False; Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”

oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)

2)连接Access数据库

假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3)连接Oracle数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3、 用The ODBC .NET Data Provider连接数据库

The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间

Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。

由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类

似，我就不再多讲了。

1)连接Sql Server数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

2)连接Oracle数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

四、总结

通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法

。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server .NET Data Provider

的效率最高；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。

具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。

相关资料：http://dotnet.chinaitlab.com/VBNET/759455_3.html

Ⅵ VB.NET 连接数据库后的操作

ACmd.CommandText = AFind 下面要加上一句执行
ACmd.ExecuteNonQuery()
-------------------------------------
要写查询到控件DataGridView的话，可以这样做：.net2.0或以上的环境中：
Dim AConnect As OleDb.OleDbConnection
Dim ACmd As OleDb.OleDbCommand
Dim dtResult As DataTable=new DataTable()
Dim ConnectStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\Enroll.mdb"
Dim AFind As String = "SELECT * FROM rj"
AConnect = New OleDb.OleDbConnection(ConnectStr)
AConnect.Open()
ACmd = New OleDb.OleDbCommand(AFind, AConnect)
ACmd.CommandText = AFind
Dim ADr as OleDb.OleDbDataReader=ACmd.ExcuteReader()
dtResult.Load(ADr)
AConnect.Close()
DataGridView.DataSource=dtResult
---------
希望能符合你的需求

Ⅶ vb.net和数据库连接的问题

我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Data Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.
然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
创建这两个对象的具体方法是:
1.在引用后,使用New关键字,如
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.在没引用时,用CreateObject创建对象:
Dim Conn,Reco
Set Conn = CreateObject("ADODB.Connection")
Set Reco = CreateObject("ADODB.Recordset")
创建了对象之后,下一步我们要做的就是打开数据库了.
先看下面的代码,可以成功的打开数据库.
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb"
这句代码打开了D盘中的Main.mdb这个数据库.
Connection.Open方法的第一个参数是连接代码,它将传递给系统的数据库引擎.前半部分"Provider= Microsoft.Jet.OLEDB.4.0",它表示了数据库的类型.不同的数据库可能会不同.后半句"Source=d:\main.mdb"它表示了数据库所在的绝对路径.
打开数据库之后,还要打开表.假如数据库中有一个表,表名为"Users",字段有两个,一个为用户名,一个为密码.那么看以下代码.
1.想返回"Users"中,[用户名]为"去年烟花"的[密码]
Recordset.open "Select 密码 From Users Where 用户名='去年烟花'",Connection,1,1

之后我们就可以把用户输入的密码进行比较,看是否允许登录.
If Recordset.eof and Recordset.bof then
Msgbox "用户不存在!",16
Else
If PassWord =Recordset("密码").value then
msgbox "登录成功!",64
Else
msgbox "密码错误!",32
End If
End If
Recordset.Close
2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来
Recordset.open "Select * From Users",Connection,1,1
这时,表已经被打开,我们就用以下代码把它显示出来.
Do whlie Not Recordset.eof
Print "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").value
Recordset.MoveNext
Loop
Recordset.Close
由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.
Select [字段名] From 表名 [Where 条件]
这里的条件可以省略.且字段名也可以用"*"来代替所有字段.
需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.
后面的条件,可以用"="、">"、"<"等运算符.比如 "Where ID > 32".(这里假设[ID]为数字型.)

这是打开的部分.第二个很重要的部分就是查询记录.
数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.
定位:
移动到下一条 Recordset.MoveNext
移动到上一条 Recordset.MovePrevious
移动到最后一条 Recordset.MoveLast
移动到第一条 Recordset.MoveFrist
移动到某一条 Recordset.Move Number
筛选:
Recordset.Find "条件"
如:[用方法(2)打开表之后]
Private Sub Command1_Click()
Recordset.Find "用户名=" & "text1.text"
If Recordset.Eof <> True Then
Msgbox "该用户的密码是:" & Recordset("密码").value,64
Else
Msgbox "未找到该用户的资料!",16
End If
End Sub
MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时....
而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.

Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.

第三个部分就是添加/修改记录.
修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.
比如:[(修改密码)按方法(1)打开表之后]
Recordset("密码").value = "123456"
Recordset.Updata
需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.
而添加记录则可以用以下代码来实现:
Recordset.addnew
Recordset("用户名").value = "Admin"
Recordset("密码").value = "Admin"
Recordset.Updata
这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.
到这里就差不多了,最后说一下上面提到的几个方法.
Recordset.Open SQL语句,数据源,游标类型,打开方法
SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据
数据源就是一个打开之后的Connection对象.
去他妈的游标类型,填1就可以了 [偷笑ing]
打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.
对应数值的意义:
1 只读 2 独占 3 可写 4 自已可写,别人可读
Connection.open 连接代码,服务器用户名,密码
这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.

Ⅷ vb.net的数据库连接

1·绑定数据源来进行连接
2.用代码连接
先到数据库建立一个数据库和相应的表
连接数据库的代码：
Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
try
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()
Return True
Catch ex As Exception
MsgBox(ex.ToString)
Return False
End Try
登录代码：Dim str As String = "Data Source=服务器名;Initial Catalog=数据库名;Persist Security Info=True;User ID=;Password="
dim conn As SqlClient.SqlConnection
conn = New SqlClient.SqlConnection
conn.ConnectionString = str
conn.Open()

sqlstr = "Select * From Amd Where AmdName='" & TextBox1.Text & "' And AmdPwd = '" & TextBox2.Text & "'"
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(sqlstr, conn)
Dim dr As SqlClient.SqlDataReader
dr = sqlcmd.ExecuteReader
If dr.Read = True Then '判断一条记录为真
kf.Show() '显示下个窗体
Me.Hide() ’隐藏当前窗体
Else
MessageBox.Show("输入信息有误！", "提示")
TextBox1.Text = ""
TextBox2.Text = ""
End If

Ⅸ vb.net 表格控件如何连接数据库

给你个简单的例子
Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
Inherits System.Windows.Forms.Form
'数据库连接对象
'错误的写法
'Dim objConnection As SqlConnection = New SqlConnection("server=(local);database=pubs;user id=sa;password=")
'正确写法
Dim objConnection As New SqlConnection("Data Source=127.0.0.1; Initial Catalog=pubs; user id=sa; password=;")
'数据适配器
Dim objDataAdapter As SqlDataAdapter = New SqlDataAdapter()
'DataSet
Dim objDataSet As DataSet = New DataSet()

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'设置查询命令属性
objDataAdapter.SelectCommand = New SqlCommand
objDataAdapter.SelectCommand.Connection = objConnection
objDataAdapter.SelectCommand.CommandText = "select au_lname,au_fname,title,price from authors join titleauthor on authors.au_id=titleauthor.au_id join titles on titleauthor.title_id=titles.title_id order by au_lname,au_fname"
objDataAdapter.SelectCommand.CommandType = CommandType.Text

'打开数据库连接
objConnection.Open()

'填充DataSet对象
objDataAdapter.Fill(objDataSet, "authors")

'关闭数据库连接
objConnection.Close()

'给DataGrid绑定数据
grdAuthorTitles.DataSource = objDataSet
grdAuthorTitles.DataMember = "authors"

'清除
objDataAdapter = Nothing
objConnection = Nothing
End Sub
End Class

Ⅹ vb.net连接数据库

1、 用The SQL Server .NET Data Provider连接数据库

The SQL Server .NET Data Provider是利用SqlConnection类来连接SQL Server7.0或更高版本的数据库，

SqlConnection类位于名称空间System.Data.SqlClient下。

连接代码：

Dim sqlConnection1 As SqlClient.SqlConnection

Dim strConnect As String=”data source=服务器名;initial catalog=数据库名;user id=sa;password=;”

sqlConnection1=New System.Data.SqlClient.SqlConnection(strConnect)

sqlConnection1.open ‘打开数据库

sqlConnection1.close ‘关闭连接，释放资源

2、 用The OLE DB .NET Data Provider连接数据库

上面已经说过，利用The OLE DB .NET Data Provider可以访问Access、Oracle和SQL Server等种数据

库，那么，它是怎样访问这些数据库的呢？The OLE DB .NET Data Provider是通过位于名称空间Sy

stem.Data.OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的。下面举例说明:

1)连接SQL Server数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;”

oleDbConnection1=New System.Data.OleDb.OleDbConnection(strConnect)

2)连接Access数据库

假设要连接的Access数据库名为“Example.mdb”，存放在d:\Data\目录下。

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Data\ Example.mdb”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3)连接Oracle数据库

Dim oleDbConnection1 As OleDb.OleDbConnection

Dim strConnect As Sting=”Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;”

oleDbConnection1= New System.Data.OleDb.OleDbConnection(strConnect)

3、 用The ODBC .NET Data Provider连接数据库

The ODBC .NET Data Provider连接数据库是通过OdbcConnection类来实现的，这个类位于名称空间

Microsoft.Data.Odbc下，而名称空间Microsoft.Data.Odbc是封装在Microsoft.Data.Odbc.dll文件下的。

由于篇幅有限，这里就只介绍连接Sql Server和Oracle数据库的方法，其他数据库的连接方法基本类

似，我就不再多讲了。

1)连接Sql Server数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

2)连接Oracle数据库

Dim odbcDbConnetion1 As Microsoft.Data.OdbcConnection

Dim strConnect As Sting=”Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;”

odbcDbConnetion1=New Microsoft.Data.OdbcConnection(strConnect)

四、总结

通过本文的介绍，读者基本掌握了在Visual Basic.NET中用ADO.NET和ODBC.NET连接各种数据库的方法

。以上三种驱动针对不同的数据库，它们的性能方面也有很大的不同：The SQL Server .NET Data Provider

的效率最高；The OLE DB .NET Data Provider的效率比较底；The ODBC .NET Data Provider的效率最慢。

具体连接哪一种数据库选用哪一种数据驱动要从工作效率方面来考虑。
以上回答你满意么？