vbscript lesen schreiben oder updaten einer Access Datei


read
reads an table of an Access Database you have to fill in the right Field names: rs.Fields("Spalte1")

Set conn = CreateObject("ADODB.Connection")
' Connect to the database
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb"
conn.Open strConnect

StrSQL = "Select * from daten"
Set rs = conn.Execute(StrSQL)
Do While not rs.EOF
    wscript.echo "Spalte1:" & rs.Fields("Spalte1") & " Spalte2:"& rs.Fields("Spalte2")
    rs.MoveNext
Loop



Update or add new
the sub function updateornew searches Row1 for an existing Variable:
if exists the entry is updated if not it will make a new entry in the database
the function addnewentry always makes a new entry in the database

'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Variables:
'''''''''''''''''''''''''''''''''''''''''''''''''''''
const databasepath = "c:\test.mdb"
const database = "daten"
const row1 = "Spalte1"

'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Database Connection
'''''''''''''''''''''''''''''''''''''''''''''''''''''
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & databasepath
objConnection.Open strconn
'''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''
'Main Program
'''''''''''''''''''''''''''''''''''''''''''''''''''''
'call addnewentry("Row1entry","Row2entry","Row3entry")
call updateornew("Row1 new or update eintry","Row2","Row3")
'''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''
'close Database
'''''''''''''''''''''''''''''''''''''''''''''''''''''
objConnection.Close
'''''''''''''''''''''''''''''''''''''''''''''''''''''


'''''''''''''''''''''''''''''''''''''''''''''''''''''
'sub add new Entry into Database
'''''''''''''''''''''''''''''''''''''''''''''''''''''
sub addnewentry (var1,var2,var3)
objRecordset.Open "SELECT * FROM " & database , objConnection, _
     3, 3
   objRecordset.AddNew
     objRecordset(0) = var1
     objRecordset(1) = var2
objRecordset(2) = var3
     objRecordset.Update
objRecordset.Close
end sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''


''''''''''''''''''''''''''''''''''''''''''''''''''''
'sub find and update or make new
''''''''''''''''''''''''''''''''''''''''''''''''''''
sub updateornew (var1,var2,var3)
objRecordset.Open "SELECT * FROM " & database , objConnection, _
     3, 3
strSearchCriteria = row1 & " = '" & var1 & "'"
objRecordSet.Find strSearchCriteria
If objRecordset.EOF Then 
    Wscript.Echo "Record " & var1 & " cannot be found in row " & row1 & " add new...."
   objRecordset.AddNew
     objRecordset(0) = var1
     objRecordset(1) = var2
objRecordset(2) = var3
Else
   Wscript.Echo "Record " & var1 & " found in row " & row1 & " updating...."
   objRecordset(1) = var2
   objRecordset(2) = var3
End If
     objRecordset.Update
objRecordset.close
end sub
''''''''''''''''''''''''''''''''''''''''''''''''''''
positive Bewertung({{pro_count}})
Beitrag bewerten:
{{percentage}} % positiv
negative Bewertung({{con_count}})

DANKE für deine Bewertung!


Top-Artikel in diesem Bereich

vbscript string

vbscript string

geändert: 11.10.2016 von Bernhard (Erstveröffentlichung: 06.01.2011)

Strings werden zum Speichern und durch Aufruf von Funktionen zum Manipulieren von Text verwendet. (Ein String ist eine gespeicherte Zeichenfolge) ... weiterlesen

VBScript .vbs Datum und Zeit Funktionen Syntax Referenz

VBScript .vbs Datum und Zeit Funktionen Syntax Referenz

geändert: 31.03.2020 von Bernhard (Erstveröffentlichung: 06.01.2011)

Datum und Zeit Funktionen in vbscript ... weiterlesen

Preview wie erstelle ich eine vbscript Datei .vbs - Grundlagen

wie erstelle ich eine vbscript Datei .vbs - Grundlagen

geändert: 31.03.2020 von Bernhard (Erstveröffentlichung: 04.01.2008)

Zum Erstellen der vbscript Datei genügt ein einfacher Editor. Eine in Windows abgespeicherte Textdatei mit der Eindung .vbs kann direkt ausgeführt werden. ... weiterlesen


Fragen / Kommentare


(sortiert nach Bewertung / Datum) [alle Kommentare(neueste zuerst)]

✍anonym
04.02.2010 08:53
User: Oleg 
---------------------------
  VbsEdit
  ---------------------------
  Line:	24
  Column:	0
  Error:	Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
  Code:	800A0CB3
  Source:	ADODB.Recordset
  
  System:	Initialization failed because of an invalid line in the
  
  configuration file %1. The invalid line is the data.
✍Bernhard
gepostet am 04.02.2010 08:53
welches Betriebssytem ? / Office Version ?   ist die Benutzerkontensteuerung aktiv?

Beitrag erstellt von Bernhard

✍anonym
15.01.2010 07:01
User: Fritz 
Adding new db throws an exeption instead of creating a new db
  Microsoft JET Database Engine: Datei 'c:\test.mdb' not found 
  
  (Windows XP SP3, WSH 5.6)