Oprettelse af database connection i VB

du kan godt gøre det på samme måde som i ASP


'-------------------------- Form1 --------------------------
Option Explicit

Private Conn As Object
Private Rs As Object

Private Sub Form_Load()
  Set Conn = CreateObject("ADODB.Connection")
  Set Rs = CreateObject("ADODB.RecordSet")

  Call DB_List
End Sub

Private Sub Form_Unload(Cancel As Integer)
  Set Rs = Nothing
  Set Conn = Nothing
End Sub

Public Function DB_List()
Dim strDSN As String
Dim strSQL As String
Dim DataPath As String
Dim DataPass As String

  DataPath = "C:\Database.mdb" '<- Database file
  DataPass = "********"        '<- Password

  strSQL = "SELECT * FROM Database"
  strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";PWD=" & DataPass & ";"

  With Rs
    .Open strSQL, strDSN, 3

      If Not (.BOF Or .EOF) Then

        List1.Clear
        Do While Not .EOF
          'Tilføjer i en ListBox (List1)
          List1.AddItem CStr(Rs("ID") & " - " & Rs("Name"))
          .MoveNext
        Loop

      End If

    .Close
  End With
End Function
'-------------------------- Form1 --------------------------

Smart!

Det må jeg sige,hehe mange er kommandoerne kender jeg ikke, men det må jeg lære..

mange tak

Du kan også gøre sådan... så er det næsten som ASP :-)


'-------------------------- Form1 --------------------------
Option Explicit

Private Sub Form_Load()
Dim strDSN
Dim strSQL
Dim DataPath
Dim DataPass
Dim Conn
Dim Rs

  Set Conn = CreateObject("ADODB.Connection")
  Set Rs = CreateObject("ADODB.RecordSet")

  DataPath = "C:\Database.mdb" '<- Database file
  DataPass = "********"        '<- Password

  strSQL = "SELECT * FROM Database"
  strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ";PWD=" & DataPass & ";"

  With Rs
    .Open strSQL, strDSN, 3

      If Not (.BOF Or .EOF) Then

        List1.Clear
        Do While Not .EOF
          'Tilføjer i en ListBox (List1)
          List1.AddItem CStr(Rs("ID") & " - " & Rs("Name"))
          .MoveNext
        Loop

      End If

    .Close
  End With

  Set Rs = Nothing
  Set Conn = Nothing
End Sub
'-------------------------- Form1 --------------------------


og tak for point

Jamen mange mange tak - igen :-)


Du lyder til at være en meget habil VB programør, du har vel ikke en mail, da sidder med nogle problemer *GGG*

jo da..
email: sjh.multimedia@get2net.dk
ICQ: 168917488