Database adgang

'** Betingelser:
'** Reference: Microsoft ActiveX Data Objects 2.5 Library

    Dim objConn As New Connection
    Dim objRs As Recordset
    Dim strSQL As String
   
  Function Connection()
      objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\DB.mdb"
  End Function

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set objRs = objConn.Execute (strSQL)

    txtNavn = objRs("navn")

    objConn.Close

Hvis så du vil indsætte/updatere noget data skal du bare lave SQL sætningen om!

//>Rune

Hvis du vil supplere medions (ganske udemærkede) svar, så er der en søgefunktion (www.eksperten.dk/kat/5?searchtype=txt) på eksperten, der vil kunne finde hundredvis af besvarede spørgsmål om emnet :o)

Øhh hvorfor har du afvist?

//>Rune

fordi jeg ikke rigtigt kunne bruge det til noget....

Jamen du er sq da nødt til at fortælle hvad du så skal bruge!!

//>Rune

jclarsen:

Du fik et godt, kort og præcist svar på dit spørgsmål (fra medions). Hvis det ikke kan bruges, så omformuler dit spørgsmål, så vi kan se hvad du spørger om

Medions svar burde virke, men hvilken database er det du skal forbinde til ?

jclarsen: Kan se på dine senere spørgsmål at du nu har fået adgang til databasen - skulle du ikke lukke dette spørgsmål, eller er der stadig noget du skal få svar på..?

Jeg har fået det til at virke....

Så luk spørgsmålet (eller giv medions point ;o)

Jeg ligger et svar hvis du skulle få lysten til at give points :o)

//>Rune

Thx 4 Poinz

//>Rune