vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Fortgeschrittene Programmierung
Re: Eine neue Datei anlegen 
Autor: Alexander Schneider
Datum: 26.01.03 18:49

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
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Eine neue Datei anlegen75Alexander Schne...26.01.03 17:19
Re: Eine neue Datei anlegen242unbekannt26.01.03 18:20
Re: Eine neue Datei anlegen45Alexander Schne...26.01.03 18:49

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel