vb如何連接access伺服器

A. access與VB怎麼樣進行連接

現在VB連接資料庫也沒那麼復雜了。
使用ADODB,就可以連接。
Set
Ac
=
New
ADODB.Connection
Set
Rs
=
New
ADODB.Recordset
Ac.Open
"driver={Microsoft
Access
Driver
(*.mdb)};dbq="
&
App.Path
&
"\DB1.mdb"
這就連接了，像ASP一樣使用adodb.recordset來控制數據。
rs.open
"select
*
from
admin",ac,1,1
while
not
rs.eof
...
rs.movenext
wend
rs.close
也可以使用ADODC和DATAGRID控制項綁定，來顯示數據.
dbConnectStr
=
"Driver={Microsoft
Access
Driver
(*.mdb)};Dbq=ok.mdb;DefaultDir="
&
App.Path
&
"\"
&
";"
dbStr
=
"SELECT
*
FROM
admin"
Adodc.ConnectionString
=
dbConnectStr
Adodc.RecordSource
=
dbStr
Adodc.Refresh
Set
gridData.DataSource
=
Adodc.Recordset
gridData.ClearFields
gridData.ReBind

B. VB連接Access資料庫具體步驟，越詳細越好

有多種連接方式，可以用數據控制項連接，也可以用組件連接。下面是用ADO組件來連接的例子（假定ACCESS資料庫文件和程序是放在同一個文件夾的）：

PrivateSubForm_Click()'點擊窗體運行
DimconnAsObject,rsAsObject
Setconn=CreateObject("Adodb.Connection")
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"a.mdb"
Setrs=CreateObject("Adodb.Recordset")
rs.Open"select*fromb",conn,1,1
DoUntilrs.EOF
'這里是循環列出表b中的每條記錄，熟悉的人就知道怎麼做了
rs.MoveNext
Loop
rs.Close
Setrs=Nothing
conn.Close
Setconn=Nothing
EndSub

C. VB如何與Access資料庫連接上呢

VB 連接 Access 資料庫可以用 Data控制項、Adocd控制項和Dao組件.其中Data的連接是 設置 Data.DataBaseName="資料庫路徑"(如"C:\abc.mdb");還設置Data.RecordSource="表名"(如"基本情況")

Adodc控制項要自己添加，其連接方法要復雜點。
組件也要添加，連接方法是：
Dim db As Database '聲明資料庫
Dim rs As Recordset '聲明數據集

Set db = OpenDatabase(App.Path & "\SellData.mdb", False, False) '連接
Set rs = db.OpenRecordset("基本情況") '數據表

大致是這樣，我沒有空了，希望對你有幫助。

D. 如何把Access與VB連接起來

在VB中，連接ACCESS資料庫的方法主要有下面三種

a.Data Link文件

b.使用ODBC數據源名稱

c.使用連接字元串

使用數據環境設計器創建資料庫連接,首先添加環境引用。然後找到數據源進行連接。

Data 控制項連接中，ODBC數據源的連接和使用字元串的連接 與直接使用ODBC數據源連接中，不同是，直接使用ODBC數據源設置好路徑後，再用connection對象連接即可；Data控制項則不用Connection 對象，有控制項，設置好路徑了，就直接連到啦。

數據環境設計器和ADO 對象，都用到了connection連接。不同的是，數據環境設計器中，connection連接途徑是和data控制項中字元串的連接步驟一致。

總結不同：ADO對象連接需要編寫代碼，其他的不用編寫代碼。

下面詳細介紹每一種連接方法的詳細步驟：

1.使用ADO connection對象

首先，要建立ADO引用，定義connection這個類，然後實例化對象。

代碼完成如下：

E. VB怎麼連接Access

在VB編程中通常要和資料庫打交道，對於數據量較小，應用一般選用Access作為資料庫，Access資料庫比較簡單功能也比較齊全，數據備份、拷貝都很方便且發布時不需要額外單獨安裝其它資料庫管理軟體Software。因此，在功能能夠滿足要求條件下，Access資料庫往往成為一些小型資料庫軟體Software的首選。

有關用VB操作Access庫表思路方法有多種,一般般初學者往往會使用數據Control控制項許多資料上也大都以此作為操作Access資料庫起點來介紹，這個思路方法使用起來非常簡單，但使用數據Control控制項，思路方法在編碼上往往不夠靈活。現在介紹下其它兩種操作Access資料庫思路方法：

第一種:使用資料庫對象

首先 要進行有關數據對象 聲明 代碼如下

Dim MyWs As Workspace
Dim MyDB As Database
Dim WordTab As Record

生成工作區 打開資料庫 然後再根據需要打開相應 庫表

Set MyWs = DBEngine.CreateWorkspace�〃〃� 〃Admin〃� 〃〃� dbUseJet
Set MyDB = MyWs.OpenDatabase�資料庫名稱� False� False
Set WordTab = MyDB.OpenRecord �〃表名〃� dbOpenDyna

這種思路方法 優點是代碼比較簡單 要求 環境為DAO 2.5/3.51 其中表名可以換成SELECT語句 即根據條件打開所需要記錄集 這種思路方法可脫離數據Control控制項 可以比較方便靈活地操作資料庫表 增加了 靈活性

提示:經過測試發現 這種思路方法只能打開Access97庫表 對於Access2000庫表卻無能為力 會彈出庫表格式不對 出錯提示另外 對數據環境 要求仍比較多

第 2種:使用ADODB

首先 聲明 個鏈接變數 並根據需要聲明記錄集變數

Dim LocCnn1 As ADODB.Connection
Dim LocRst1 As ADODB.Record

建立和資料庫 鏈接 如果資料庫沒有口令 最後 行可以不寫(寫上也不會錯)

Set LocCnn1 = New ADODB.Connection
LocCnn1.Open 〃Provider=Microsoft.Jet.OLEDB.4.0�User ID=Admin�〃 & _
〃Data Source=〃 & App.Path & 〃\資料庫名稱.mdb�〃& _
〃Mode=Share Deny None�Extended Properties=''�Persist Security Info=False�〃 & _
〃Jet OLEDB�Database Password='asp561rbc'�〃

這種思路方法雖然代碼長 些 但對數據環境要求低 且結構清晰 所編寫 發布 也大為減小 由於和鏈接sql Server等資料庫思路方法 樣 因而大量 操作資料庫 代碼相同 當資料庫需要由Access擴充到 些大型資料庫 或由 些大型資料庫裁剪出 個簡單資料庫時移植會比較方便

另外 這種思路方法對於Access97及Access2000均能很好地支持 兼容性好 對於大量插入、刪除、修改等操作只在Connection層進行即可 既可提高速度又可減少代碼

如果還要獲取具體 記錄集內容 則須再根據條件打開具體 庫表 代碼如下:

Set LocRst1 = New ADODB.Record
LocRst1.CursorType = adOpenKey
LocRst1.LockType = adLockOptimistic
LocRst1.Open 〃SELECT � FROM 表名〃� LocCnn1�adCmdText

F. VB怎麼連接訪問Access資料庫

使用Visual Basic作為前端開發語言，與SQL Server介面有幾種常用的方法，即：

①數據訪問對象/Jet

②為ODBC API編程

③使用SQL Server的Visual Basic庫(VBSQL)為DB庫的API編程

④RDO 遠程數據對象(RemoteData Objects)

⑤ADO 數據對象(Active Data Objects)

1、數據訪問對象/Jet

VB支持Data Access Objects(DAOs)的子集。DAO的方法雖然不是性能最好的管理客戶機—伺服器之間的對話方式，但它的確有許多優點。DAO/Jet是為了實現從VB訪問Access資料庫而開發的程序介面對象。使用DAOs訪問SQL Server的過程如下：應用程序准備好語句並送至Jet，Jet引擎(MASJT200.DLL)優化查詢，載入驅動程序管理器並與之通訊，驅動程序管理器(ODBC.DLL)通過調用驅動器(SQLSRVR.DLL)的函數，實現連接到數據源，翻譯並向SQL Server提交SQL語句且返回結果。下面是一個用DAOs訪問SQL Server的VB實例。

注釋：Form Declarations

Dim mydb As Database

Dim mydynaset As Dynaset オ

Private Sub Form_Load()

Set mydb = OpenDatabase("", False, False, "ODBC; DSN=Myserver; WSID=LCL; DATABASE = sales")

Set mydynaset = mydb CreateDynaset("Select*from Customers") オ

End Sub ァ

上述例子是以非獨占、非只讀方式打開sales資料庫，並檢索Customers表中的所有欄位。OpenDatabase函數的最後一個參數是ODBC連接字元串參數，它指明了Microsoft Access連接到SQL Server所需要知道的一些內容。其中「DSN」為數據源名，「WSID」為工作站名，「DATABASE」為所要訪問的資料庫名。

2、利用ODBC API編程

ODBC(Open Database Connectivity)的思想是訪問異種資料庫的一種可移植的方式。與數據資源對話的公用函數組裝在一個稱為驅動程序管理器(ODBC.DLL)的動態連接中。應用程序調用驅動程序管理器中的函數，而驅動程序管理器反過來通過驅動器(SQLSRVR.DLL)把它們送到伺服器中。

下面的代碼使用上面一些函數先登錄到一個伺服器資料庫，並為隨後的工作設置了語句句柄。

Global giHEnv As Long

Global giHDB As Long

Global giHStmt As Long

Dim myResult As integer

Dim myConnection As Srting

Dim myBuff As String*256

Dim myBufflen As Integer

If SQLAllocEnv(giHEnv)<>SQL_SUCCESS Then

MsgBox"Allocation couldn注釋：t happen!"

End If

If SQLAllocConnect(giHEnv,giHDB)<>SQL_SUCCESS Then

MsgBox "SQL Server couldn注釋：t connect!"

End If

myConnection="DSN=myServer;UID=LCL;PWD=;APP=ODBCTest;WSID=LCL;DATABASE=sales"

myResult=SQLDriverConnect(giHDB,Test,form1.hWnd,myConnection.len(myConnection),myBuff,256,myBufflen,SQL_DRIVER_COMPLETE_REQUIED)

myResult=SQLAllocStmt(giHDS,giHStmt)

myResult=SQLFreeStmt(giHStmt,SQL_COLSE)

rsSQL="Select * from Customers Where City = "Hunan""

myResult = SQLExecDirect(giHStmt,rsSQL,Len(rsSQL))

3、使用VBSQL對DB庫API編程

DB庫是SQL Server的本地API，SQL Server的Visual Basic庫(VBSQL)為Visual Basic程序員提供API。從一定意義上說，VBSQL是連接Visual Basic程序到SQL Server的性能最好最直接的方式。VBSQL包含以下三個文件：

VBSQL.VBX： 包含庫函數，具有訪問重要的消息和處理錯誤的能力

G. VB如何連接Access資料庫

如下代碼參考一下，不知能有幫助否。
PrivateSubCommand1_Click()
DimMyconAsADODB.Connection'定義一個連接對象，用這個對象來和資料庫建立通訊聯系。
DimMyrtAsADODB.Recordset'定義一個記錄集對象，將來從資料庫取得一條一條的記錄後，放入這個對象裡面。
DimMystrAsString'定義一個字元串變數，用來存放和資料庫連接時一些必要的參數。
SetMycon=NewADODB.Connection'建立一個新的連接對象。
SetMyrt=NewADODB.Recordset'建立一個新的記錄集對象。
Myrt.CursorLocation=adUseClient'定義記錄集的游標類型，你要是才接觸這方面的內容的話，這里沒沒必要做深入研究，知道記錄集有2種游標類型，一種是伺服器端游標，一種是客戶端游標，這里採用的是客戶端游標，2種類型各有特點，就你這如果要連接一個用戶密碼表的話，設客戶端游標就可以了。
Mystr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:\db1.mdb"'設置用來和資料庫進行連接的一些必要參數，Access資料庫採用Microsoft.Jet.OLEDB.4.0驅動，如果是其它類型的資料庫的話這句就不一樣了，如果你要調試這段代碼的話，把d:\db1.mdb這個改一下。
Mycon.OpenMystr'用定義好的連接對象以前面設置的參數打開資料庫，後面對資料庫的操作就操作這個連接對象就行了。
Myrt.Open"select*from表名",Mycon,3,1'記錄集對象執行打開操作，從資料庫中的一個表中取得記錄，在這里Mycon就代表資料庫了。"select*from表名"這句意思是從一個表中取得所有記錄。你具體試驗時把表名修改一下。
'在這里就從資料庫的一個表中取得有用的數據了，你可以通過對Myrt記錄集的操作取得自己需要的數據。比如如果是一個用戶密碼表的話，如果這個表有2個欄位，一個用戶名欄位，一個密碼欄位。那麼用Myrt("用戶名")就能取得當前記錄這個欄位的數據。如果這個表有10條記錄的話，可以用Myrt.movenext來移動記錄集指針。
'如果你界面上放置一個DataGrid控制項的話，用下面這句就能看到Myrt記錄集對象從資料庫中取得的內容了。
SetDataGrid1.DataSource=Myrt
EndSub
你問題補充里的代碼沒有連接資料庫的代碼，這個按鈕是驗證身份登錄的代碼，在這之前就應該和資料庫連接了，因為連接資料庫的代碼必定會有資料庫的路徑、名稱等信息。如：D:\db1.mdb。

H. 如何進行VB與資料庫ACCESS的連接

VB與資料庫連接可以使用資料庫控制項進行,也可以引用ADO對象,資料庫控制項的使用比較簡單,下面我就介紹使用ADO對象進行連接,首先打開"工程-引用",選擇其中的Microsoft ActiveX Data Objects 2.0 Library(2.0以上版本都可以):
ACCESS資料庫名為"學生.mdb"其中有張資料庫表名為"表",下面就介紹如何使用代碼進行連接到資料庫"學生",代碼如下:
Function Connection() As String
'資料庫的連接字元設置
Connection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\學生.mdb"
End Function
資料庫"學生.mdb"在當前目錄下,故使用APP.Path
Private Sub Form_Load()
Dim mr As New ADODB.Recordset
Dim cnn As New ADODB.Connection
Dim Sql As String
Sql="select * from 表"
cnn.Open Connection '使用cnn對象打開資料庫連接
mr.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'打開資料庫記錄
If mr.eof then
msgbox "資料庫表為空!"
else
msgbox "資料庫表不為空!"
end if
set mr=nothing
'關閉記錄對象
set cnn=nothing
'關閉連接對象
End Sub
OK,程序到此,已經能成功地訪問資料庫了,並能打開資料庫中的表

I. VB中連接access資料庫如何連接

vb連接acess資料庫很容易,你後面寫的東西我不明白, 把下面的代碼你的vb中的一個模塊中就可以操作acess資料庫了 '使用方法：1、調用SetConnStr函數，產生連接字元串。2、打開資料庫連接，3。執行ExecuteSQL函數返回結果集。 '======================== 必須引用ADO2.5庫方可運行 ========================== '引用ADO酷，可以將ADO孔件拖到窗體上再刪除就可以了 '============================================================================= Public Function SetConnStr(ByVal DbName As String) As String '生成資料庫連接字元串,參數為資料庫名(全路徑) SetConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & DbName & ;Persist Security Info=False End Function Public Function ExecuteSQL(ByVal Sql As String, ByVal ConnString As String) As ADODB.Recordset 'On Error Resume Next'當資料庫插入時，全部數據均為空時，將發生錯誤，所以要加這句話 '執行給定的sql語句，返回類型為記錄集 Dim Mycon As ADODB.Connection Dim Rst As ADODB.Recordset Set Mycon = New ADODB.Connection Mycon.ConnectionString = ConnStringMycon.OpenDim Stokens() As String ' On Error GoTo ExectueSql_Error Stokens = Split(Sql) If InStr(INSERT,DELETE,UPDATE, UCase(Stokens(0))) Then Mycon.Execute SqlElseSet Rst = New ADODB.Recordset Rst.Open Trim(Sql), Mycon, adOpenKeyset, adLockOptimistic Set ExecuteSQL = RstEnd IfExectueSql_Exit: Set Rst = Nothing Set Mycon = Nothing Exit Function ExectueSql_Error:

J. VB能夠連接access資料庫嗎如何連接

VB與Access連接的方法(Ado連接) 一、建立資料庫 因為在Visual Basic 6.0中有的資料庫連接方式不支持Access 2000版本格式的資料庫，為了便於說明問題，本文所提的資料庫以Access 97版本資料庫為例。 在Microsoft Access 97中建立一個資料庫，如：ssgl.mdb，並設置密碼，如：「1234」，再將資料庫文件和VB中創建的工程文件放在同一目錄下。 如果用戶的計算機上只有Access 2000的話，可以先在Access 2000中建立ssgl.mdb資料庫，並設置密碼，再用Access 2000中的「資料庫實用工具」將資料庫轉換成Access 97版本的格式。 當然也可以直接在Visual Basic 6.0集成開發環境中通過「可視化數據管理器」來創建資料庫，再到Access 97中設置密碼。 通過對資料庫文件設置密碼，一般情況下，非法用戶就不能用常規的手段打開資料庫了，對資料庫中的信息起到了一定的安全和保密作用。 二、連接加密的Access資料庫 在Visual Basic 6.0中，要建立與資料庫的連接，可採用的技術手段很多，如：數據控制項、數據對象、數據環境設計器等。開發人員可以根據自身的條件和用戶的需求進行選擇。 限於篇幅，下面只介紹加密的Access資料庫與沒有加密的Access資料庫在連接時的不同之處。關於沒有加密的資料庫的連接及訪問的方法讀者可以參閱其它資料。 1、使用控制項 ① Data控制項 Data控制項是Visual Basic 6.0中的一個內置數據控制項，可以通過設置Data控制項的connect、DatabaseName、RecordSource屬性實現對資料庫的連接和訪問。 通過Data控制項連接加密的資料庫的方法有兩種： 一種方法是在設計狀態時，在「屬性窗口」中將Data控制項的connect屬性的預設值」Access」改為」; pwd=1234」即可，其它屬性的設置方法與沒有加密的Access資料庫的連接相同。 另一種方法是在運行時，通過代碼對connect屬性賦值來實現。如： Data1.connect=」; pwd=1234」 Data1.DatabaseName=APP.path + 「\ssgl.mdb」 其中，」1234」為Access資料庫文件ssgl.mdb的密碼，下同。 ②Adodc控制項 Adodc控制項是一個ActiveX控制項，它使用Microsoft ActiveX Data Objects(ADO)創建到資料庫的連接。使用Adodc控制項之前，要先將Adodc控制項添加到控制項工具箱中。方法如下：在VB 6.0種選擇「工程」菜單，再點擊「部件」菜單項，在彈出的「部件」對話框中選中「Microsoft ADO Data Control 6.0(OLEDB)」選項即可。 通過Adodc控制項連接加密的資料庫的方法也有兩種： 一種方法是在設計狀態時，在「屬性窗口」中，對Adodc控制項的ConnectionString屬性設置一個有效的連接字元串，並在連接字元串後增加上」; Jet OLEDB: DataBase password=1234」，再設置Adodc控制項的CommandType、RecordSource的屬性就可以創建到加密的資料庫的連接了。 另一種方法是在運行時，通過代碼動態地設置ConnectionString、CommandType和RecordSource屬性來創建連接。 只要在ConnectionString屬性的有效連接字元串後增加上」; Jet OLEDB: DataBase password=1234」即可。 2、使用數據對象 ① DAO數據對象 要能正確引用DAO數據對象來建立與資料庫的連接，應先在VB集成開發環境中選擇「工程」菜單，再點擊「引用」菜單項，在彈出的「引用」對話框選擇「Microsoft DAO 3.51 Object Library」選項來添加DAO數據對象類型庫。 接下來就可用如下代碼來建立到加密的Access資料庫ssgl.mdb的連接。 Dim db AS DataBase Set db=OpenDataBase(App.path + 「\ssgl.mdb」 , False , False , 」 pwd=1234」) ② ADO數據對象 ADO是Microsoft推出的處理關系資料庫和非關系資料庫中信息的最新技術，也是Microsoft推崇的用於數據連接和訪問的技術。在VB 6.0中，Adodc控制項、ADO數據對象及DataEnvironment（數據環境設計器）都採用的是ADO技術，因而它們處理加密的Access資料庫的方法類似。 要能正確引用ADO數據對象，應在VB 6.0集成開發環境中選擇「工程」菜單，再點擊「引用」菜單項，在彈出的「引用」對話框中選中「Microsoft ActiveX Data Objects 2.1 Library」選項來添加ADO數據對象類型庫。 可用如下代碼來建立到加密的Access資料庫ssgl.mdb的連接。 Dim cnn AS ADODB.Connection Dim rst AS ADODB.Recordset Set cnn=New ADODB.Connection Cnn.Provider= 」Microsoft.Jet.OLEDB.3.51」 Cnn.ConnectionString= 」Data Source=」 & App.path & 」\ssgl.mdb;」 & _ 」 Jet OLEDB: Database password=1234」 cnn.Open ③ 使用DataEnvironment（數據環境設計器） 有兩種方法可以通過DataEnvironment連接到加密的Access資料庫： 一種方法是在設計狀態時，在DataEnvironment的connection對象的ConnectionSource屬性的有效連接字元串後加上」 Jet OLEDB: Database password=1234」 另一種方法是在DataEnvironment_Initialize()事件中編寫如下代碼： Private sub DataEnvironment_Initialize( ) Dim strconn AS string Strconn=」 Provider=Microsoft.Jet.OLEDB.3.51;」 & _ 」Data Source=」 & App.path & 「\ssgl.mdb;」 & _ 」; Jet OLEDB: Database password=1234」 DataEnvironment1.connection1.connectionstring=strconn End sub