а поиском пользоваться не учили ?
учится SQLite сюда
Модератор: Модераторы
Посмотрел я SQliteAdministrator. Нашёл много инфы о SQLite. Но перерыл очень много сайтов о подключении SQLite к Делфи/Lazarus и находил только сайты с вопросами. Sad
program project1;
{$Mode ObjFpc}
{$define DEBUGHEAP}
uses
{$ifdef DEBUGHEAP}
Heaptrc,
{$endif}
{$ifdef Linux}
cmem,
{$endif}
crt,sysutils,db,SqliteDS;
var
dsTest:TSQliteDataset;
begin
{$ifdef DEBUGHEAP}
SetHeapTraceOutput('heaplog.txt');
{$endif}
dsTest:=TsqliteDataset.Create(nil);
with dsTest do
Begin
FileName:='New.db';
if FileExists(FileName) then
DeleteFile(FileName);
TableName:='NewTable';
with FieldDefs do
begin
Clear;
Add('Code',ftInteger,0,False);
Add('Name',ftString,0,False);
Add('Bool',ftBoolean,0,False);
Add('Float',ftFloat,0,False);
Add('Word',ftWord,0,False);
Add('DateTime',ftDateTime,0,False);
Add('Date',ftDate,0,False);
Add('Time',ftTime,0,False);
end;
CreateTable;
writeln('SqliteReturnString after CreateTable: ',SqliteReturnString);
Destroy;
end;
exit;
end.
program concurrencyds;
{$Mode ObjFpc}
{$define DEBUGHEAP}
uses
{$ifdef DEBUGHEAP}
Heaptrc,
{$endif}
{$ifdef Linux}
cmem,
{$endif}
crt,sysutils,SqliteDS;
var
dsOne, dsTwo: TSQliteDataset;
begin
{$ifdef DEBUGHEAP}
SetHeapTraceOutput('heaplog.txt');
{$endif}
// Инициализируем БД
dsOne := TsqliteDataset.Create(nil);
dsTwo := TsqliteDataset.Create(nil);
// Указываем название БД
dsOne.FileName := 'New.db';
dsTwo.FileName := 'New.db';
// Указываем имя таблицы
dsOne.TableName := 'NewTable';
dsTwo.TableName := 'NewTable';
// Формируем запрос
dsOne.Sql := 'SELECT Code FROM NewTable';
dsTwo.Sql := 'SELECT Name FROM NewTable';
// Выполняем запрос
dsOne.Open;
dsTwo.Open;
// хз
dsOne.First;
dsTwo.First;
WriteLn('Code: ', dsOne.FieldByName('Code').AsInteger);
WriteLn('Name: ', dsTwo.FieldByName('Name').AsString);
// Переходим на следующее поле
dsOne.Next;
dsTwo.Next;
WriteLn('Code: ', dsOne.FieldByName('Code').AsInteger);
WriteLn('Name: ', dsTwo.FieldByName('Name').AsString);
dsOne.Close;
dsTwo.Close;
dsOne.Destroy;
dsTwo.Destroy;
Readkey;
Exit;
end.
- Код: Выделить всё
// хз
dsOne.First;
dsTwo.First;
debi12345 писал(а):А добавить данные с помощью Lazarus не получается
SQLiteDataset.SQL('insert....')
GN писал(а):Ничего не получается с SQLite. Буду танцевать с бубном теперь над firebird, надеюсь в интеренте есть хоть один пример с этой базай...
Да ничегоPadre_Mortius писал(а):А что ты хочешь от SQLite?
GN писал(а):Буду танцевать с бубном теперь над firebird, надеюсь в интеренте есть хоть один пример с этой базой...
SQLite может и неплохая СУБД, но очень уж своеобразная. Нормальных компонент для неё нет в природе, потому, что их просто не может быть. И всё из-за некоторой, скажем так, особенности этой СУБД - практически полного отсутствия типизации полей.
Для доступа к ним в лазаре есть встроенные компоненты SQLdb. Они очень даже ничего. Будут. Когда глючить перестанут.
А случится это не понятно когда, потому как была идея скрестить это дело с наработками Мартина (MSEide/gui), так что готовьте валерьянку Wink
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1