powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Adodc + Excel в DataGrid
23 сообщений из 23, страница 1 из 1
Adodc + Excel в DataGrid
    #33405744
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите с подключением Excel в DataGrid через Adodc!

сейчас сделано так:
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\#new Price\123.xls;Extended Properties = Excel 8.0;"
Adodc3.CommandType = adCmdTable
Adodc3.RecordSource = "Sheet1$"
Set DataGrid3.DataSource = Adodc3

но выскакивает ошибка: "syntax error in FORM clause" :(
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33406430
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Помогите с подключением Excel в DataGrid через Adodc!

сейчас сделано так:
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\#new Price\123.xls;Extended Properties = Excel 8.0;"
Adodc3.CommandType = adCmdTable
Adodc3.RecordSource = "Select * from Sheet1$"
Set DataGrid3.DataSource = Adodc3

поробуй так я не очень силен в Excel базах но лист в данном случае выступает как таблица а колонки таблицы как колонки базы
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33406731
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TIKO
Adodc3.RecordSource = "Select * from Sheet1$"


неа :( я даже пробовал Adodc3.RecordSource = "SELECT * FROM [Sheet1$]" - не получается. не сочтите за труд: попробуйте на своей машине подгрузить excel в DataGrid через Adodc
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33406793
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VicNic , никогда не подключался к Excell через Adodc
работал всегда через АДОконекшен

и строка выборки была примерно такая
Код: plaintext
strSQL = "SELECT a.TipProduct AS [TipAcc], a.CMoney_Code  FROM [Data$] a"


т.е. попробуй у себя так

Код: plaintext
1.
2.
3.
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\#new Price\123.xls;Extended Properties = Excel 8.0;"
Adodc3.CommandType = adCmdTable
Adodc3.RecordSource = "Select A.* from [Sheet1$] A"
Set DataGrid3.DataSource = Adodc3
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33407406
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
удали пустые листы с экселя
"Select * from Sheet1"
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33408534
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TIKOудали пустые листы с экселя
"Select * from Sheet1"

удалил, ничего не получается :( могу для примера выслать xls-файл.
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33408560
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
HandKotVicNic , никогда не подключался к Excell через Adodc
работал всегда через АДОконекшен


а как через АДОконекшен подключиться в VB6?
Adodc и при Вашем варианте не проходит :(
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33408741
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ПРИСЫЛАЙ
если будет время
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33408793
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TIKOПРИСЫЛАЙ
если будет время

выслал. посмотрите плиз. может у меня просто какой то глюк.
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33408812
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
VicNic TIKOПРИСЫЛАЙ
если будет время
выслал. посмотрите плиз. может у меня просто какой то глюк.

файл вернулся назад :( mail.ru не принимает письма от yandex.ru? :)
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33408857
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VicNic а как через АДОконекшен подключиться в VB6?
Adodc и при Вашем варианте не проходит :(

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
dim cn as new adodb.connection
dim rs as new adodb.recordset

cn.Connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\#new Price\123.xls;Extended Properties = Excel 8.0;"
...
cn.Open
...
rs.open "Select A.* from [Sheet1$] A", cn, adOpenKeySet, adLockreadOnky
...
rs.close
cn.close

set rs = nothing
set cn = nothing
...
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33409524
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кстати, тута попробовал через АДОДС сделать и все получилось

выставил св-ва так
Код: plaintext
1.
CommandType = adCmdText
Commandtext  = SELECT * FROM ['Data$']

главное чтобы там лист с таким названием был
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33410052
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\#new Price\123.xls;Extended Properties = Excel 8.0;"
Adodc3.CommandType = adCmdTable
Adodc3.RecordSource = "Select * from Sheet1$"
Set DataGrid3.DataSource = Adodc3

если используешь запрос то не adCmdTable а abCmbText

попробуй просто не запрос а таблицу
Adodc3.CommandType = adCmdTable
Adodc3.RecordSource = "Имя листа"

прикрепи файл к сообщению, если по почте не идет
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33419161
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TIKOприкрепи файл к сообщению, если по почте не идет

Прикрепляю, т.к. ошибка осталась :(
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33419575
TIKO
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Попробовал твой лист то же не получается у меня вопрос
сам файл exl ты создаешь сам или создаешь специальными утилитами для создания баз данных
проблемма в том что вручную созданная exl база не может быть базой, поскольку сам файл для баз данных должен создаваться и редактироваться специальными утилитами, вручную можно отредактировать записи но только с определенными ограничениями, я заметил что в exl базе все строковые величины начинаются с символа ' и при редактировании не удали этот символ
все не так то просто с exl-ом
если есть MS SQL 2000 то можно создать базу в exl-е путем утилита data transform и там сравнить и проанализировать
я порпобую еще если будет время разобраться с exl-ем
PS
файл exl должен к тому же сохранен как Excel 97
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33419623
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все работает на ура

вот настройки АДОДС
Конекшн стринг - Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\1\123.xls;Extended Properties=Excel 8.0;Persist Security Info=False

1) вариант
CommandType - adCmdTable
RecordSource - [Sheet1$]
в списке выбираешь свой лист и (!!!!!) забери его (название листа) в символы "[" "]"

2) вариант
CommandType - adCmdTуче
RecordSource = SELECT * FROM `Sheet1$`
(обрати внимание, что название листа разграничено символоми "`" (у меня где русская бква "Ё"))

и на этом все. Должно работать

Удачи
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33422886
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TIKOПопробовал твой лист то же не получается у меня вопрос
сам файл exl ты создаешь сам или создаешь специальными утилитами для создания баз данных
проблемма в том что вручную созданная exl база не может быть базой

файл создаю не сам. но в том то и суть, что нужен внешний файл отразить! Кстати, в VB5 c DBgrid такой проблемы вообще не было :( теперь понадобилось старую программу обновить и вот такие проблемы возникли :)
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33422939
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
HandKotи на этом все. Должно работать Удачи

круто! это действительно работает! Спасибо!

Но откуда такие извращения?! зачем?!

Adodc3.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\#new Price\123.xls;Extended Properties = Excel 8.0;Persist Security Info=False"
Adodc3.CommandType = adCmdText
Adodc3.RecordSource = "SELECT * FROM `Sheet1$`"
Set DataGrid3.DataSource = Adodc3
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33423205
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
про какие извращения идет речь?
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33424938
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
HandKotпро какие извращения идет речь?

про `Sheet1$` (символ "`" где русская бква "Ё")
кстати, с английским вариантом ' не проходит :)
это же явное извращение :)
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33425535
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а что за
аVicNic кстати, с английским вариантом ' не проходит :)

про какой символ идет речь?
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33425703
VicNic
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
HandKotа что за
аVicNic кстати, с английским вариантом ' не проходит :)
про какой символ идет речь?

"`"
...
Рейтинг: 0 / 0
Adodc + Excel в DataGrid
    #33426521
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну ладно.
Это все сам Excel придумывает
Для проверки можете открыть файл Excel, "данные - импорт внешних данных - создать запрос" набросать с помощью визарда простейший запрос и потом посмотреть полученную строку SQL

Так что не я это придумал :-)
...
Рейтинг: 0 / 0
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Adodc + Excel в DataGrid
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]