Hjælp til accessdb i vb6

strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE = 'hund' ORDER BY Køn;"

eller sortere omvendt:

strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE = 'hund' ORDER BY Køn DESC;"

ha ha sådan:

strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE Køn = 'hund' ORDER BY Køn;"

eller sortere omvendt:

strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE Køn = 'hund' ORDER BY Køn DESC;"

ha ha alle gode gange 3 sådan:


strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE Art = 'hund' ORDER BY Køn;"

eller sortere omvendt:

strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE Art = 'hund' ORDER BY Køn DESC;"

sjh > Skal have det helt fra bunden med at oprette forbindelse til database er total newbie med databaser, vil meget gerne have et eksempel på at oprette forbindelse til en database (på pc'en) og hente data fra den :D

Er der ikke nogen der kan give mig et eksempel på hvordan man helt fra bunden (komplet kode) få data ud af en database (access)

Så er det noget i den stil..


Private Sub Command1_Click()
Dim objRs As Object
Dim objConn As Object

Dim strDSN As String
Dim strSQL As String

Dim strDatabase As String
Dim strPassword As String

  Set objRs = CreateObject("ADODB.RecordSet")

  strDatabase = App.Path & "\Din_Database.mdb"
  strPassword = "" ' Hvis der er adgangskode på.

  ' Din SQL her
  strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE Art = 'hund' ORDER BY Køn;"
  ' eller sortere omvendt:
  ' strSQL = "SELECT Art, Alder, Køn FROM minZoo WHERE Art = 'hund' ORDER BY Køn DESC;"

  strDSN = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" _
  & strDatabase & ";PWD=" & strPassword & ";"

  With objRs
    .Open strSQL, strDSN, 3

      If Not (.BOF Or .EOF) Then
        Do While Not .EOF

            ' -- Her kommer din data ud --
            Print objRs("ID")
            Print objRs("Art")
            Print objRs("Alder")
            Print objRs("Køn")
            ' -- Her kommer din data ud --

          .MoveNext ' HUSK at MoveNext skal være her ellers kommer du ikke ud af Loopet
        Loop

      End If

    .Close
  End With

  Set objRs = Nothing

End Sub