Здравствуйте!
Делаю программку с применением SQLite. Нужно, чтобы путь к открываемому файлу заносился в БД. Вдобавок производится проверка, если такой путь уже есть в базе, то файл в БД не должен заноситься. Когда файл открывается из какой-то папки на рабочем столе (например, C:\Documents and Settings\Пользователь\Рабочий стол\Images или D:\Folder1) и его нет в базе (sltb.FieldAsInteger(0)=0), то занесение в базу происходит. Но когда файл сам находится на рабочем столе (C:\Documents and Settings\Пользователь\Рабочий стол), путь к файлу в базу почему-то не заносится. В чем может быть тут дело?
Код:
1 2 3 4 5 6 7 8 9 10 11 | var MAIN_DB:TSQLiteDatabase;
.............
var sltb:TSQLiteTable;
.............
try
sltb := MAIN_DB . GetTable( 'SELECT COUNT (full_path) FROM file_location WHERE full_path like "' +ExtractFilePath(ExpandFileName(NamFile))+ '%"' );
if sltb . FieldAsInteger( 0 )= 0 then
MAIN_DB . ExecSQL( 'INSERT INTO file_location (full_path) values("' +ExtractFilePath(ExpandFileName(NamFile))+ '")' );
finally
sltb . Free;
end ;
|