Hallo, ich habe da ein kleines Problem, wenn ich meine Datenbank als Backup speichern möchte.
Das Problem ist, wenn die Datei noch nicht vorhanden ist wird diese nicht erstellt, sondern es kommt nur ein Fehler dass die Datei noch nicht existiert.
Wenn ich vorher schon die Datei erstellt habe kann ich diese überschreiben.
Kann mir einer sagen was ich machen kann damit mein Programm die Datei selber erstellt?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| procedure TWinForm_Config.Button13_Click(sender: System.Object; e: System.EventArgs);
begin
conn:=OracleConnection.Create('user id='+userid+'; password='+password);
oda:=OracleDataAdapter.Create('select * from '+db1, conn);
ocb:=OracleCommandBuilder.Create(oda);
ds:=DataSet.Create(db1);
ds.Clear;
conn.Open;
oda.Fill(ds, db1);
SaveFileDialog1.DefaultExt := '.dbb';
SaveFileDialog1.Filter := 'Datenbank Backup|*.dbb';
If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK then
Begin
formatter := BinaryFormatter.Create;
Stream := FileStream.Create(SaveFileDialog1.FileName, FileMode.Create, FileAccess.Write, FileShare.None);
try
Formatter.Serialize(Stream, ds);
finally
Stream.Close;
conn.Close;
End;
End;
End; |
