VB与各数据库的几种连接方式

最新推荐文章于 2024-09-30 10:37:48 发布
最新推荐文章于 2024-09-30 10:37:48 发布
阅读量1.1w 收藏 14
点赞数 2
文章标签： 数据库 vb datagrid command security microsoft
VB与各数据库的几种连接方式

－、用DAO控件连接数据库

1.与Access2000数据库连接

Private Sub Command1_Click()

'也可直接在控件属性中设置以下各项但在控件属性中不能写入密码

'只有在数据数没有密码的情况下可以省略

Data1.Refresh

Data1.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 Sub

2.与没有密码的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 Sub

3.与没有密码的Excel文件数据库连接

Private Sub Command3_Click()

Data1.Connect = "Excel 8.0;"

Data1.DatabaseName = App.Path & "/EXcel.xls"

Data1.RecordSource = "select * from  [EXcel.xls]"

Data1.Refresh

’move后才能正确显示记录个

End Sub

 

二、用DAO代码连接数据库

'在使用DAO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft DAO 3.6 Object Library]选项，或其它版本

1.DAO代码与Access数据库连接

Private Sub Command1_Click()

Dim Db As Database

Dim Rs As Recordset

'以共享、读写方式打开'如果无密码最后一个参数可以不要

Set　Db= OpenDatabase(App.Path & "/chncmadb.mdb", False, False, ";pwd=123456")

'不需要move来更新记录个数  

'Set Rs = Db.OpenRecordset("耕地资源管理单元属性数据表2004")    

'需要move来更新记录个数

Set Rs = Db.OpenRecordset("select * from [耕地资源管理单元属性数据表2004]")

If Rs.RecordCount > 0 Then

    Rs.MoveLast

    Rs.MoveFirst

End If

End Sub

 

2.DAO代码与没有密码的DBF文件数据库连接

Private Sub Command2_Click()

Dim Db As Database

Dim Rs As Recordset

'以共享、读写方式打开

Set Db = OpenDatabase(App.Path, False, False, "dbase III;")      

'不需要move来更新记录个数

'Set Rs = Db.OpenRecordset("DBF")

’需要move来更新记录个数

Set Rs = Db.OpenRecordset("select * from [DBF]")    

If Rs.RecordCount > 0 Then

    Rs.MoveLast

    Rs.MoveFirst

End If

End sub

 

3. 'DAO代码与没有密码的Excel文件数据库连接

Private Sub Command3_Click()

Dim Db As Database

Dim Rs As Recordset

'以共享、读写方式打开'如果无密码最后一个参数可以不要

Set Db = OpenDatabase(App.Path & "/EXcel.xls", False, False, "Excel 8.0;")

'不需要move来更新记录个数  

' Set Rs = Db.OpenRecordset("EXcel.xls") '表格中的工作目录sheet  

'需要move来更新记录个数

Set Rs = Db.OpenRecordset("select * from [EXcel.xls]") '表格中的工作目录sheet'

If Rs.RecordCount > 0 Then

    Rs.MoveLast

    Rs.MoveFirst

End If

End Sub

 

三、用ADO控件连接数据库

'也可直接在控件属性中设置以下各项

1.ADO控件与Access2000数据库连接

Private Sub Command1_Click()

    '连接有密码的Access数据库

    'Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"

    '连接没有密码的Access数据库

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb.mdb;Persist Security Info=False"

    'Adodc1.RecordSource = "[耕地资源管理单元属性数据表2004]"

    Adodc1.RecordSource = "select * from [耕地资源管理单元属性数据表2004]"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

    DataGrid1.Refresh

End Sub

 

2.'ADO控件与DBF表连接

Private Sub Command2_Click()

    'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;DBQ=" & App.Path & ";SourceType=DBF;"

    'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Visual FoxPro Tables;UID=;SourceDB=”& app.path &”;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"

    'Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=dBASE Files;DBQ=”& app.path &”;;DefaultDir=”& app.path &”;DriverId=533;MaxBufferSize=2048;PageTimeout=5;"

    '能使表名长度不受限制

    Adodc1.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale Identifier=2052"

    'Adodc1.RecordSource = "[DBF1]"

    Adodc1.RecordSource = "select * from DBF1"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

    DataGrid1.Refresh

End Sub

 

3.'ADO控件与Excel表连接

Private Sub Command3_Click()

   '下面一句测试未能通过

   'Adodc1.ConnectionString = "Data Provider=MSDASQL.1;driver=Microsoft Excel Driver *.xls);DBQ=" & App.Path & "/EXcel.xls"

   'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Excel Files;DBQ=" & App.Path & "/EXcel.xls;DefaultDir=”&app.path &”;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"

    'Adodc1.RecordSource = "[EXcel.xls]"

    Adodc1.RecordSource = "select * from [EXcel.xls]"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

    DataGrid1.Refresh

End Sub

 

4.'ADO控件与Oracle数据库连接

Private Sub Command4_Click()

    'Adodc1.ConnectionString = "Provider=MSDAORA.1;Password=chncmadb;User ID=chncmadb;Data Source=towebserver;Persist Security Info=True"

Adodc1.ConnectionString="Provider=OraOLEDB.Oracle.1;Password=chncmadb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"

    'Adodc1.RecordSource = "T320481TR012004"

    '表名不能加方括号

    Adodc1.RecordSource = "select * from T320481TR012004"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

    DataGrid1.Refresh

End Sub

 

5.'ADO控件与SQLserver数据库连接

'未测试

Private Sub Command5_Click()

    Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111"

    'Adodc1.RecordSource = "T320481TR012004"

    Adodc1.RecordSource = "select * from T320481TR012004"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

    DataGrid1.Refresh

End Sub

 

四、用ADO代码连接数据库

'在使用ADO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft.ActiveX Data Object 2.5 Library]选项，或其它版本

1.'ADO代码与Access2000数据库连接

Private Sub Command1_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=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"

AdoRs.Open "select * from [耕地资源管理单元属性数据表2004]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText

    Set DataGrid1.DataSource = AdoRs

    Set AdoRs = Nothing

    Set AdoCnn = Nothing

End Sub

 

2.'ADO代码与DBF表连接

Private Sub Command2_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=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" & App.Path & ";SourceType=DBF;Locale Identifier=2052"

AdoRs.Open "select * from [DBF1]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText

    Set DataGrid1.DataSource = AdoRs

    Set AdoRs = Nothing

    Set AdoCnn = Nothing

End Sub

3.'ADO代码与Excel表连接

Private Sub Command3_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=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "/EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"

AdoRs.Open "select * from [EXcel.xls]", AdoCnn, adOpenDynamic, adLockPessimistic, adCmdText

    Set DataGrid1.DataSource = AdoRs

    Set AdoRs = Nothing

    Set AdoCnn = Nothing

End 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 = Nothing

End 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 = Nothing

End Sub

 
gxiyv
关注
VB连接数据库
随心飞扬
09-30 1951
今天告诉大家VB连接数据库的方法，我知道的有两种： 一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。 一种是用代码设置数据库的路径，这种方法的优点就是只要源文件和数据库在同一文件夹下，无论移动到哪里都能连接上。 如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为mes
总结 vb与数据库的连接方法
热门推荐
王勇霞 信息技术提高班九期
06-01 1万+
总结：vb与数据库连接方式，两种分法。根据是否使用ODBC（驱动程序）来分： 1.有源连接   2.无源连接。 其中有源连接指的是：通过设置数据源（ODBC）来连接 据我的观察无源连接选择的是oledb驱动程序，（这些驱动程序请参考：应用程序和数据库的连接方式 ） 当我们设置数据绑定控件的连接字符串时出现如下窗口：       上图中每一行都是oledb 作为驱动程序，当
VB数据库编程入门到实践案例集
最新发布
weixin_32324637的博客
09-30 1118
本文还有配套的精品资源，点击获取 简介：本教程针对VB初学者，以SQL实例演示VB中数据库操作。介绍基础SQL语句、ADO组件、数据库连接、Command对象执行、DataAdapter与DataSet使用、数据绑定控件、事务处理和错误处理。课程内容详细，适合逐步学习数据库编程技能，并通过实例加深理解。 1. VB数据库编程基础 数据库编程一直是软件开发中的...
vb是如何连接数据库的
weixin_30662011的博客
05-24 266
vb是如何连接数据库的 刚开始学习数据库时 ，对数据库很不了解，尤其是模块中的代码。照着抄都有很多错的，每一句到底是什么意思呢，根本不懂。于是我就花费了大量的时间去查每一句代码的具体作用，直到我师傅说让我带着问题前进的时候。 不过我还是稍微有点成果的——我弄懂了模块中的连接数据库的代码。先写出来一些我自己的理解，如果错了，请大家不惜赐教。 Sub...
vb连接数据库
08-30 667
Private Sub cmd1_Click()     Dim cnn As ADODB.Connection   Dim my_recordset As ADODB.Recordset   Dim connect_string As String   Dim statestring As String   Set cnn = New ADODB.Connection   Set m
VB连接SqlServer数据库（代码连接）
01-03
文件夹内有图片示例可以参考。。。
vb与数据库编程
weixin_46807151的博客
07-04 570
数据库的概念 数据库是按照数据结构来组织、存储和管理数据的仓库。 它可以存储大量的数据，并提供高效的数据访问和管理功能。 数据库的类型 关系型数据库：如 SQL Server、MySQL、Oracle 等，以表格形式存储数据，通过关系（如主键和外键）来关联不同的表。 非关系型数据库：如 MongoDB、Redis 等，采用不同的数据存储和访问方式，适用于特定的应用场景。 数据库管理系统（DBMS） 是用于管理数据库的软件系统，负责数据库的创建、维护、查询处理等操作。
VB.Net连接各种数据库的几种方法
07-02
Microsoft Visual Basic.NET（简称VB.NET），作为一款强大的开发工具，支持多种方式与不同的数据库进行交互。本文将详细介绍VB.NET如何通过不同的数据提供者（Data Providers）连接并操作多种数据库。 #### 二、ADO...
vb数据库连接方式大全
09-25
在Visual Basic 6.0中，要建立与数据库的连接，可采用的技术手段很多，如：数据控件、数据对象、数据环境设计器等。开发人员可以根据自身的条件和用户的需求进行选择。
vb连接access数据库常用的方法两种示例
11-10
VB 连接 Access 数据库常用的方法两种示例 VB 连接 Access 数据库是许多开发者经常遇到的问题，本文将介绍两种常用的方法来连接 Access 数据库，并将数据展示在 VB 窗口中。 方法一：通过语句链接数据库 在这个...
VB6.0连接MySQL数据库
08-20
新手使用VB6.0连接MySQL数据库，资料出自原创，思路清晰，步骤详细！
VB 连接数据库完整实例
01-18
VB 连接数据库 完整实例，可以直接写sql来操作数据，不过要小心操作！
VB通过ADO连接SQL数据的两种方法
有梦想就能飞翔
07-25 2914
VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源，如下例：1、在连接数据库前首先要在VB菜单中“工程”-“引用”从中选择 microsoft activeX Data objects 2.6 library和 microsoft activeX Data objects recordset 2.6两个组件，这是
VB与数据库连接方式的研究
08-31
　　VB 是一种面向对象的可视化编程工具,具有 简单易学、灵活方便和易于扩充的特点。数据库是 一种常用的管理软件,具有强大的数据管理功能,是 各种信息系统的核心技术和基础平台,两者结合是 现在常用的编程组合。本文就两者之间的连接方式 做了详细的分析,对开发信息系统和从事这方面工 作人员有一定指导意义。
vb连接access数据库的两种方法
08-31
### VB连接Access数据库的两种方法 在开发过程中，利用Visual Basic (简称VB)进行应用程序开发时，连接并操作Access数据库是非常常见的需求。本文将详细介绍两种使用VB连接Access数据库的方法，并提供具体的代码...
VB6连接各种类型的数据库
05-14 832
六、通过.udl通用数据连接文件连接数据库。七、编辑修改.udl通用数据连接文件。五、连接Oracle数据库。二、连接Ms SQL数据库。四、连接MySql数据库。
vb 连接数据库后对数据的增加，删除，更新实例
03-11
vb 连接数据库后对数据的增加，删除，更新实例，对刚开始学习ＶＢ的会有很有用
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值