שם את הקובץ DB שלך ביחד עם שאר
קבצי הפרוייקט שלך (עם הEXE הכי חשוב) ושים בטופס הראשי שלך את הקוד הבא:
Dim conn As New Connection Private Sub Form_Load() conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\db1.mdb" End Sub Private Sub Form_Unload(Cancel As Integer) conn.Close Set conn = Nothing End Sub
כאשר db1.mdb זה שם הקובץ DB שלך. בכדי לשלוף מידע מהנבלה תוכל להוסיף כפתור ותיבת טקסט ולעשות כך:
Private Sub Command1_Click() Dim rs As New Recordset Dim sql As String sql = "SELECT EmployeeID,LastName,FirstName FROM Employees" rs.Open sql, conn Do Until rs.EOF Text1.Text = Text1.Text & rs.Fields(0).Value & "," & rs.Fields(1).Value & "," & rs.Fields(2).Value & vbNewLine rs.MoveNext Loop rs.Close Set rs = Nothing End Sub
וזה הבסיס על רגל אחת עם DB שנמצא במחשב שלך (אם מותקן לך VB 6) שנקרא nwind.mdb .
