Всем доброго дня. Помогите мне пожалуйста с delphi 7!
При выполнении процедуры (ниже) выдает ошыбку "ADOQuery1: Missing SQL property".
procedure TForm2.OpenDB(var OpenDlg: TOpenDialog);
var
i, j, newPos, rowscount:integer;
tmp: string;
begin
procedure TGame.OpenDB(var OpenDlg: TOpenDialog);
var
i, j, newPos, rowscount:integer;
tmp: string;
begin
if open = false then
begin
try
OpenDlg.InitialDir := GetCurrentDir() + '\Data';
OpenDlg.Execute;
if OpenDlg.FileName <> '' then
begin
SelFile := OpenDialog1.FileName;
ADOQuery1.Recordset.MoveFirst;
for i:=0 to rowscount do
begin
RowsValues[i] := VarToStr(ADOQuery1.Recordset.Fields['Слово'].Value);
ADOQuery1.Recordset.MoveNext;
end;
for j := 0 to high(RowsValues) — 1 do
begin
tmp := RowsValues[j];
newPos := Random(high(RowsValues));
RowsValues[j] := RowsValues[newPos];
RowsValues[newPos] := tmp;
end;
end;
open := true;
AdoQuery1.Close;
except
ShowMessage('Ошибка при открытии.')
end;
end;
end;
Что это такое и как это исправить?
PS: я почти не знаю ничего про SQL и новичек в delphi.
Здравствуйте, LuciferArh, Вы писали:
LA>[sarcasm] LA>SELECT Знания FROM Учебник WHERE Армия IS "пока не забрали" LA>[/sarcasm]
LA>Думаю, это будет более правильный запрос...
Тяга людей к халяве более сильна, чем к знаниям — это факт. Этот хоть Query использует (обычно с Table начинают ) и что-то попытался сам сделать.
Здравствуйте, LuciferArh, Вы писали:
LA>Здравствуйте, lyonya.ku, Вы писали:
LK>>Что это такое и как это исправить?
LA>Вестимо как: хоть что-то почитать про SQL и Delphi. RTFM, как говорится...
LK>>PS: я почти не знаю ничего про SQL и новичек в delphi.
LA>Ага... Сессия, запары... Да все понятно. Но вот как же поубивать хочется таких вот "программистов", чтоб не отсвечивали... И не позорили КАСТУ.
Зачем убивать??? Вы сами таким тоже были. Или вы родились уже профи програмистом? Все учатся. Я только 2-й месяц дельфи учу.
Здравствуйте, LuciferArh, Вы писали:
LA>Здравствуйте, DarkMaster, Вы писали:
DM>>
DM>>ADOQuery1.SQL.Text:='SELECT СПИСОК_ПОЛЕЙ FROM ИМЯ_ТАБЛИЦЫ';
DM>>
DM>>перед ADOQuery1.Open...
LA>Не-а...
LA>[sarcasm] LA>SELECT Знания FROM Учебник WHERE Армия IS "пока не забрали" LA>[/sarcasm]
LA>Думаю, это будет более правильный запрос...
Да, наверное правильный, но он выполняется долго. Мне нужно сначала сделать программу. А потом и этот запрос выполню
Здравствуйте, LuciferArh, Вы писали:
LA>Ага... Сессия, запары... Да все понятно. Но вот как же поубивать хочется таких вот "программистов", чтоб не отсвечивали... И не позорили КАСТУ.
Здравствуйте, Figaro, Вы писали:
F>Смысл в другом... читай и сразу пробуй... Эт в начале 90-х не было книг и инета, но мы т как то смогли... Иногда благодаря FIDOнету
мы зачастую смогли даже не благодаря, а вопреки. Потому что там у них все было немного по-другому. И то, что работало у них там на их железе, не работало у нас без (зачастую тотального) переписывания. Но мы смогли. Я вот дочке своей (она не программист, хвала Аллаху) часто говорю, что ходить в библиотеку и рыться в книгах — это не признак неудачника и лоха. А ведь когда-то у нас не было не то, чтоб FIDO, а и "нормального" компа... Я вот свой первый комп сам собирал — Радио86-РК, если кто помнит.
Здравствуйте, lyonya.ku, Вы писали:
LK>Да, наверное правильный, но он выполняется долго. Мне нужно сначала сделать программу. А потом и этот запрос выполню
Да ну... Год — это недолго. А потом либо программа потеряет свою актуальность, либо ты останешься на сверхсрочную.