![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 28.11.2012
Сообщений: 34
|
![]()
я хочу чтобы из комбобокса название таблицы передавались в adotable.tablename А как это сделать я не знаю. Вот код:
if OpenDialog1.Execute then With AdoConnection1 do begin Connected :=false;//закрываем сущ. соединение ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0 ;'+ 'Data Source=' +OpenDialog1.FileName+ ';Persist Security Info=false'; //формируем новую строку подключения Connected :=true; end; ADOConnection1.GetTableNames(ComboB ox1.Items,false); Последний раз редактировалось pirat2k; 28.11.2012 в 22:47. Причина: Добавление исходника |
![]() |
![]() |
![]() |
#2 |
Пользователь
Регистрация: 28.11.2012
Сообщений: 34
|
![]()
проблема разрешилась
procedure TForm1.Button1Click(Sender: TObject); var i:OleVariant; begin if OpenDialog1.Execute then With AdoConnection1 do begin Connected :=false;//закрываем сущ. соединение ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0 ;'+ 'Data Source=' +OpenDialog1.FileName+ ';Persist Security Info=false'; //формируем новую строку подключения Connected :=true; end; ADOConnection1.GetTableNames(ComboB ox1.Items,false); ADOTable1.TableName:=ComboBox1.Item s[i];; AdoTable1.Active :=true; // отображаем таблицу |
![]() |
![]() |
![]() |
#3 |
Пользователь
Регистрация: 28.11.2012
Сообщений: 34
|
![]()
теперь когда более 2 таблиц отображается только 1, помогите как быть?
|
![]() |
![]() |
![]() |
#4 |
personality
Старожил
Регистрация: 28.04.2009
Сообщений: 2,883
|
![]()
Это что за ерунда ? Мало того что 2 т/з, так ещё и индекс по I: olevariant идёт.
Тем более если предполагается смена отображаемых таблиц, то надо выносить код выбора таблицы отдельно. Примерно так: дать комбобоксу событие смены ( а ещё лучше сделать кнопку типа "открыть таблицу", которую пользователь жмет после выбора из списка) и в обработчике написать Код:
На будущее - оформляйте код по правилам - при редактировании кнопочка # или тег Code |
![]() |
![]() |
![]() |
#5 |
Пользователь
Регистрация: 28.11.2012
Сообщений: 34
|
![]()
спасибо помогло
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 03.05.2017
Сообщений: 4
|
![]()
Помогите пожалуйста у меня вообще не выводит список таблиц
|
![]() |
![]() |
![]() |
#7 | |
Регистрация: 03.05.2017
Сообщений: 4
|
![]() Цитата:
|
|
![]() |
![]() |
![]() |
#8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
![]() |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
[Delphi] как открыть *.png программно? | Ax_32 | Помощь студентам | 2 | 26.11.2010 21:35 |
как программно открыть порт? | sum42 | Общие вопросы по Java, Java SE, Kotlin | 7 | 23.01.2010 16:09 |
Как программно открыть dvd rom в delphi 2005 | нью | Помощь студентам | 13 | 17.11.2009 23:43 |
Как открыть свойства обозревателя программно? | Denisko | Общие вопросы Delphi | 9 | 28.04.2009 18:52 |
Как мне программно открыть окно свойств како-го нить файла? | Altera | Компоненты Delphi | 2 | 13.04.2008 16:07 |