Скачать: CL | DM;

SQL запрос   Найти похожие ветки 

← →
Gringoire ©   (2007-05-14 03:20) [0]

procedure TForm8.BitBtn1Click(Sender: TObject);
var s : string;
begin
AdoQuery1.Close;
AdoQuery1.SQL.Text := "select password from users where user =" + labelededit1.Text ;
AdoQuery1.Open ;
s := AdoQuery1.Fields[0].AsString ;
labelededit2.Text :=  s;
end;

Люди, он мне говорит, что введенный параметр в поле LabeledEdit1 не имеет значения поумолчанию...

в таблице такие поля:

ID_User
User
Password

---

← →
sniknik ©   (2007-05-14 03:36) [1]

http://delphimaster.net/view/3-1179096304/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.037 c