dbExpress og MySQL!

1. Du connecter vi componenten SQLConnection, her er det vigtigt at du har den rigtige libMySQL.dll, du kan få en kopi af min

2. Eksempel på SQLQuerry:
SQLQuery1.DisableControls;
  SQLQuery1.SQL.Clear;
  SQLQuery1.SQL.Add ( \'insert into MinTabel (id, intName) Values(\'\'10\'\', \'\'hest\'\')\' );
  SQLQuery1.ExecSQL(false);
  SQLQuery1.EnableControls;
  SQLClientDataSet1.Close;
  SQLClientDataSet1.Open;

3. I et SQLClientDataset

Fint, nu har jeg added SQLConnection, men hvor kan jeg f.eks. indtaste user / pass / host osv?

ah.. der :)

Dobbelklik på dit SQLConnection icon, og add en ny MySql connection i editoren som popper op, og indtast dine data her

mystisk.. får en: \"Access violation at address 01266D84 in module \'LIBMYSQL.dll\'. Read of address 0000000C\"

Har added en SQLConnection, SQLClientDataSet, SQLQuery, og skrevet det du har sagt :)

Det er fordi det ikke er den rigtige libmysql du har ;-))

Har selv brugt en lille uges tid på at finde ud af det

Hehe, ok.

Du kan sende den til mattias@interactiveweb.dk - eller har du icq ?

Lig din mail adr. og jeg skal sende den rigtige til dig

ja, skal jeg så regge den med regsvr32 ?

Nej du kan connecte direkte med den dll jeg sendte til dig

hvordan skal jeg \"connecte direkte med den dll\" ?

Når du sætter proppertye Connected til True, så skal du gerne være connected ;-)

ok, måske er jeg ikke helt erfaren i dette med delphi / mysql - men hvor skal jeg lægge dll\'en henne ?! :)

I SQLConnection propertyen, vendorlib angiver du sti og filnavn f.eks:

c:\\mysql\\libmysql.dll

eller du placere libmysql.dll sammen med dit projekt, så kan du nøjes med at skrive libmysql.dll i vendorlib

Ok, du har klart fortjent points.. :-)

Kan jeg evt. skrive en mail til dig hvis jeg løber ind i problemer?

Fik du connected ?

du må gerne sende en mail til mig, eller lig dit ? her, det kan være der er andre som kan svare bedre end mig

mvh
Morten

ok, tvivler bare på hvor mange der kommer forbi her ;)

kan du evt. prøve at komme med et eks. på hvordan jeg henter data ud fra db\'en ?

tænker mere på hvordan jeg får smidt en streng fra db\'en over i et edit felt :)

Det er faktisk lidt sjovt.. den kommer frem med en fejl om at den ikke kan finde table / db eller class.. men alligvel adder den data\'en ?!

et lille eksempel:

Lad os antage at den første række i din tabel hedder Id, nedenstående kode skriver ID nr på første post i dit edit felt:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLClientDataSet1.Open;
  SQLClientDataSet1.First;
  Edit1.Text := SQLClientDataSet1.FieldByName(\'Id\').AsString;
end;

så kan du bruge SQLClientDataSet1.Next, SQLClientDataSet1.Prior, SQLClientDataSet1.First, SQLClientDataSet1.Last til at steppe dig igennem dit dataset.

Hvis du har et dbGrid på din form så prøv at sæt en dbNavigator på formen og lad den pege på dit dataset, så kan du steppe frem og tilbage i dit dataset

OK.. men kan jeg f.eks. hente id ud via en SQL sætning?

\"SELECT * FROM table WHERE name = \'\'blabla\'\'\"

?

Sender dig en e-mail - du får 10 points hvis du svarer på det ovenstående spørgsmål :)

Jeg ser først dit ? nu

Hvilken id er det du vil hente den på den første post eller ?

Sådan her ?

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.close;
  Query1.SQL.Text := \' SELECT * FROM MinTabel WHERE Name =\'\'hest\'\'\';
  Query1.Open;
  Edit1.Text := IntToStr(Query1.FieldByName(\'Id\').asInteger);
end;

mvh
/morten

Bemærk MinTabel skal udskiftes med dit TabelNavn,

Er der flere med name=\'hest\' så får du id på den første

hvad vil jeg vil lave et loop med informationerne ? hvis nu der er flere med name = hest ?

Ja så er det 15 point *GGG*



procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.close;
  Query1.SQL.Text := \' SELECT * FROM MyTable WHERE Name =\'\'hest\'\'\';
  Query1.Open;
  while not Query1.Eof do
  begin
    ListBox1.Items.Add(IntToStr(Query1.FieldByName(\'Id\').asInteger));
    Query1.next;
  end;
//edit1.Text := IntToStr(Query1.FieldByName(\'Id\').asInteger);
end;

http://www.eksperten.dk/spm/120461