[VB] 有沒有VB連結Access的範例

Question

有沒有VB連結Access的範例
我的架構大致上都OK了
就差放進資料庫
有沒有範例可以參考參考
或是流程圖
大致上的說明也可以

我的反本是VB6.0
Access97以上的
VB.NET的我開不起來 因為學校的電腦的是6.0

Answer 1

您可參考以下網站的教學VB心得筆記:http://www.hosp.ncku.edu.tw/~cww/html/vba.html老怪之VB初級生>DAO與SQL語法範例(1)~(4):http://www.hosp.ncku.edu.tw/~cww/oldguy/oldguy.htm

Answer 2

那個網站就有範例-.-

Answer 3

1. 建立ado.connection
Public Function CreateAdoConnection(ByVal FileName As String) As adodb.Connection

'*********************************************************
'檢查FileName.SIM 資料庫檔案是否存在
'若存在則開啟並建立ADO Connection
'若不存在則顯示錯誤訊息並結束程式
'傳入值:
' FileName: 要開啟的資料庫檔名
'傳回值:
' CreateAdoConnection: ADO 的 Connection 物件
'Created by simon, 2003/02/22
'Modified, 2003/03/16, 將連立的AdoConnection 物件改為傳回
'*********************************************************

'判斷檔案是否存在的FSO 檔案物件模型
Dim FSO As New FileSystemObject
Dim CNN As New adodb.Connection

'檢查檔案是否存在
If FSO.FileExists(App.Path & "\" & FileName) Then

'建立ado.connection 至FileName.SIM
Dim strAdoConnection As String
strAdoConnection = "Provider = Microsoft.Jet.OLEDB.4.0; " & _
"Data Source = " & App.Path & "\" & FileName
'開啟
CNN.Open strAdoConnection

Else
MsgBox FileName & "資料庫檔案不存在, 程式即將關閉!!", vbCritical, "Error!!"
Unload frmMain
End
End If

Set CreateAdoConnection = CNN
Set FSO = Nothing

End Function

2. 以SQL 指令建立rsBIOS 資料錄集
Public Sub CreateSQLCommand(ByVal AdoConnection As adodb.Connection, ByVal rsTarget As String)

'******************************************************
'建立SQL 指令集並開啟
'傳入值:
' AdoConnection: 要讓SQL指令開啟的ADO Connection
'******************************************************

Select Case rsTarget
Case "rsResult"
.
.
中略
.
.
Case "rsMailBody"
Dim strMailBody As String
strMailBody = "SELECT * FROM BodyList ORDER BY MailID"
With rsMailBody
.CursorLocation = adUseClient
.Open strMailBody, AdoConnection, adOpenDynamic, adLockOptimistic
End With

End Select

End Sub

3. 然後就可以從資料庫讀內容出來用了
If Recordset.RecordCount > 0 Then
With Recordset
'從第一筆開始
.MoveFirst
'逐筆顯示至最後一筆
Do Until .EOF

2006-05-18 18:35:32 補充：
奇怪, 我以為你要的是 "範例"? 原來只要給你一個網站就好了?