hallo
Ich habe eine mysql Datenbank , wo PCs, Monitore und Dockingstations gespeichert sind.
Ich benutze nur die mysql odbcs , kein zeos oder so.
Ich habe im private von TForm1
fmysql: Tmysqlclient und
Fresult: TmysqlResult
Bisher habe ich die Anzeige der wichtigsten Daten ueber folgende Prozeduren hinbekommen
Zuerst lasse ich mir einen entsprechenden sql befehl geben.
procedure TForm1.mysqlqry ( q : string );
begin
if (q = ‚‘) then begin
q := ’ SELECT r.inventar_Nr,r.netzwerkname,a.benutzer ,’;
q := q + ’ a.benutzer_alt, a.raum , r.bemerkungen ,m.inventar_Nr, d.inventar_Nr, r.statusID’;
q := q + ’ from arbeitsplatz a inner join rechner r ';
q := q + ’ on a.rechnerid = r.rechnerid ';
q := q + ’ left join monitor m ';
q := q + ’ on a.monitorid = m.monitorid ';
q := q + ’ left join dockingstation d ';
q := q + ’ on r.dockingstationid = d.dockingstationid ';
q := q + ’ WHERE „1=1“ ';
end;
FResult := FMysql.query(q, true, ex);
ShowInGrid;
end;
dann die Anzeige im StringGrid
procedure TForm1.ShowInGrid;
var i,j: integer;
begin
if FMySql.Connected then begin
if assigned(FResult) then begin //