Ошибка с DBF 'corrupt table/index header'

Yurk@ · #16 01.11.2012, 14:31

можно попробовать в каком-то редакторе и пересоздать индекс
не каждый редактор такое сделает ... нужно пробовать

Lilu-MAKS · #17 01.11.2012, 15:00

ну нету у меня mdb БД у меня есть папку как к ней подключится в ADO а?

poli-smen · #18 01.11.2012, 15:02

Цитата:

Сообщение от Lilu-MAKS

ну нету у меня mdb БД у меня есть папку как к ней подключится в ADO а?

Пример >>здесь<<.

Lilu-MAKS · #19 01.11.2012, 15:40

в процедуре удаления индекса он у меня на Errorio ругается! что там?

poli-smen · #20 01.11.2012, 16:40

Вместо провайдера JET ещё можно попробовать провайдер MSDASQL (он в TADOConnection по-умолчанию выбран).
А ещё можно отдельно установить родной провайдер для Visual FoxPro (VFPOLEDB). Скачать его можно с сайта Microsoft.

timondrik · #21 03.11.2012, 21:05

Всем привет! У меня тоже проблема связаная с DBF, а точнее с запросом на выборку.

Код:

dm.qry1.SQL.Add('SELECT * FROM 60000324');
dm.qry1.SQL.Add('WHERE codvr="'+codvr+'" AND curebeg="'+curebeg+'"');
dm.qry1.Open;

Программа выдает ошибку:

Код:

Operator/operand type mismatch

Но если убрать последнее условие фильтрации:

Код:

 AND curebeg="'+curebeg+'"

то программа на ура выполнит свою задачу. С DBF редко работаю, по этому ошибка сбила с толку. Использовал ODBC FoxPro. Объясните пожалуйста кому не сложно в чем проблема.

poli-smen · #22 04.11.2012, 03:56

Цитата:

Сообщение от timondrik

Всем привет! У меня тоже проблема связаная с DBF, а точнее с запросом на выборку.

Код:

dm.qry1.SQL.Add('SELECT * FROM 60000324');
dm.qry1.SQL.Add('WHERE codvr="'+codvr+'" AND curebeg="'+curebeg+'"');
dm.qry1.Open;

Программа выдает ошибку:

Код:

Operator/operand type mismatch

Но если убрать последнее условие фильтрации:

Код:

 AND curebeg="'+curebeg+'"

то программа на ура выполнит свою задачу. С DBF редко работаю, по этому ошибка сбила с толку. Использовал ODBC FoxPro.

Какого типа поле "curebeg"?
Что содержится в переменной "curebeg"?
Ты делаешь очистку старого запроса перед добавлением нового?:

Код:

dm.qry1.SQL.Clear;

Попробуй заменить кавычки на апостроф:

Код:

  // Вот так:
  dm.qry1.SQL.Add('WHERE codvr='''+codvr+''' AND curebeg='''+curebeg+'''');

  // Или лучше так:
  dm.qry1.SQL.Add('WHERE codvr='+QuotedStr(codvr)+' AND curebeg='+QuotedStr(curebeg));

  // Или так:
  dm.qry1.SQL.Add(Format('WHERE codvr=%s AND curebeg=%s', [QuotedStr(codvr), QuotedStr(curebeg)]));

Попробуй вместо внедрения использовать параметры:

Код:

  dm.qry1.SQL.Add('WHERE codvr=:codvr AND curebeg=:curebeg');
  dm.qry1.Parameters.ParamByName('codvr').Value := codvr;
  dm.qry1.Parameters.ParamByName('curebeg').Value := curebeg;

Попробуй другой провайдер: JET или MSDASQL.

timondrik · #23 04.11.2012, 13:07

Цитата:

Сообщение от poli-smen

Попробуй заменить кавычки на апостроф:

Код:

  // Вот так:
  dm.qry1.SQL.Add('WHERE codvr='''+codvr+''' AND curebeg='''+curebeg+'''');

  // Или лучше так:
  dm.qry1.SQL.Add('WHERE codvr='+QuotedStr(codvr)+' AND curebeg='+QuotedStr(curebeg));

  // Или так:
  dm.qry1.SQL.Add(Format('WHERE codvr=%s AND curebeg=%s', [QuotedStr(codvr), QuotedStr(curebeg)]));

Попробуй вместо внедрения использовать параметры:

Код:

  dm.qry1.SQL.Add('WHERE codvr=:codvr AND curebeg=:curebeg');
  dm.qry1.Parameters.ParamByName('codvr').Value := codvr;
  dm.qry1.Parameters.ParamByName('curebeg').Value := curebeg;

Попробуй другой провайдер: JET или MSDASQL.

Не один вариант не помог, ошибка та же. Вот полный листинг:

Код:

procedure TForm1.btn2Click(Sender: TObject);
var
  i:Integer;
  codvr,curebeg:string;
begin
  dm.qry1.Active := True;
  pb1.Position := 0;
  pb1.Max := dm.qry1.RecordCount;
  for i:=1 to dm.qry1.RecordCount do
  begin
    codvr := dm.qry1.FieldByName('codvr').AsString;
    curebeg := dm.qry1.FieldByName('curebeg').AsString;

    if dblDoctor.Checked then
    begin
      dm.qry1.SQL.Clear;
      dm.qry1.SQL.Add('SELECT * FROM 60000324');
      dm.qry1.SQL.Add('WHERE codvr="'+codvr+'" AND curebeg="'+curebeg+'"');
      dm.qry1.Open;
      if dm.qry1.RecordCount > 1 then
      begin
        mmo1.Lines.Add(dm.qry1.FieldByName('fio').AsString+'|Дубль посещения!!!')
      end;
    end;

    pb1.Position := i;
    dm.qry1.Next;
  end;

end;

Может прояснит что нибудь. Программа должна пробежаться по базе посещений и выбрать те у которых дубли. Я так то не на профессиональном уровне программирую, по этому мог чего то не знать. Может где то, что то не правильно.

poli-smen · #24 04.11.2012, 15:28

Цитата:

Сообщение от timondrik

Не один вариант не помог, ошибка та же. Вот полный листинг:

Код:

procedure TForm1.btn2Click(Sender: TObject);
var
  i:Integer;
  codvr,curebeg:string;
begin
  dm.qry1.Active := True;
  pb1.Position := 0;
  pb1.Max := dm.qry1.RecordCount;
  for i:=1 to dm.qry1.RecordCount do
  begin
    codvr := dm.qry1.FieldByName('codvr').AsString;
    curebeg := dm.qry1.FieldByName('curebeg').AsString;

    if dblDoctor.Checked then
    begin
      dm.qry1.SQL.Clear;
      dm.qry1.SQL.Add('SELECT * FROM 60000324');
      dm.qry1.SQL.Add('WHERE codvr="'+codvr+'" AND curebeg="'+curebeg+'"');
      dm.qry1.Open;
      if dm.qry1.RecordCount > 1 then
      begin
        mmo1.Lines.Add(dm.qry1.FieldByName('fio').AsString+'|Дубль посещения!!!')
      end;
    end;

    pb1.Position := i;
    dm.qry1.Next;
  end;

end;

Может прояснит что нибудь. Программа должна пробежаться по базе посещений и выбрать те у которых дубли. Я так то не на профессиональном уровне программирую, по этому мог чего то не знать. Может где то, что то не правильно.

Это явно ошибочный код.
Обрати внимание что "dm.qry1.Active := True;" абсолютно одно и то же что и "dm.qry1.Open;"
Значит вначале ты выполняешь SQL-запрос (какой - неизвестно - тот который последним был загружен в "dm.qry1.SQL"). А потом проходишься в цикле по всем записям из этого запроса. Но внутри цикла ты используешь тот же самый qry1 для совершенно других запросов из-за чего твой цикл не может нормально продолжать выполнение.

timondrik · #25 04.11.2012, 20:49

Цитата:

Сообщение от poli-smen

Это явно ошибочный код.
Обрати внимание что "dm.qry1.Active := True;" абсолютно одно и то же что и "dm.qry1.Open;"
Значит вначале ты выполняешь SQL-запрос (какой - неизвестно - тот который последним был загружен в "dm.qry1.SQL"). А потом проходишься в цикле по всем записям из этого запроса. Но внутри цикла ты используешь тот же самый qry1 для совершенно других запросов из-за чего твой цикл не может нормально продолжать выполнение.

Теперь для проверки на дубляжи я сделал отдельный ADOquery, но ошибка сохранилась. При чем я заметил, что ругань именно с полем curebeg, после чего присмотрелся в навигаторе и увидет что оно типа Date, т.е. дело в типах. Но так и не могу понять как построить запрос чтобы дата воспринялась как значение типа Date.

poli-smen · #26 04.11.2012, 20:56

Цитата:

Сообщение от timondrik

Теперь для проверки на дубляжи я сделал отдельный ADOquery, но ошибка сохранилась. При чем я заметил, что ругань именно с полем curebeg, после чего присмотрелся в навигаторе и увидет что оно типа Date, т.е. дело в типах. Но так и не могу понять как построить запрос чтобы дата воспринялась как значение типа Date.

А через параметры:

Код:

dm.qry2.SQL.Add('WHERE codvr=:codvr AND curebeg=:curebeg');
dm.qry2.Parameters.ParamByName('codvr').Value := codvr;
dm.qry2.Parameters.ParamByName('curebeg').Value := StrToDateTime(curebeg);

timondrik · #27 04.11.2012, 21:59

Цитата:

Сообщение от poli-smen

А через параметры:

Код:

dm.qry2.SQL.Add('WHERE codvr=:codvr AND curebeg=:curebeg');
dm.qry2.Parameters.ParamByName('codvr').Value := codvr;
dm.qry2.Parameters.ParamByName('curebeg').Value := StrToDateTime(curebeg);

Фффух. Ну вот теперь всё путём. Спасибо большое за помощь

poli-smen · #28 04.11.2012, 23:41

Цитата:

Сообщение от timondrik

Фффух. Ну вот теперь всё путём. Спасибо большое за помощь

В таком случае лучше сразу работать с этим полем как с типом Дата/Время, без преобразования его в строку, а потом опять из строки в Дата/Время:

Код:

var
.....
  curebeg: TDateTime; // Здесь сразу объявляем переменную как Дата/Время, а не строка
begin
.....
  curebeg := dm.qry1.FieldByName('curebeg').AsDateTime; // И здесь получаем значение поля как Дата/Время, а не строка
.....
  dm.qry2.Parameters.ParamByName('curebeg').Value := curebeg; // Тогда здесь не нужно преобразовывать строку в Дата/Время

Также у меня есть подозрение, что выбрать записи "у которых дубли" можно одним единственным запросом. Правда я не могу сказать каким, так как ты не показывал текст первого запроса.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение:
Lilu-MAKS (02.11.2012)

Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Lilu-MAKS (02.11.2012)