læs fra en MySql database...

Hej Ziron

Jeg vil anbefale disse komponenter

http://www.microolap.com/

Her har du alm. query og table som vi kender det i BDE. Jeg har kørt med det i 2. md nu og det virker bare.

ejg kiggede lige derinde i går, men kan du ikke give et eks???

/ZIRON

Læse poster med SQL:


QueryUser := TmySQLQuery.Create(Self);
QueryUser.Database := MyDB;
QueryUser.Close;
QueryUser.SQL.Text := \'SELECT * FROM users WHERE Id = \'+IntToStr(IdSelectedUser);
QueryUser.Open;
QueryUser.Free;


Nedenstående adder f.eks en post

procedure TdlgUserName.ButOkClick(Sender: TObject);
var
  QueryUpdateUser : TmySQLQuery;
begin
  QueryUpdateUser := TmySQLQuery.Create(Self);
  with QueryUpdateUser do
  begin
    Database := MyDB;
    Close;
    SQL.Clear;
    if IdSelectedUser = 0 then
    begin
      SQL.Text := \'SELECT MAX(ID) as NextID FROM users\';
      Open;
      IdSelectedUser := FieldByName(\'NextID\').AsInteger + 1;
      Close;
      DisableControls;
      SQL.Clear;
      SQL.Add( \'INSERT INTO users (Id, UserType, Name, Password, MailAdr, SMSAdr, SMSPhoneNo) \'+
                            \' VALUES (:Id, :UserType, :Name, :Password, :MailAdr, :SMSAdr, :SMSPhoneNo)\');
    end
    else
      SQL.Add(\'UPDATE users \'+
              \'  SET UserType  = :UserType, \'+
              \'      Name      = :Name, \'+
              \'      Password  = :Password, \'+
              \'      MailAdr    = :MailAdr, \'+
              \'      SMSAdr    = :SMSAdr, \'+
              \'      SMSPhoneNo = :SMSPhoneNo \'+
              \'  WHERE Id = :Id\');
    ParamByName(\'Id\').AsInteger := IdSelectedUser;
    ParamByName(\'UserType\').AsInteger := cboxUserPrivellege.ItemIndex;
    ParamByName(\'Name\').AsString := lEditUserName.Text;
//    ParamByName(\'Password\').AsString :=
    ParamByName(\'MailAdr\').AsString := lEditMailadr.Text;
    ParamByName(\'SMSAdr\').AsString := lEditSMSEMail.Text;
    ParamByName(\'SMSPhoneNo\').AsString := lEditSMSNr.Text;
    ExecSQL;
    EnableControls;
    Free;
  end;
end;

Du gør altså ligesom når du bruger BDE op imod f.eks. Paradox

okay takker og jeg prøver...

morten_s det ser ud til at det du har skrevet har givet mig idén til hvordan jeg har kunne lave det, så point til dig, men lader den lige stå lidt bare for at være sikker...

/ZIRON