MS Access

Jeg ikke noget der lige kan postes her, men jeg kan rette lidt i det så det kan. Indtil da kan du kigge her og blive klogere:

http://www.w3schools.com/ado/ado_examples.asp

// Adam

Læse fra DB:

Dim strSQL
Dim objRs
Dim objConn
   
Set objRs = WScript.CreateObject("ADODB.Recordset")
Set objConn = WScript.CreateObject("ADODB.Connection")

'Open connection to database
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0"
objConn.Open "database.mdb"
   

strSQL = "SELECT * FROM tUsers;"
   
'Run the sql statement in strSQL
objRs.Open strSQL, objConn, adLockReadOnly
       
 
While Not objRs.EOF
    MsgBox objRs("name")
    objRs.MoveNext
Wend

'Clean up resources
objRs.Close
objConn.Close
Set objRs = Nothing
Set objConn = Nothing

Opdatere DB:

Dim strSQL
Dim objConn

Set objConn = WScript.CreateObject("ADODB.Connection")

'Open connection to database
objConn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0"
objConn.Open "database.mdb"

strSQL = "UPDATE tUsers SET name='NytNavn' WHERE name='Adam';"
   
'Run the sql statement in strSQL
objConn.Execute strSQL
 
'Clean up resources
objConn.Close
Set objRs = Nothing
Set objConn = Nothing

Slette fra DB:

Samme som opdatere blot erstattes strSQL med en delete query:
strSQL = "DELETE FROM tUsers WHERE name='NytNavn';"

Tusinde tak til Adam

Du for sku 100 point for et skide godt svar...

Mange tak ;-)

Hvordan skriver man til databasen?