Цитата(AntonPavlov @ 11.7.2010, 00:05  ) | | Чего то не врубаюсь я в ту штуку.... |
Так и не ответил на вопрос.
В зависимости от ответа и решение - подойдёт ли тебе решение
| Цитата(AnalogXP @ 10.7.2010, 14:51 ) | | Поэтому пришлось отказаться в пользу этого. |
Добавлено @ 00:43
| Цитата(AntonPavlov @ 11.7.2010, 00:05 ) | | Чего то не врубаюсь я в ту штуку.... |
| Код |
//открыть БД
procedure DBOpen(FilePath: String);
begin
DBClose;
DB := TSQLiteDatabase.Create(FilePath);
end;
|
| Код |
//Создать таблицу
procedure DBClearTable(const TableName: String);
begin
DB.ExecSQL('DELETE FROM '+TableName);
end;
|
| Код |
function DBSelect(const Query: String): TSQliteTable;
begin
try
Result := DB.GetTable(Query);
except
Result := nil;
end;
end;
var
t: TSQLiteTable;
begin
t := DBSelect('SELECT * FROM U WHERE inn='+QStr(Inn));
|
| Код |
procedure DBBeginTran;
begin
DB.BeginTransaction;
end;
procedure DBCommit;
begin
DB.Commit;
end;
procedure DBRollBack;
begin
DB.Rollback;
end;
procedure DBClose;
begin
FreeAndNil(DB);
end;
|
| Код |
function QStr(const Src: String): String;
begin
Result := '"'+StringReplace(Src,'"','''',[rfReplaceAll])+'"';
end;
procedure InsertRecordOrg(Info: PCust); overload;
var
s: AnsiString;
begin
s := 'INSERT INTO Org ('+
'OrgId,'+
'OrgName,'+
'Inn,'+
'Kpp,'+
'LastUpdate,'+
'IsNew) VALUES ('+
QStr(Info^.Id)+','+
QStr(Info^.Name)+','+
QStr(Info^.Inn)+','+
QStr(Info^.Kpp)+','+
QStr(FormatDateTime('dd.mm.yyyy',Now))+','+
'1'+
')';
DB.ExecSQL(s);
end;
|
| Код |
t := uDB.DBSelect(s);
try
for i := 0 to t.Count-1 do
begin
New(p);
p^.purchId := t.FieldByName['purchId'];
p^.PurchName := t.FieldByName['purchName'];
p^.CId := t.FieldByName['CId'];
p^.purchAmount := t.FieldByName['purchAmount'];
p^.CustName := t.FieldByName['CustName'];
p^.purchDescription := t.FieldByName['purchDescription'];
p^.AuctionBeginDate := t.FieldByName['AuctionBeginDate'];
p^.AuctionEndDate := t.FieldByName['AuctionEndDate'];
p^.DateSort := t.FieldByName['DateSort'];
p^.StateName := t.FieldByName['purchStateName'];
p^.Protocol2Msg := t.FieldByName['Protocol2Msg'];
p^.RowHigh := 0;
ListA.AddObject(p^.purchId,Pointer(p));
t.Next;
end;
|
Вот куски примеров... |
