vbs til access

VBS - taler vi om VB script, og om en asp-side?

Hvis ja, så skal du nok prøve her i stedet for  http://www.eksperten.dk/kat/297/
- og jeg kan garanterer dig, at der er masser af eksempler hvis du bruger søgefunktionen

Og så skal du nok justere pointene til sværhedsgraden...

:o)

Her er lidt at fordrive tiden med:

http://www.w3schools.com/vbscript/vbscript_intro.asp

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

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

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tabel"
    Set rs = Conn.Execute (strSQL)

  While Not rs.EOF
    List1.AddItem rs("navn")
  rs.MoveNext()
  Wend

    Conn.Close

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

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

//>Rune

hvor skal jeg insætte at jeg vil hente fra database "data.mdb" og det er fra tabellen "tilbud"...?

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

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

'** Udskrivning **
    Connection
    strSQL = "SELECT * FROM tilbud"
    Set rs = Conn.Execute (strSQL)

  While Not rs.EOF
    List1.AddItem rs(0)
  rs.MoveNext()
  Wend

    Conn.Close

//>Rune

hvad er Microsoft ActiveX Data Objects 2.5 Library

Det er en reference du skal tilføje til din referenceliste!

//>Rune

???

Tror vidst du skal købe dig en bog og starte der...

//>Rune

jeg har lagt dit script ind i min fil data.vbs og køre den fra dos men den siger der er fejl i (3, 14) - Slut på sætning var ventet

Agh hvad laver dit spm under Visual Basic, dit spm er jo et Visual Basic Script, så det er den helt forkerte kategori!

//>Rune

oConn = "Driver={Microsoft Access Driver (*.mdb)};DBQ=f:\hosp\samdata.mdb"
Set oDb = CreateObject("ADODB.Connection")
oDb.Open oConn
Set oRs = Createobject("ADODB.Recordset")
oRs.activeconnection = oDb
sSQL = "T_NEW_SAMDATA"
oRs.Source = sSQL
oRs.Open
oRs.AddNew
oRs("brugernavn") = "test"
oRs.Update
oDb.Close
Set oRs = nothing
Set oDb = Nothing

//>Rune

sorry men tak

NP.
Thx 4 Poinz

//>Rune