Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.10.2010, 16:49   #1
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
Вопрос Ошибка открытия MDB файла повторно

Первый раз когда открываю MDB файл, то все нормально. Но, когда второй раз открываю этот же MDB или тот же самый, но под другим именем, то получаю ошибку:
Помогите разобраться что это значит?
Изображения
Тип файла: png Безымянный.png (23.5 Кб, 88 просмотров)
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Старый 11.10.2010, 17:12   #2
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Нужно смотреть, чего там в макросах понапихано..
Это только один конкретный MDB или все?
Black Fregat вне форума Ответить с цитированием
Старый 11.10.2010, 17:22   #3
artemavd
Старожил
 
Аватар для artemavd
 
Регистрация: 05.06.2008
Сообщений: 4,206
По умолчанию

т.е. как получается. Если я открываю первый раз MDB файл, то все нормально. Потом, если я этот же файл открою повторно, то тоже нормально, вроде открывается, но если я открываю какой-то другой MDB файл, то получаю ошибку выше. Вот код открытия и настройки ADOConnection1:
Код:
procedure TForm1.BtnOpen1Click(Sender: TObject);
begin
 Form1.OpenDialog1.FileName:='*.mdb';
 if Form1.OpenDialog1.Execute then
 begin
  Form1.StatusBar1.Panels[1].Text:=Form1.OpenDialog1.FileName;
  Form1.Label60.Caption:=ExtractFileName(Form1.StatusBar1.Panels[1].Text);
  Form1.Label61.Caption:=ChangeFileExt(Form1.Label60.Caption,'');
  Form1.StatusBar1.Panels[3].Text:=Form1.Label60.Caption;
  Form1.ADOConnection1.Connected:=False;
  Form1.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Form1.StatusBar1.Panels[1].Text + ';Persist Security Info=False';
  Form1.ADOConnection1.Connected:=True;
  Form1.ADOQuery1.Close;
  Form1.ADOQuery1.SQL.Text:='select * from ' + Form1.Label61.Caption;
  Form1.ADOQuery1.Open;
  Form1.StatusBar1.Panels[5].Text:=IntToStr(Form1.ADOQuery1.RecordCount);
 end;
end;
Не стоит смеяться над человеком делающим шаг назад, возможно он делает разбег.
artemavd вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытия файла Ayubkhon Общие вопросы Delphi 3 08.06.2010 13:38
ошибка при INSERT INTO; D7, access mdb helluvaname Помощь студентам 4 07.01.2010 10:16
Ошибка открытия файла mutabor Общие вопросы Delphi 7 28.09.2009 18:33
Ошибка открытия файла в Image Лукманов Александр Общие вопросы Delphi 2 18.03.2009 14:16
Ошибка открытия файла Word 2007 Владим Microsoft Office Word 0 07.10.2008 14:22