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

有沒有VB連結Access的範例

我的架構大致上都OK了

就差放進資料庫

有沒有範例可以參考參考

或是流程圖

大致上的說明也可以

Update:

我的反本是VB6.0

Access97以上的

VB.NET的我開不起來 因為學校的電腦的是6.0

3 Answers

Rating
  • W.J.S.
    Lv 7
    1 decade ago
    Favorite Answer

    您可參考以下網站的教學VB心得筆記:http://www.hosp.ncku.edu.tw/~cww/html/vba.html%E8%...

  • 1 decade ago

    那個網站就有範例-.-

  • 1 decade ago

    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 補充:

    奇怪, 我以為你要的是 "範例"? 原來只要給你一個網站就好了?

    Source(s): 之前寫的一個資料庫
Still have questions? Get your answers by asking now.