當前位置:首頁 » 數據倉庫 » access資料庫連接vb代碼
擴展閱讀
webinf下怎麼引入js 2023-08-31 21:54:13
堡壘機怎麼打開web 2023-08-31 21:54:11

access資料庫連接vb代碼

發布時間: 2022-08-23 13:40:57

1. VB與Access連接的代碼

提示什麼錯誤?請說明
App是指當前應用程序,App.Path 指當前應用程序的路徑。
如: 你的VB程序 XX.exe 放在 C:\VB 下,則App.Path就是"C:\VB"
你的資料庫要放在這個下面才可以用 App.Path & " \data\學生信息管理資料庫.mdb
即 "C:\VB\data\學生信息管理資料庫.mdb"

2. 如何用vb連接access資料庫(代碼編寫)

app.path是指程序的相對路徑。可以防止你寫絕對路徑後,如你的電腦可能有G盤,而其他人的電腦里沒有G盤,那你寫的絕對路徑就不可用,程序也就相對他來講是處廢品。app.path可獲取到你正在運行的程序的路徑,能存放你程序的路徑,那他下面也就可以再存你的資料庫(你可以在這目錄下再新一個文件夾存資料庫)
rs1.Open
sql,
cn
其中cn是連接對象,rs1是記錄集,sql是查詢語句
你都知道這三個變數的意思,這句話也應該不難理解。直接譯出來
sql
=
"select
*
from
表名"
檢索「表名」里的所有記錄
rs1.close是關閉rs1.open語句的。
引號里的是字元串
加號是連接符,通加在不作加減運算時最好是用"&"代替。可防止出錯。

a="123"+"456"
a的結果是"123456"
a="123"
&
"456"
a的結果還是"123456"
下面沒有加引號是數值可以用作運算計算出結果。上面的是字元串不能運算出結果。
a=123+456
a的結果是579
a=123
&
456
a的結果還是123456

3. vb連接access資料庫的代碼這樣寫就行了嗎

1、Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Data
Source="
&
App.Path
&
"\圖書館查詢管理系統.mdb;Persist
Security
Info=False"
2、Adodc1.CursorLocation
=
adUseClient
3、Adodc1.CommandType
=
adCmdText
4、Adodc1.RecordSource
=
strSQL
5、Adodc1.Refresh
第一句:資料庫鏈接對象,把Adodc與某一個文件鏈接起來,這其實是一個字元串。
第二句:設置或返回遊標服務的位置
第三句:設置或返回一個或多個
CommandTypeEnum

第四句:這一句一般是用來設置SQL語句的,比如查詢啊等等
第五句:刷新(因為你在上一句設置了SQL語句,所以要更新)
其中第二句和第三句你不必要理解,沒什麼用,一般都用這個值。

4. 怎樣用VB代碼連接ACCESS資料庫不要使用SQL語言。

在新建VB工程之後先通過VB6的工程-引用菜單來引用這個外部組件
Mircosoft ActiveX Data Objects 2.5 Library
並把工程的啟動對象設為Sub Main
模塊代碼:
Option Explicit
Public Conn As ADODB.Connection 'ADO的資料庫連接對象
Public rs As ADODB.Recordset 'ADO的記錄集對象
Public strDBFile As String
'# 不要忘了設置啟動對象為Sub Main過程 #
Sub Main()
strDBFile = GetAppPath & "DB_Art.mdb" '這里設置你的ACCESS資料庫文件名
Call ConnectDB(strDBFile)
frmMain.Show
End Sub
'# 獲取當前相對路徑 #
Public Function GetAppPath() As String
GetAppPath = App.Path & IIf(Len(App.Path) > 3, "\", "")
End Function
'# 資料庫連接 #
Public Sub ConnectDB(ByVal strDBFile As String)
Set Conn = New ADODB.Connection
Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBFile & ";"
End Sub

上面是個實例,自己看吧,不懂再問

5. 求VB登陸窗口連接ACCESS資料庫的代碼

1、DimobjCnAsNewConnection,objRsAsNewRecordset

objCn.ConnectionString="Provider=Microsoft.Jet.OLEDB.3.51;"&"DataSource="&App.Path&objCn.Open

2、dimobjCnAsConnection

SetobjCn=NewConnection

objCn.Open「DSN=實例2DSN」

3、ADOData控制項創建連接

(5)access資料庫連接vb代碼擴展閱讀

ACCESS資料庫特性

1、access有強大的數據處理、統計分析能力,利用access的查詢功能,可以方便地進行各類匯總、平均等統計。並可靈活設置統計的條件。

2、access用來開發軟體,比如生產管理、銷售管理、庫存管理等各類企業管理軟體,其最大的優點是:易學,非計算機專業的人員,也能學會。

3、在開發一些小型網站WEB應用程序時,用來存儲數據。例如ASP+Access。這些應用程序都利用ASP技術在InternetInformationServices運行.比較復雜的WEB應用程序則使用PHP/MySQL或者ASP/MicrosoftSQLServer。

6. 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: 包含庫函數,具有訪問重要的消息和處理錯誤的能力

7. vb連接access資料庫代碼詳細解釋

Public con As New Connection '定議Con
Public Con_String As String '定義連接字元串
Con_String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Data.mdb;Persist Security Info=False" '這個是關健, 其中除了C:\data.mdb 外,其它的不用改. 用OLEDB 4.0 驅動去訪問C:\data.mdb 文件.
con.Open Con_String ' 連接Access 文件