-
Forum: Datenbanken
Delphi
by uwe12,
5. Mai 2009
kann mir keiner helfen?
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
tut mir leid, ich habe das close nicht gesehen. das speichern funktioniert schon soweit, aber nach dem speichern sind aber keine datensätze in der dbgrid vorhanden. wenn ich das programm neustarte, dann kommen zwar die datensätze wieder, aber die bilder werden nicht angezeigt. ein neuer datensatz wird über einen anderen button hinzugefügt.
function...
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
das speichern funktioniert jetzt. aber wenn ich das bild speichere, dann kommt die meldung, dass das bild gespeichert wurde. wenn ich dann auf ok klicke, dann schließt sich das programm.ich habe den quelltext mal so umgeschrieben:
procedure Tad.Button2Click(Sender: TObject);
var Stream: TMemoryStream;
aBMP: TBitmap;
aJPG: TJPEGImage;
begin
if AdoImage.Picture.Graphic.Empty then...
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
aber für was soll das editfeld sein?
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
value funktioniert, aber mit edtBezeichnung weis ich nicht was damit gemeint ist, bzw. weis ich nicht, wie ich es deklarieren soll.
Parameters.ParamByName('bez').value := edtBezeichnung.Text;
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
aber irgendwie bleibz immernoch asString nicht deklariert und bei edtBezeichnung weis ich nicht genau was damit gemeint ist.
Parameters.ParamByName('bez').AsString := edtBezeichnung.Text;
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
und bei der zeile kommt aber auch noch undeklarierter bezeichner
ParamByName('bez').AsString := edtBezeichnung.Text;
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
aber loadfromstream belibt immer noch undeklariert. das kapier ich nicht. muss ich bei der anderen zeile auch noch so schreiben?
begin
SQL.Text := 'INSERT INTO Bild(Grafik, Bezeichnung) VALUES(:img,:bez)';
AdoQuery1.Parameters.ParamByName('img').value:=LoadFromStream(Stream,ftGraphic);
ParamByName('bez').AsString := edtBezeichnung.Text;
ExecSQL;
end;
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
ich hab das jetzt mal davor geschrieben, aber es bleibt immer noch undeklariert.
AdoQuery1.Parameters.ParamByName().Value
ParamByName('img').LoadFromStream(Stream,ftGraphic);
ParamByName('bez').AsString := edtBezeichnung.Text;
-
Forum: Datenbanken
Delphi
by uwe12,
3. Mai 2009
da kommt bei mir immer, dass ParamByName nicht deklariert wurde.
-
Forum: Datenbanken
Delphi
by uwe12,
1. Mai 2009
dann kommt die fehlermeldung, dass das dataset nicht im editiermodus ist. aber was ich auch nicht verstehe, warum mein anderer buuton zum anlegen eines neuen datensatzes auch nicht funktioniert. hab nochmal den kompletten quelltext von dem programm reingestellt.
function JpegStartsInBlob(PicField:TBlobField):integer;
var
bS : TADOBlobStream;
buffer : Word;
hx : string;
begin...
-
Forum: Datenbanken
Delphi
by uwe12,
1. Mai 2009
hier ist nochmal der code zum speichern. über einen anderen button legt ich über adodataset1.append einen neuen datensatz an.
var
blob: TAdoBlobStream;
fs:TMemorystream;
begin
AdoDataset1.edit;
blob := TADOBlobStream.Create(AdoDataset1Bild, bmwrite);
try
fs := TMemorystream.create();
-
Forum: Datenbanken
Delphi
by uwe12,
1. Mai 2009
das auslesen eines bildes aus der datenbank funktioniert, aber das speichern nicht.
-
Forum: Datenbanken
Delphi
by uwe12,
1. Mai 2009
-
Forum: Datenbanken
Delphi
by uwe12,
1. Mai 2009
-
Forum: Datenbanken
Delphi
by uwe12,
1. Mai 2009
aber bei mir wird kein bild gespeichert.
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
cool danke erstmal. :-D
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
es kommt immernoch die meldung: eine leere zeile kann nicht eingefügt werden. Ich glaube das programm weis nicht, was es einfügen soll.
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
aber wenn ich das Adotable1.edit weglasse, dann kommt folgende Fehlermeldung, wenn ich auf speichern klicke: Eine leere Zeile kann nicht eingefügt werden. Mindestens ein Spaltenwert der Zeile muss festgelegt sein.
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
es kommt nur append. ich habe hier mal meinen gesamten quelltext.
function JpegStartsInBlob(PicField:TBlobField):integer;
var
bS : TADOBlobStream;
buffer : Word;
hx : string;
begin
Result := -1;
bS := TADOBlobStream.Create(PicField, bmRead);
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
ich versteht das nicht ganz. ich komm irgendwie nicht weiter. die tabelle ist nicht leer. Vor dem AdoTable1.edit lege ich einen neuen datensatz über Adotable1.append an.
hab hier nochmal mein quelltext.
var
blob: TAdoBlobStream;
fs:TMemorystream;
begin
AdoTable1.edit;
blob := TADOBlobStream.Create(AdoTable1Bild, bmwrite);
try
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
Das ist nie dsEdit sondern immer dsInsert...
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
ok, danke erstmal
-
Forum: Datenbanken
Delphi
by uwe12,
30. Apr 2009
wenn ich einen neuen datensatz anlegen möchte und dann auf speichern klicke, dann kommt immer folgender Fehler: AdoTable1:Datenmenge werder im Editier- noch im Einfügemodus aufgetreten.
var
blob: TAdoBlobStream;
fs:TMemorystream;
begin
AdoTable1.edit;
blob := TADOBlobStream.Create(AdoTable1Bild, bmwrite);
try
-
Forum: Datenbanken
Delphi
by uwe12,
29. Apr 2009
ich hab den fehler gefunden, es lag garnicht an dem speichern, sondern wo anderes im programm. Aber wenn ich jetzt auf speichern klicke, kommt die Fehlermeldung ,,AdoTable1:Dataset not in edit or insert mode"