Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Danke, da wäre aber noch ne Frage
Autor: Pauli
Datum: 28.03.02 11:37
Hallo Dieter, hier bittesehr: Gruß Daniel 'Variablen für das "Speichern unter"-Dialogfeld Dim strDateiname As String Dim Dialog As Object Set Dialog = CreateObject("MSComDlg.CommonDialog") '"Speichern unter"-Dialog wird eingeblendet On Error Resume Next With Dialog .initdir = "CWindowsDesktop\" .Filter = "RLSTSIM-Speicherdatenbanken (*.sav)|*.sav" .Flags = &H2 .MaxFileSize = 260 .ShowSave strDateiname = .FileName End With 'Einstellungen zurücksetzen Set Dialog = Nothing 'Variablen für die Erzeugung der Datenbank Dim Db As Database Dim dbFile As String 'Neue Datenbank wird mit dem zuvor ausgewählten Dateinamen erstellt - ***Anfang*** dbFile = strDateiname On Local Error Resume Next Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, dbEncrypt + dbVersion30) If Err Then 'Ausgewählte Datenbank existiert bereits: 'Bestehende Datensätze werden zuerst gelöscht und dann neu erstellt Else 'Falls die Datei noch nicht existiert 'Erstellen der benötigten Tabellen - ***Anfang*** Dim Tabelle As New TableDef Dim Feld As New Field Tabelle.Name = "Einsatztabelle" 'Datenfeld #01 Feld.Name = "EinsatzNr" Feld.Type = dbInteger Tabelle.Fields.Append Feld Set Feld = Nothing ... 'Datenfeld #20 Feld.Name = "ZweitStatusSprechwunsch" Feld.Type = dbBoolean Tabelle.Fields.Append Feld Set Feld = Nothing Db.TableDefs.Append Tabelle Db.close Set Tabelle = Nothing Set Db = Nothing '***Ende*** End If On Local Error GoTo 0 'Hier steht der Code, mit dem die Datensätze gespeichert werden 'Anzeige einer Nachricht, dass der Spielstand korrekt gespeichert wurde Dim intAntwort As Integer intAntwort = MsgBox("Sämtliche laufenden Einsätze wurden erfolgreich in der Datei" + _ vbCrLf + strDateiname + vbCrLf + "gespeichert!", vbInformation, "RLSTSIM - _ Speicherung erfolgreich")

CommonDialog	56	Pauli	28.03.02 09:35
Re: CommonDialog	217	Dieter	28.03.02 10:01
Danke, da wäre aber noch ne Frage	43	Pauli	28.03.02 10:34
Re: Danke, da wäre aber noch ne Frage	204	Dieter	28.03.02 10:39
Re: Danke, da wäre aber noch ne Frage	54	Pauli	28.03.02 11:37
Re: Danke, da wäre aber noch ne Frage	90	stahlbeißer	28.03.02 11:55
Re: Danke, da wäre aber noch ne Frage	199	Dieter	28.03.02 12:16
Hmm, ja gut! Überredet Danke! oT	40	Pauli	28.03.02 13:05

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übersicht

Suchen