а поиском пользоваться не учили  ?
учится 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

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0