Hallo Freunde,
mal wieder eine Frage von mir:

Ich arbeite in meinem Tool mit Access und somit auch DBEdit Komponenten. Ich möchte nun wenn DBEdit1= Edit ist ein Panel anzeigen lassen

Zbs. Hallo Freunde,


Funktioniert aber nicht
Kann mir jemand helfen?

Moderiert von Martok: Delphi-Tags hinzugefügt

Greife nicht auf die DBEdit zu, sondern auf die Daten der Tabelle.

Versuch es mal mit:

if (CompareStr((Edit1.text), (DBEdit1.Text)) < 0) then
Panel1.Visible:= true;

tomte hat folgendes geschrieben :

Versuch es mal mit: if (CompareStr((Edit1.text), (DBEdit1.Text)) < 0) then Panel1.Visible:= true;

Hier gibt er mir auch ohne das die Inhalte Übereinstimmen das Panel1.visible:= true aus
Er soll die beiden Felder vergleichen, und wenn der Inhalt Übereinstimmt soll Panel1 visible
Wofür soll das <0 stehen

Roy hat folgendes geschrieben :

tomte hat folgendes geschrieben : Versuch es mal mit: if (CompareStr((Edit1.text), (DBEdit1.Text)) < 0) then Panel1.Visible:= true; Hier gibt er mir auch ohne das die Inhalte Übereinstimmen das Panel1.visible:= true aus Er soll die beiden Felder vergleichen, und wenn der Inhalt Übereinstimmt soll Panel1 visible Wofür soll das <0 stehen

Oh, da hat sich ein Fehler eingeschlichen, statt < 0 muss es = 0 heissen.
CompareStr liefert bei Gleichheit zweier Strings 0 zurück.

Ausserdem habe ich festgestellt, dass diese Funktion mittlerweile veraltet ist und man lieber ansicomparestr verwenden sollte.

Also :
if (ansicomparestr((Edit1.text), (DBEdit1.Text)) = 0) then
Panel1.Visible:= true;

oder etwas kürzer:
Panel1.Visible := ansicomparestr(Edit1.text, DBEdit1.Text) = 0;

Muss Eigentlich ein Fremder PC Access installiert haben um mit der Datenbank zu arbeiten?

Hi,

Roy hat folgendes geschrieben :

Muss Eigentlich ein Fremder PC Access installiert haben um mit der Datenbank zu arbeiten?

höchstwahrscheinlich nicht .

Die Frage ist natürlich immer, wie du auf die Datenbank zugreifst. Ich nehme an, dass du er über die JET-Engine per ADO machst. Dafür wird lediglich MDAC benötigt. Welches nur bei ganz alten Windows Versionen nicht Bestandteil des Systems sind.

Hallo Ihr lieben kleinen Helfer,
kann man auch noch eine oder Funktion himzufügen?

doublecross hat folgendes geschrieben :

Hi, Roy hat folgendes geschrieben : Muss Eigentlich ein Fremder PC Access installiert haben um mit der Datenbank zu arbeiten? höchstwahrscheinlich nicht . Die Frage ist natürlich immer, wie du auf die Datenbank zugreifst. Ich nehme an, dass du er über die JET-Engine per ADO machst. Dafür wird lediglich MDAC benötigt. Welches nur bei ganz alten Windows Versionen nicht Bestandteil des Systems sind.

Vielen Dank

Mir ist jetzt die Sache gelungen habe aber dazu noch eine Frage.
Wie kann ich noch eine Fehlermeldung rausgeben wenn rot markiertes nicht erfüllt ist?

procedure TForm1.Button1Enter(Sender: TObject);
begin
Panel1.Visible := ansicomparestr(Zertifizierungnummer.text, DBEdit2.Text) = 0;
Panel3.Visible:= false;
end

Roy hat folgendes geschrieben :

Wie kann ich noch eine Fehlermeldung rausgeben wenn rot markiertes nicht erfüllt ist? Panel1.Visible := ansicomparestr(Zertifizierungnummer.text, DBEdit2.Text) = 0;

In dem die Fehlermeldung ausgibst, wenn der Vergleich einen Wert ungleich 0 ergibt. Dazu kannst du z.B. ein Panel mit einer Fehlermeldung einblenden.

Funktioniert wunderbar.
Vielen Dank