Thema: Delphi MySQL ohne Komponenten

Einzelnen Beitrag anzeigen

Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
824 Beiträge
 
Delphi 10.4 Sydney
 
#263

Re: MySQL ohne Komponenten

  Alt 25. Apr 2008, 21:42
Hallo,

ist zwar schon lange her, dass zu diesem Thema etwas geschrieben wurde, aber ich habe eine Frage und finde trotz intensivster Suche keine ANtwort. Ich weiß auch, dass es wahrscheinlich angebracht wäre, einen neuen Beitrag zu erstellen, aber ich hoffe hier eine bestimmte Gruppe von Usern ansprechen zu können - nämliche solche, die Delphi und MySQL ohne Komponenten verbunden haben...

Ich habe alle so gemacht, wie es oben beschrieben wurde - mit großem Erfolg. Allerdings war es nur möglich, StringGrids mit Daten aus der DB zu füllen. Ich benötige eine Möglichkeit, wie ich ein Edit-Feld mit Daten bestücken kann.

Folgendes hatte ich mir überlegt - ohne Erfolg:

Delphi-Quellcode:
function FillEdit(const Datenbank, query, Spalte: string; ED:TEdit): Boolean;
var
   MySQLRes: PMYSQL_RES;
   Field: PMYSQL_FIELD;
   ErrorCode: Integer;
begin
  connect;
   // Datenbank auswählen
   ErrorCode := mysql_select_db(_mycon, PChar(Datenbank));
   if ErrorCode = 0 then
   begin
     // Query ausführen
     ErrorCode := mysql_real_query(_mycon, PChar(query), length(query));
     if ErrorCode = 0 then
     begin
       // Query speichern
       MySQLRes := mysql_store_result(_mycon);
       if Assigned(MySQLRes) then
       begin
          with MySQLRes do
            begin
              ED.Text:=FieldByName(Spalte).AsString;
            end;
       end;
     end;
   end;
end;


procedure TBackForm.Button1Click(Sender: TObject);
var query:string;
    Spalte :string;
begin
connect;
query:='select * from auftrag where FA_NR=100014';
spalte.text:='ArtikelNr';
filledit (DB, query, Spalte, edit1);
disconnect;
end;
Ich bekomme nur Fehlermeldungen. Die Verbindung zur MySQL DB klappt zwar einwandfrei, ich bekomme aber keine einzelnen Daten heraus, sondern nur in einem StringGrid (FillGrid)

Es wäre SPITZE, wenn mir einer weiterhelfen könnte, da ich mit meinem Latein am Ende bin (nach 50-60 Stunden Ausprobieren)..

Danke
Miniaturansicht angehängter Grafiken
fehlermeldung_570.jpg  
Patrick
  Mit Zitat antworten Zitat