vbado訪問資料庫

Ⅰ ADO 用VB怎麼連Access資料庫

以下是用ADO對象連接ACCESS資料庫:
在使用ADO之前,在工程中引用,打開"工程"/"引用"命令,打開"引用"對話框.選擇"Microsoft
ActiveX
Data
Object
2.5
Library"選項,單擊"確定".<2.8以下可以選擇><向下兼容>.
Dim
cnn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
___________________________________________
Private
sub
Form_Load()

cnn.Open
"driver={microsoft
access
driver
(*.mdb)};dbq="
&
App.Path
&"\資料庫名.mdb"<注意:此處第二個driver後面必須有空格>

rs.Open
"表名",cnn,
adOpenKeyset,adLockBatchOptimistic

......

......
end
sub
希望對你有所幫助.可能存在個別字元錯誤.請在程序中試用.

Ⅱ VB 使用ADO控制項鏈接資料庫，鏈接時怎麼指定資料庫的相對路徑

通常我是這么做的:
1. 第1步：在VB編輯狀態，選中ADO控制項，在屬性窗口設置它的ConnectionString屬性。並可以進行測試連接，確定連接成功，就在屬性窗口裡獲得了正確的連接字元串。
例如：我的一個連接本地資料庫的例子如下：
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\資料庫系統\資料庫.mdb;Persist Security Info=False
顯然，這個是絕對路徑，為了使得你的程序靈活使用，需要把其中路徑修改為如下相對路徑，並用語句進行連接，其實很好理解：
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path & "\資料庫系統\資料庫.mdb;Persist Security Info=False"
我在做工程時，建立了文件夾「資料庫系統」，然後將所有文件以及資料庫文件都保存在該文件夾里，我的資料庫文件為「資料庫.mdb」。

Ⅲ vb用ado控制項連接資料庫

正確添加了ADO控制項後,設置ADO控制項的Connectionstring屬性,它指出了ADO控制項和資料庫連接的字元串,打開這個屬性的屬性頁,可以通過三種方式設置連接方式,常設置為OLEDB方式:
Connectionstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=你的資料庫路徑"
然後設置RecordSource屬性指出可以操作的資料庫的來源(即結果字元串,可以是sql查詢產生的).
在設置好後,可以用文本框(textbox)等綁定數據表中的欄位進行顯示.

Ⅳ vb用ado連接sql資料庫(vb與sql資料庫連接)

在VB中使用ADO

在程序設計中,ADO不是作為可視化的控制項來使用的,如果要在應用程序中使用ADO組件,需要在"工程"菜單下的"引用"項中選該組件!該組件名稱為:"MircrosoftActiveXDataObject2.0Library"(注:可能有2.52.6或者其他版本)

3-訪問過程概要

使用ADO訪問資料庫類似於高速公路,首先,必須先修好公路,建立城市與城市間的連接,汽車才能在上面運行,ADO首先也需要建立程序與資料庫間的連接,然後在這個連接上執行操作.

因此ADO提供了一個連接對象,該對象負責建立與資料庫的連接,因此提供了一些屬性以供設置,同時也提供了建立連接的方法與相應連接相關的事件!

連接建立之後,連接對像本身也提供了資料庫執行操作的方法,但要更強有力的執行SQL的功能要由另一個命令對象來實現.

此外,一個非常重要的對象是記錄集對像,因為在很多時候,需要執行資料庫的查詢,而查詢的結果返回必須以某個容器來承載,就好比高速公路運送回來的貨物需要建立一個物資倉庫來進行貨物的接收和儲存.

還需要注意的是,要求程序與資料庫之間斷開連接.

連接對象,命令對象,和記錄集對象分別對應ADO的Connection,Command,和Recordset三個對象

4-

1.連接對象(Connection)的主要屬性

屬性名稱屬團改性說明

Provider指定要進行連接的提供程序的名稱,該屬性標識要進行數據連接的資料庫類型

設置或者返回產生錯誤之前執行命令期間需等待的時間,單位為秒

設置或者返回產生錯誤前建立連接期間所等待的時間,單位為秒

設置建立到數據源的連接的信息,不同的信息單元以";"號分割

State說明當前碰檔連接的狀態信息

主要屬性說明:

A.Provider

用Provider屬性可以設置或返回連接提供者名稱,也可以通過屬性的內容或open方法的參數設置該屬性

例如:Con.Provider="Microsoft.Jet.OLEDB.3.51"

Con.Provider="sqloledb"

分別表示aess與SqlServer的連接支持!

B.

例如,可以按以下方式分別設置SQLServer與Aess的連接字元串信息

Con.="driver={SQLServer};server=SV1;uid=sa;pwd=;database=pubs"

Con.="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:
.MDB"

請注意Aess資料庫與SqlServer資料庫不同的連接方式,Aess資料庫需要指定具體的文件名,而SqlServer通過指定資料庫名來訪問

連接方式可以笑或亂還可以是數據源,例如,可以使用建立的數據源連接:

Con.="DSN=ACCPSQL;server=SV1;uid=sa;pwd=;"

C.State

該屬性是只讀的,不能進行設置,返回值為常數表示連接已關閉,返回值adStateOpen常數表示連接是打開的

附:ProviderParameters參數

提供程序參數字元串

MicrusoftJetMicrosoft.Jet.OLEDB.3.51

OracleMSDAORA

MicrosoftODBCDriverMSDASQL

SQLServerSQLOLEDB

Ⅳ VB使用ADO控制項怎麼連接SQL資料庫

右鍵ado-屬性-通用-生成提供連接access選擇microsoft
jet
4.0或者3.51sql
server
選擇
microsoft
ole
db
provider
for
sql
server下一步
選擇你的資料庫就可以了。

Ⅵ vb的ADO控制項如何連接操作MYSQL資料庫啊

由於ADO對象不直接支持MySQL,所以必須先安裝MyODBC, 後者也是一個免費產品，在 www.mysql.org上有下載，安裝好了MyODBC, 就可以在ODBC數據源管理中配置一個數據源名稱，把它指向你想連接的MySQL資料庫。代碼如下：Sub connectMySQL() '通過MyODBC去連接MySQL資料庫，並將Microsoft SQL Server 7 '的數據轉進mysql中 Dim sConnect As String, sSql As String, i As Long Dim cnMSSQL As New ADODB.Connection Dim cnMySQL As New ADODB.Connection '聲明並創建對象 連接 Dim rs As New ADODB.Recordset '聲明並創建對象 記錄集 Dim cm As New ADODB.Command '聲明並創建對象 命令 sConnect = "dsn=mysql1" '指定MySQL的數據源名稱 cnMySQL.Open sConnect '連接到 mysql sConnect="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;pwd=123456;Initial Catalog=softdown;Data Source=ntserver" '連接到 ms sql server 7 cnMSSQL.Open sConnect 'sSql = "create table softinfo (softNum smallint,softname varchar(70),softdesc blob," & _ "softpath varchar(30),softleng varchar(10),softclass varchar(10),softsugest tinyint(1)," & _ "softdown smallint(4))" '創建新的MySQL數據表語句 sSql = "select * from softinfo order by softnum" rs.Open sSql, cnMSSQL, 1, 1 While Not rs.EOF sSql = "insert into softinfo values (" & Trim(rs(0).Value) & ",'" & Trim(rs(1).Value) & _ "','" & Trim(rs(2).Value) & "','" & Trim(rs(3).Value) & "','" & Trim(rs(4).Value) & _ "','" & Trim(rs(5).Value) & "'," & Trim(rs(6).Value) & "," & Trim(rs(7).Value) & ")" cm.ActiveConnection = cnMySQL cm.CommandType = adCmdText cm.CommandText = sSql cm.Execute rs.MoveNext Wend rs.Close Set rs = Nothing cnMySQL.Close Set cnMySQL = Nothing cnMSSQL.Close Set cnMSSQL = Nothing End Sub