Deutsches Lazarusforum

Leider ist das nichts eingerückt

Leider hat das nicht funktioniert.
Ist in meinem Code etwas falsch?

Hallo Zusammen,

ist es in der ShowMessage möglich Text über Tab einzurücken?
Für ein Enter nutze ich #10#13, gibt es so eine Kombination auch für Tab?

Vielen Dank für die schnellen Antworten

Das ganze hat geklappt mit:
Es musste auch FieldbyName statt ParambyName sein.

Hallo Zusammen,

ich fülle die Datenbank mit dem DateTimePicker mit dem folgenden Code:


FrmConnectDB.SQLQuery1.ParamByName('datumangeschafft').AsString := Formatdatetime('yyyy.mm.dd', FrmEQStamm.DateTimePicker1.date);


Gspeichert ist er in der Datenbank im Format Jahr/Monat/Tag, im ...

erledigt, ich habe die Prüfung wieder in die eigentliche Prozedur geschrieben und nun bricht es auch ab wenn die SN bereits vorhanden ist.

Das ganze sieht jetzt so aus



procedure TFrmEQStamm.Button1Click(Sender: TObject);

var
//Variablen deklarieren
strGeraet :string;

begin ...

Das ganze funktioniert nun, ich habe es in eine neue Prozedur gepackt und rufe diese auf bevor gespeichert wird:


procedure TFrmEQStamm.CheckSN;

begin
//Datenbankverbindung aufbauen
FrmConnectDB.connectDB;
FrmConnectDB.SQLQuery1.Close;
FrmConnectDB.SQLQuery1.SQL.Text := 'SELECT * FROM pc ...

Dann bekomme ich die Fehlermeldung "Error: identifier idents no Member "Close""

Vielen Dank für die schnelle Hilfe. Ich dachte es passt noch zum Thema weil es ja noch immer um das Insert geht bzw. die Prüfung vor dem Insert.

Ich bekomme mit dem Code bei jedem Eintrag nun die Meldung die Seriennummer sei vorhanden, obwohl diese in der Datenbank noch nicht vorhanden ist.

Vielen Dank nochmal für die Hilfe.

Jetzt möchte ich vor dem Eintrag prüfen, ob eine Seriennummer schon in der Datenbank hinterlegt ist. Den folgenden Code habe ich unter die Parameter und vor dem Dateneintrag geschrieben.


if FrmConnectDB.SQLQuery1.SQL.Text := 'Exists (SELECT * FROM pc_geraete ...

Danke für die Info, die Daten werden nun per Parametern übergeben.

procedure TFrmEQStamm.Button1Click(Sender: TObject);

begin
//Datenbankverbindung aufbauen
FrmConnectDB.connectDB;

//Parameter anlegen
FrmConnectDB.SQLQuery1.Params.CreateParam(ftString, 'pcindex', ptInputOutput ...

Vielen Dank, es funktioniert endlich mit dem zweiten Vorschlag

Hallo Zusammen,

ich fange gerade mit dem Programmieren in lazarus an und habe nun folgendes Problem bei dem Insert into eine MySQL Datenbank (Maria DB)

Ich habe folgenden Code und die Datenbankverbindung scheint zu funktionieren, ich bekomme zumindest keine Fehlermeldung hierzu, aber einen Eintrag ...