Q&A

  • 델파이그로그램에서 mysql 권한주기?


아래가 젝가 코딩한 부분입니다..

아래 어떤님이 리플달았는데 도무지 어떻게 해야하는지몰라 소스를 올립니다. ]

한수 부탁드립니다.



procedure TForm1.Button1Click(Sender: TObject);

begin

with query1 do

begin

close;

sql.Clear;

sql.Add('insert into user');

sql.Add('(host,user,password)');

sql.Add('values');

sql.Add('(:host,:user,:password)');

ParamByName('host').AsString := '%';

ParamByName('user').AsString := edit1.text;

ParamByName('password').AsString := 'password('edit2.text')';

execsql;

close;

end;

0  COMMENTS