VB如何打开MDB数据库中的一个表

VB中打开数据库的方法有很多，给你一个用ADO打开数据库的方法：首先在“工程”中引用"Microsoft Activex Data Objects 28 Library"'安装Offices后就会有的。Dim DB As Connection

Dim rs As Recordset Private Sub Command1_Click()

Set DB = New ADODBConnection

Set rs = New ADODBRecordset

DBConnectionString = "PROVIDER=MicrosoftJetOLEDB40;Data Source=" & AppPath & "\数据库名mdb;jet oledb:database password=123456"

DBOpen

rsOpen "select from 表名", DB, adOpenStatic, adLockReadOnly

rsClose注意：1在“工程”中引用"Microsoft Activex Data Objects 28 Library" 2代码写好后先保存，然把准备好的Access数据库放到代码保存的文件夹下。 3"select from 表名"，是打开数据库中叫做“表名”的一个表中全部数据。 可以用Msgbox rsFields(1)Value来调出表中的第一个值

VB连接MYSQL数据的方法

博客分类：

VB

VBMySQLSQLServerSQLSocket

第一步：上网>

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

另外

NET

Framework中连接数据库要用到ADONET。如果要 *** 作Access数据库，要用到SystemDataOleDb命名空间下的许多类。

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

'首先导入命名空间

Imports

SystemData

Imports

SystemDataOleDb

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

Dim

conn

As

New

OleDbConnection("Provider=MicrosoftACEOLEDB120;Data

Source=数据库accdb;Jet

OLEDB:Database

Password=MyDbPassword")

Dim

command

As

New

OleDbCommand("Select

From

数据表",

conn)

connOpen()

'打开数据库连接

Dim

reader

As

OleDbDataReader

=

commandExecuteReader()

'执行SQL语句，返回OleDbDataReader

对象

Do

While

readerRead()

'读取一条数据

textbox1Text

+=

reader("一些数据")

&

VbCrLf

Loop

readerClose()

'关闭OleDbDataReader

connClose()

'关闭连接

Private Declare Function ShellExecute Lib "shell32dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

''d:\123mdb 这里要写名你的文件在D盘上的绝对路径

Private Sub Command1_Click()

ShellExecute Mehwnd, "open", "d:\123mdb", "", "", 1

End Sub

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

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

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

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

有几种方法第一种是引用Databas对象，然后通过那个对象直接打开

第二种建立ODBC数据源，之后调用ADODB对象。

第三种，直接使用adodb去调用数据库

第三种的代码如下：注：首先要引用micorsoft activeX data Object

Dim con As New ADODBConnection

Dim rs As New ADODBRecordset

conOpen Provider=MicrosoftJetOLEDB

40;Data Source=E:\temp\Database\

Perform_R3mdb;Persist Security Info=False

rsOpen select from tbl_vlr, con, adOpenStatic

这样RS就带着表tbl_VLR的数据了。

另外如果单纯的要执行sql指令，可以使用con

execute sql字符串来实现。

另外，代码最后要注意关闭记录集对象和链接对象。

以上就是关于VB如何打开MDB数据库中的一个表全部的内容，包括:VB如何打开MDB数据库中的一个表、如何用vb连接mysql数据库、vb.net 怎么 *** 作数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！