Gemmer i Access?

'** 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)

    objRs("navn")

    objConn.Close

//>Rune

'** Indsætning **
    Connection
    strSQL = "INSERT INTO tabel (kolonne1,kolonne2,kolonne3) VALUES ('Rune Nielsen','Medions','www.medions.dk')"
objConn.Execute (strSQL)

//>Rune

Super mange TAK

Anytime ;o)
Thx 4 Poinz

//>Rune

Jeg kom vist til at give points lidt for hurtigt.

Jeg ville nemlig også meget gerne havde sådan at den ændre dataen i access. Med dit script laver den kun en ny linie, som jeg godt viste hvordan man gjorde.

Jeg spurte lidt dumt, kan jeg se nu. For det fremgår ikke, at jeg skal ændre rækker, ikke lave nye rækker.

'** Updatering **
    Connection
    strSQL = "UPDATE tabel SET kolonne1 = 'Rune Nielsen 2', kolonne2 = 'MEDIONS', kolonne3 = 'www.MEDIONS.dk'"
objConn.Execute (strSQL)


;o)

//>Rune

Den er der næsten. Hvordan bestemmer man vilken linie det skal komme ind på?

Hov det må du undskylde! *G*

'** Updatering **
    Connection
    strSQL = "UPDATE tabel SET kolonne1 = 'Rune Nielsen 2', kolonne2 = 'MEDIONS', kolonne3 = 'www.MEDIONS.dk' WHERE [id] = 12"
objConn.Execute (strSQL)

//>Rune

Tak... Det var dejligt. Så kan jeg komme videre...

Fair nok ;o)

//>Rune