Re: Delphi + MySql

[Jan Zuchhold <jan_(at)_Zuchhold.com>]

Hiya

> ich hab die LIBMYSQL.dll in die uses mit _libmysql drinnen und hab die
> mysql_blabla befehle ohne ODBC oder BDE
fein
ich cutte dir hier grad nen bisschen was aus meinem eigenen klassen zusammen:

CSQL: PMYSQL;
CResult: PMYSQL_RES;
CRow: PMYSQL_ROW;

du machst also mit

  mysql_query(CSQL, pChar(QueryLine));

oder so ähnlich dein query, dann mit 

  CResult := mysql_store_result(CSQL);

das Result speichern, dann mit

  CRow := mysql_fetch_row(CResult);

die Reihe holen (je nachdem auch öfter, solange CRow <> nil ist)

und dann kannst du mit Crow[n] auf die jeweilige Spalte zugreifen, wobei dabei nur
numerische Indizes erlaubt sind. Wenn du nach Name der Spalte gehen willst
hab ich unten ne routine angehängt (nur als Beispiel, ist nen bisschen aus dem
Zusammenhang...)
Kannst dann also ne kleine Schleife machen die jeweils die Reihe fetched und
dann in deine Dropdown-Box added...

Ok ich hoffe das hilft dir,
Jan


--------- schnipp ---------
// CRow und CResult sind global in TSQL
function TSQL.Result(Field: string): string;
var
  Fields: PMYSQL_FIELDS;
  FieldCount: longword;
  n: integer;
begin
  Result := '';

  Fields := mysql_fetch_fields(CResult);
  FieldCount := mysql_num_fields(CResult);
  if FieldCount < 1 then exit;
	for n := 0 to FieldCount - 1 do begin
  	if lowercase(Fields[n].name) = lowercase(Field) then begin
   	Result := CRow[n];
    break;
		end;
	end;
end;

---
*** Weitere Infos zur Mailingliste und MySQL unter http://www.4t2.com/mysql