EVariantError! - Kann mir mal ganz schnell einer helfen???

[EDatabaseError]

Delphi-Quellcode:

procedure Tdatasearch.Button1Click(Sender: TObject);
var s1, s2: String;
begin
s1 := Edit1.Text;
s2 := Edit2.Text;
 if CheckBox1.Checked = true then
 begin
  if CheckBox2.Checked = true then
  begin
   if DataModule4.Tabelle.Locate('ART_NAME;ART_NUM', VarArrayOf([s1, s2]), [loPartialKey]) then
   begin
    send;
   end
   else
   begin
    MessageDlg('Nicht gefunden!!!', mtError, [mbOK], 0);
   end;
  end
  else
  begin
   if DataModule4.Tabelle.Locate('ART_NAME', s1, [loPartialKey]) then
   begin
    send;
   end
   else
   begin
    MessageDlg('Nicht gefunden!!!', mtError, [mbOK], 0);
   end;
  end;
 end
 else
 begin
  if Checkbox2.Checked = true then
  begin
   if DataModule4.Tabelle.Locate('ART_NUM', s2, [loPartialKey]) then
   begin
    send;
   end
   else
   begin
    MessageDlg('Nicht gefunden!!!', mtError, [mbOK], 0);
   end;
  end
  else
  begin
   MessageDlg('Keine Suchoption gewählt!!!', mtError, [mbOK], 0);
  end;
 end;
end;

Ich bekomm immer nen EVariantError in den Locate Zeilen. Konvertierung von Variant ungültig...

WHY????


Mfg

EDE

[marabu]

Hi,

dein Fehler scheint D3 spezifisch zu sein. Bei mir unter D7 funktioniert das ausgezeichnet mit verschiedenen Feldtypen und -Kombinationen.

Grüße vom marabu

[EDatabaseError]

:( Was sagt uns das mal wieder... Kauft eure Software neu... Aber danke trotzdem.

[Stevie]

Kompilier dein Projekt mal mit den Debug-dcus, dann kannst du besser sehen, an welcher Stelle der Fehler entsteht.

[shmia]

Das Feld ART_NUM wird wohl ein numerisches Feld sein.
Du gibst bei Locate aber einen String ein.
Normalerweise ist dies zulässig; die VCL wandelt intern von String nach Integer.
Sollte die Variable s2 allerdings nicht umgewandelt werden, kommt es zu einem Fehler.
Besser so:

Delphi-Quellcode:

procedure Tdatasearch.Button1Click(Sender: TObject); 
var s1: String; 
artnum : integer;
begin 
s1 := Edit1.Text; 
try
  artnum := StrToInt(Edit2.Text);
except
  on E:Exception do
  begin
     Edit2.Setfocus;  // Focus auf fehlerhaftes Feld
     // aussagekräftige Fehlermeldung bilden
     // und zwar ohne die orginale Message zu zerstören
     E.Message := 'Artikelnummer ist falsch'#13#10+E.Message;
     raise;
  end;
end;

if CheckBox1.Checked = true then 
begin 
  if CheckBox2.Checked = true then 
  begin 
   if DataModule4.Tabelle.Locate('ART_NAME;ART_NUM', VarArrayOf([s1, artnum]), [loPartialKey]) then

[EDatabaseError]

Ne ArtNum ist String Denn in Artikelnummern kann au mal ein Buchstabe sei. Aber sonst ist in D3 keine andere Möglichkeit???? :shock:

[EDatabaseError]

Zitat:

Zitat von Stevie

Kompilier dein Projekt mal mit den Debug-dcus, dann kannst du besser sehen, an welcher Stelle der Fehler entsteht.

Was für Tool???

[mirage228]

Zitat:

Zitat von EDatabaseError

Zitat:

Zitat von Stevie

Kompilier dein Projekt mal mit den Debug-dcus, dann kannst du besser sehen, an welcher Stelle der Fehler entsteht.

Was für Tool???

Projekt -> Optionen -> Compiler -> Debug DCU [Haken machen]

mfG
mirage228

[EDatabaseError]

So hab den Fehler Weiterverfolgt und herausgefunden dass die Prozedur send das Prob macht! :wall:

Also jetzt geht alles!


Danke!


Mfg

EDE