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