本文目录
VB如何连接数据库
使用ADODC数据控件,它与数据库连接方式很多,并支持SQL结构化查询语言,能实现动态查询.但用控件也要写一些代码,以达到应用程序的目的. 数据库用VB6编程语言，对新手而言，如何用好ADODC控件和DATAGRID控件相当重要。具体做法： 新建工程时选数据工程，此时VB6集成调试环境左边工具箱内已加载了有关数据库编程必须的控件。 然后在FORM1窗体中添加ADODC控件和DATAGRID控件，将DATAGRID1的属性DATASOURCE选ADODC1，打开ADODC1控件属性页使用连接字符串，选生成，在提供者选项中根据数据库结构如*.MDB数据库则选MICROSOFT jet 4.0 OLE DB Provider或其它连接引擎,然后按要求连接数据库等。在ADODC1控件属性页使用连接字符串空白文本窗口中就有一长串字符串，注意该字符串可复制到程序代码用于编程。ADODC1控件属性页的数据源内有命令文本（SQL）编写窗口可编写SQL查询语言。该窗口的SQL语句可复制到程序代码用于编程。 SQL查询语言主要结构为： Select 查询字段 from 表名 Where 查询条件语句 查询字段必须分别用（西文）逗号分开或就用一个*号代替，上述查询中排序语句建议最好应用。 SQL查询语言如有错程序运行时告诉你出错，作相应改动即可。本人一般先按上述连接，SQL用"SELECT * FROM TabelName"作调试，无问题，用一个按钮孔件将前述需复制的连接字符串和SQL查询语言先复制于按钮控件的CLICK事件中备着，以便放着以后使用。然后删去ADODC1孔件，再添加ADODC1控件再添其他内容。 下给出一段数据连接代码: Private Sub Form_Load() Text1 = "" With Adodc1 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False" Adodc1.RecordSource = "select name from b1 order by name" Adodc1.Refresh DataGrid1.Refresh End With End Sub SQL查询语言多写多用
VB与各数据库的几种连接方式
－、用DAO控件连接数据库1.与Access2000数据库连接Private Sub Command1_Click()’也可直接在控件属性中设置以下各项但在控件属性中不能写入密码’只有在数据数没有密码的情况下可以省略Data1.RefreshData1.Connect = "Access 2000;"Data1.DatabaseName = App. Path + "/chncmadb.mdb"’数据库没有密码此句可省Data1.Connect = ";pwd=123456"’Data1.RecordSource = "耕地资源管理单元属性数据表2004" Data1.RecordSource = "select * from耕地资源管理单元属性数据表2004"Data1.Refresh’move后才能正确显示记录个数End Sub2.与没有密码的DBF文件数据库连接Private Sub Command2_Click()Data1.Connect = "dBASE III;"Data1.DatabaseName = App. Path’ Data1.RecordSource ="DBF"Data1.RecordSource = "select * from dbf"Data1.Refresh’move后才能正确显示记录个数End Sub3.与没有密码的Excel文件数据库连接Private Sub Command3_Click()Data1.Connect = "Excel 8.0;"Data1.DatabaseName = App.Path & "/EXcel.xls"Data1.RecordSource = "select * from ", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 4.’ADO代码与Oracle数据库连接Private Sub Command4_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ’.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串 AdoCnn.Open "Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"AdoRs.Open "select * from T320481TR012004", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub 5.’ADO代码与SQLserver数据库连接’未测试Private Sub Command5_Click() Dim AdoCnn As ADODB.Connection Dim AdoRs As ADODB.Recordset Set AdoCnn = New ADODB.Connection Set AdoRs = New ADODB.Recordset AdoCnn.CursorLocation = adUseClient ’.open后面的字符串可以参考ADO控件连接.ConnectionString后面的的字符串 AdoCnn.Open "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111"AdoRs.Open "select * from T320481TR012004", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText Set DataGrid1.DataSource = AdoRs Set AdoRs = Nothing Set AdoCnn = NothingEnd Sub
vb6.0 连接数据库共有那几种方法
1． 定义连接对象Global DBconnect As New ADODB.Connection2． 执行连接语句If DBconnect.State = adStateOpen And Not IsEmpty(adStateOpen) Then DBconnect.Closel 连接ODBC DBconnect.ConnectionString = "dsn=DataAliasName;uid=UserID;pwd=Passwd;"l 直接连接Access为Dbconnect.Provider = "Microsoft.jet.OLEDB.4.0" // Access 97为3.51DBconnect.ConnectionString = "FilePathFileName.mdb"l 连接OracleDBconnect.Provider = "MSADORA"DBconnect.ConnectionString = "user/mypass@servicename l 连接SQL ServerDBconnect.Provider = "SQLOLEDB.1"DBconnect.ConnectionString = "DATABASE= ;SERVER= ;UID= ;PWD= ;"或者可以使用 DBconnect.Open "SERVER" , "USERID" , "PASSWORD"DBConnect.Open3． 取查询结果集Global RS As New ADODB.RecordsetGlobal PS As New ADODB.RecordsetIf RS.State = adStateOpen And Not IsEmpty(adStateOpen) Then RS.Close RS.Open SQLStr, DBconnect, adOpenKeyset4． 执行SQL语句DBconn.Execute SQLStr5． 关闭数据库DBconnect.Close
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 SDK 版中不包含ODBC NET 要使用ODBC NET请到微软网站下载 具体下载地址 //msdn microsoft /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开发环境 选中菜单栏的 至此 完成了在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） 表 是三种数据提供者及其支持的数据库:
表 三种数据提供者及其支持的数据库
三 接下来就分别介绍以上几种数据提供者连接各种数据库
用The SQL Server NET Data Provider连接数据库
The SQL Server NET Data Provider是利用SqlConnection类来连接SQL Server 或更高版本的数据库
SqlConnection类位于名称空间System Data SqlClient下
连接代码
Dim sqlConnection As SqlClient SqlConnection
Dim strConnect As String= data source=服务器名;initial catalog=数据库名;user id=sa;password=;
sqlConnection =New System Data SqlClient SqlConnection(strConnect)
sqlConnection open 打开数据库
sqlConnection close 关闭连接 释放资源 用The OLE DB NET Data Provider连接数据库
上面已经说过 利用The OLE DB NET Data Provider可以访问Access Oracle和SQL Server等种数据库 那么 它是怎样访问这些数据库的呢？The OLE DB NET Data Provider是通过位于名称空间System Data OleDb类库下的OleDbConnection类来连接这三种不同类型的数据库的 下面举例说明:
)连接SQL Server数据库
Dim oleDbConnection As OleDb OleDbConnection
Dim strConnect As Sting= Provider=SQLOLEDB;Persist Security Info=False;Data Source=服务器名;Initial Catalog=数据库名;User ID=sa;Password=;
oleDbConnection =New System Data OleDb OleDbConnection(strConnect) )连接Access数据库
假设要连接的Access数据库名为 Example mdb 存放在d:\Data\目录下
Dim oleDbConnection As OleDb OleDbConnection
Dim strConnect As Sting= Provider=Microsoft Jet OLEDB ;Data Source=d:\Data\ Example mdb
oleDbConnection = New System Data OleDb OleDbConnection(strConnect) )连接Oracle数据库
Dim oleDbConnection As OleDb OleDbConnection
Dim strConnect As Sting= Provider=MSDAORA;Data Source=服务器名;User ID=用户ID;Password=密码;
oleDbConnection = New System Data OleDb OleDbConnection(strConnect) 用The ODBC NET Data Provider连接数据库
The ODBC NET Data Provider连接数据库是通过OdbcConnection类来实现的 这个类位于名称空间Microsoft Data Odbc下 而名称空间Microsoft Data Odbc是封装在Microsoft Data Odbc dll文件下的
)连接Sql Server数据库
Dim odbcDbConnetion As Microsoft Data OdbcConnection
Dim strConnect As Sting= Driver={SQL Server};Server=服务器名;Uid=sa;pwd=;Database= 数据库名;
odbcDbConnetion =New Microsoft Data OdbcConnection(strConnect) )连接Oracle数据库
Dim odbcDbConnetion As Microsoft Data OdbcConnection
Dim strConnect As Sting= Driver={Microsoft ODBC for Oracle};Server=服务器名;Uid=sa;pwd=;
odbcDbConnetion =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的效率最慢
lishixinzhi/Article/program/net/201311/15767
具体解释VB中连接access数据库的几种方法
在VB中，连接ACCESS数据库的方法主要有以下三种
使用ADO对象，通过编写代码访问数据库
使用ADO Data 控件高速创建数据库连接
使用数据环境设计器创建数据库连接
Connection 对象
ODBC数据源
有三种连接方法
Data Link文件
使用ODBC数据源名称
使用连接字符串
首先加入环境引用。
然后找到数据源进行连接
不管是哪一种连接，都是先有一个路径，通向要连接的数据源，和数据源建立关系，在连接。就好比从北京到上海，能够做汽车，能够做火车，还能够做飞机，汽车走快速，火车走铁路，飞机走航线，过程不一样，但结果是一样的，都是到达上海目的地。
