Для начала интересуюсь добавлением/извлечением данных.
Скажем, следующий кусок кода, который я где-то нашёл:
- Код: Выделить всё
with TServer do
begin
Sql := 'select * from server2;';
Open;
First;
while not Eof do
begin
mServerName := TStringField(Fields[1]);
mPort := TStringField(Fields[2]);
mUserName := TStringField(Fields[3]);
mPassword := TStringField(Fields[4]);
ProcessMemo.Lines.Add(mServerName.Value + ', ' +
mPassword.Value);
Next;
end;
end;
не работает.
Сайт http://sqlite4fpc.yolasite.com/ я бы почитал, но ссылки там битые, а человек не оставил способов связи с ним.
Заранее спасибо.
Добавлено спустя 2 часа 17 минут:
- Код: Выделить всё
ProcessMemo.Lines.Add(FieldByName('servername').AsString);
- работает,а :
- Код: Выделить всё
ProcessMemo.Lines.Add(FieldByName('servername').AsString);
Next;
ProcessMemo.Lines.Add(FieldByName('servername').AsString);
уже нет
Добавлено спустя 10 часов 28 минут 28 секунд:
Ну же, Мастера управления БД, где же вы?
