Danke, dass zu einer Datenbank etwas mehr gehört als nur einfach mal so eine Datei anzulegen ist mir schon klar und ich kann dier dies auch zeigen.
'--------------------------- Anlegen der Datenbank tblBonConfig
SalonDb.Execute "CREATE TABLE tblBonConfig ", dbFailOnError
'--------------------------- Anlegen der Felder der Datenbank
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_ID integer Primary Key", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Picture varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_PicturePrint yesNO ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Name varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_NamePrint yesNO", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Anschrift varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_AnschriftPrint yesNO", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Ort varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_OrtPrint yesNO", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Tel varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_TelPrint yesNO", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Fax varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_FaxPrint yesNO", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Internet varchar(100) ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_InternetPrint yesNO", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Darstellung integer ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Fuss varchar(100)", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_FussPrint yesNo ", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Drucker varchar (100)", _
dbFailOnError
SalonDb.Execute "ALTER TABLE tblBonConfig ADD BON_Wann integer"
'--------------------------- Einfügen eines 1. Datensatzes zur
' Funktionsgarantie
SalonDb.Execute "INSERT INTO tblBonConfig (BON_ID) values (1)", _
dbFailOnError
'--------------------------- Update bzw füllen des 1. Datensatzes
SalonDb.Execute "UPDATE tblBonConfig SET BON_Picture = 'nix' where BON_ID" & _
"= 1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Name = 'nix' where BON_ID =" & _
"1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Anschrift = 'nix' where" & _
"BON_ID = 1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Ort ='nix' where BON_ID = 1", _
dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Tel = 'nix' where BON_ID =" & _
"1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Fax = 'nix' where BON_ID =" & _
"1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Internet = 'nix' where BON_ID" & _
"= 1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Fuss = 'nix' where BON_ID =" & _
"1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Drucker = 'nix' where BON_ID" & _
"= 1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Darstellung = 2 where BON_ID" & _
"= 1", dbFailOnError
SalonDb.Execute "UPDATE tblBonConfig SET BON_Wann = 2 where BON_ID = 1", _
dbFailOnError
'--------------------------- Schreiben des INI Schlüssel damit die
' Tabelle Exestiert aber ich benötige ja nur eine Möglichkeit den Container (db1.mdb) anzulegen.
danke Alexander |