Script Examples vbscript autoit php batch
HOME > VBScript > vbscript Allgemein > vbscript to read and write or update an Access mdb database

VBScript vbscript Allgemein wie erstelle ich eine vbscript Datei run external in vbscript Compare in vbscript vbscript Variablen übergeben aus der Command Line VBscript Funktionen und Prozeduren read file in vbscript Search for Textstring in file Replace strings in file vbscript Error Level generieren aus vbscript cmd vbscript delete subdirectories and files with error level Computer Member of AD Group vbscript to create access mdb database and tables vbscript to read and write or update an Access mdb database vbscript um mehrere IP-Adressen bzw ein Subnet zu pingen move files from command line with vbscript vbscipt Funktionen
others Windows Batch autoit3 PHP für Anfänger Linux Bash
Impressum
top Themen
CMD Befehle Überblick (Batch Befehle Windows) vbscript Date Time Functions - Syntax Reference Praktische Beispiele mit Batch was kann Auto It AutoIt Script erstellen inkl Beispielvideo Aufbau einer Batch Datei Syntax vbscript Variablen übergeben aus der Command Line Dateien als Administrator starten mit AutoIt v3 vbscript string Functions - Syntax Reference mit AutoIt und VB Excel Dateien verarbeiten Replace strings in file vbscript vbscript Array Functions - Syntax Reference Ablauf Schleifen und Sprungmarken batch datei php und mysql create database cmd vbscript delete subdirectories and files with error level direkter Aufruf von Elementen aus Windows bzw. der Systemsteuerung Linux Bash Script How to inkl Beispielvideo wie erstelle ich eine vbscript Datei Funktionen in Batch Dateien Datum mit Linux Bash run external in vbscript wie erstelle ich eine Batch Datei VB Script in eine .exe Datei konvertieren mit AutoIt vbscript to create access mdb database and tables

vbscript to read and write or update an Access mdb database


how to read and write an Access Database in vbscript includes an update function: if the Entry exists Records are updated if not a new entry is generated

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
''''''''''''''''''''''''''''''''''''''''''''''''''''
zuletzt bearbeitet: 24.11.2008 07:41 veröffentlicht: 23.11.2008 20:02
<<< vbscript to create access mdb database and tables vbscript um mehrere IP-Adressen bzw ein Subnet zu pingen >>>


neue Themen
Linux: Daten synchronisieren auf eine externe NTFS Festplatte Linux Bash Drücken Sie eine beliebige Taste VBscript Funktionen und Prozeduren php und mysql create database vbscript string Functions - Syntax Reference Linux Bash Script How to inkl Beispielvideo Datum mit Linux Bash Funktionen in Batch Dateien Bilder von der Digitalkamera runterladen und automatisch laut Datum benennen move files from command line with vbscript Ablauf Schleifen und Sprungmarken batch datei Computer Member of AD Group Praktische Beispiele mit Batch direkter Aufruf von Elementen aus Windows bzw. der Systemsteuerung vbscript um mehrere IP-Adressen bzw ein Subnet zu pingen vbscript Array Functions - Syntax Reference vbscript Date Time Functions - Syntax Reference

Stichwortsuche auf dieser Seite:
04.07.2009 07:34 zZ 1 Leser online
Powered by cms.libe.net 2004-2009