MySQL ohne Komponenten

[mrbrown]

cool das hat einiges geholfen.
nun noch ne andrere Frage. Wenn ich nun daten aus der DB auslese, wie kann ich die in einem ListView anzeigen sodass die auch direkt in Titel, Datum, Von, Bis, Text geordnet werden. Außerm würde mich interessiere wie ich dann per klick eines auswählen kann um ein update durchzuführen.

[DeddyH]

Blätter einmal ein paar Seiten zurück: http://www.delphipraxis.net/internal...=839783#839783. Dort werden die Daten zwar in ein Memo geschrieben, aber das lässt sich ja anpassen. Und zur Auswahl: das musst Du auf der Clientseite (sprich: in Deinem Programm) implementieren. Eine Möglichkeit wäre z.B., Dir eine Klasse zu deklarieren, die die Feldinhalte als Properties beinhaltet. Ein Objekt dieser Klasse könntest Du ja dann im "Data"-Feld des ListItems hinterlegen.

[mrbrown]

hi also habe mir grad mal die demos angeguckt und auch den post den du meintest. bei dem wird ja wie du selnst sagst ein memo gefüllt was ja aber nicht ganz das ist was ich suche. leider komme ich selbst nicht drauf wie ich das realsieren kann. könntest du mir ggf. nen beispiel zeigen?

außerdem würde mich noch interessieren ob es möglich ist in irgend einer weise ein live-update zu haben ob die verbindung zur DB besteht. also in 2 sek abständen oder so.

Gruß MrBrown

[DeddyH]

Ich habe hier gerade kein MySQL am Laufen und verfüge auch nicht über die Units, aber versuch es einmal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Con: PMYSQL;
    host, user, pass, db: PChar;
    Row: PMySQL_Row;
    Res: PMYSQL_RES;
    query: string;
    i, j: integer;
    Item: TListItem;
begin
  host := 'Name_des_Servers';
  user := 'Name_des_Users';
  pass := 'Passwort_des_Users';
  db   := 'Name_der_DB';

  Con := mysql_init(nil);
  if Assigned(Con) then
    try
      if Assigned(mysql_real_connect(Con, host, user, pass, db, 3306, nil, 0)) then
        begin
          //evtl. bestehende Items löschen
          DeineListview.Items.Clear;
          query := 'SELECT titel, datum, von, bis, text FROM testtabelle';
          mysql_real_query(Con,PChar(query), Length(query));
          Res := mysql_store_result(Con);
          if Assigned(Res) then
            for i := 0 to mysql_num_rows(Res) - 1 do
              begin
                Row := mysql_fetch_row(Res);
                //neues ListItem hinzufügen (erstes Feld)
                Item := DeineListView.Items.Add;
                Item.Caption := Row[0];
                //für jedes weitere Feld ein SubItem
                for j := 1 to High(Row) do
                  Item.SubItems.Add(Row[j]);
              end;
        end
      else
        ShowMessage(mysql_error(Con));
    finally
      mysql_close(Con);
    end;
end;

[mrbrown]

Hey DeddyH, danke erstmal für den code.
Hab ein paar probleme damit. Habe gesehn dass du skype hast, könnte ich dich mal adden und dich direkt mit Fragen beballern?

Gruß

[DeddyH]

Solange Du nicht anrufst (habe nämlich kein Mikro angeschlossen), soll mir das recht sein.

[edit] Sry, ich hatte Nachrichten von außerhalb gesperrt, sollte nun aber gehen. [/edit]

[Manta12]

Hallo!
Irgendwie komm ich mit dem Abrufen nicht so ganz klar. Datenbank erstellt, Tabeller erstellt und Werte sind auch drin. Das seh ich mit MySQL-Front.
Ich möchte jetzt die Daten -->komplett aus der Database auslesen in einen Record als Array übergeben und anschließend im stringgrid ausgeben.
Aber ich bekomme entweder nur den Fehler "Acces violation" oder gar keinen Wert! Hier mal mein Verusch:
Meine Tabelle besteht aus: Kartei(sowas wie id), Titel, Autor, ISBN

Delphi-Quellcode:

var

  Posts: TPostEntries;
  idAuthor: String;   //zum Zwischenspeichern der Verfasser-ID
  query: PChar;
  _myRes: PMySQL_Res; //hier wird der gesamte Ergebnissatz gespeichert
  _mySubRes: PMySQL_Res;  //benötigt, um Autor zu ermmitteln
  _myRow: PMySQL_Row; //enthält den aktuellen Datensatz
  _mySubRow: PMySQL_Row;  //benötigt, um Autor zu ermmitteln
  i,xx: Integer;

begin

   mysql_select_db(_myCon, 'APITest');             //APItest heißt meine Datenbank
   query := 'SELECT * FROM buch';                  //hier habe ich doch den kompletten Datensatz ausgewählt!, oder?
   mysql_real_query(_myCon, query, Length(query));

  _myRes := mysql_store_result(_myCon);            //Ergebnismenge anfordern
  if _myRes = nil then
  begin
    ShowMessage('Es konnten keine Datensätze zurückgebenen werden. Ursache: ' + mysql_error(_myCon));
    Exit;
  end;

  SetLength(Posts, mysql_num_rows(_myRes));        //Posts-Array-Größe auf Anzahl der Datensätze setzen

  for i := 0 to High(Posts) do
  begin
    _myRow := mysql_fetch_row(_myRes);             //Datensatz abholen (nächste Zeile)
    Posts[i].id := StrToInt(_myRow[0]);            //Kartei wird id
    Posts[i].time := _myRow[2];                    //Titel wird time   --->  time, text, author sind vom typ string
    Posts[i].text := _myRow[3];                    //ISBN wird text
    Posts[i].author := _myRow[1];                  //Autor wird Author
    
    stringgridcells1[0,i]:=StrToInt(Posts[i].id);  //mein Feld bleibt leider leer --> warum?

    mysql_free_result(_mySubRes);        //Ergebnissatz löschen
  end;

  mysql_free_result(_myRes);             //Ergebnissätze löschen
end;

Ich hoffe ihr habt einen Ansatz für mich. mfg

[DeddyH]

Zitat:

Delphi-Quellcode:

mysql_free_result(_mySubRes);

Wo kommt denn _mySubRes plötzlich her?

[edit] Sry, Willkommen in der DP :dp: [/edit]

[Manta12]

oh man, ich danke dir...hatte ich ganz übersehen die ganze zeit und dummerwiese direkt aus dem tut so übernommen. wunderbar jetzt klappt's. danke dir

[Manta12]

So ich bins nochmal ;)
Ich versuche nun krampfhaft Daten an meine db durch variablen zu übertragen. Aber es klappt nicht!!! :wall:
Ich habe doch eine Variable, aber irgendwie wird die nich übernommen. Die direkten Werte schon :(

Delphi-Quellcode:

var  a:string;

begin
 {Verbindung wird ordnungsgemäß aufgebaut}

 a:=Edit2.Text;

 query :='INSERT INTO buch (Kartei, Autor, Titel, Genre, ISBN) VALUES (''1'',a,''1'',''1'',''1'')';
 mysql_real_query(_myCon, query, Length(query));

Das funktioniert aber so leider nicht. Wenn ich anstatt von a auch ''1'' schreibe, dann werden alle einsen übernommmen. Hat jmd einen Tip? mfg