ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Select для Excel
7 сообщений из 7, страница 1 из 1
Select для Excel
    #36315017
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Добрый день!
Столкнулся с такой проблемой.Делаю выборку из файла Excel
Set conn = CreateObject("ADODB.Connection")
conn.Open "DBQ=" + НадписьПутьРезультат.Caption + "; DRIVER={Microsoft Excel Driver (*.xls)};"
Set rs = conn.Execute("Select * from [Лист1$]")

"Select * from [Лист1$]" работает,
а по наименованим столбцов нет "Select [Бренд] from [Лист1$]"
Проблема в том, что названия столбцов на русском языке? или он не понимает у Екселя, что первая строка - это название столбцов?

Спасибо.
...
Рейтинг: 0 / 0
17.11.2009, 15:14
| Ответить | Цитировать | Написать  
Select для Excel
    #36315105
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Для начала МЫ не понимаем, что значит в вашем понимании "не работает".
...
Рейтинг: 0 / 0
17.11.2009, 15:38
| Ответить | Цитировать | Написать  
Select для Excel
    #36315130
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Set rs = conn.Execute("Select [Бренд] from [Лист1$]")

Выдает ошибку
[Microsoft][Драйвер ODBC Excel] Слишком мало параметров.Требуется 1.

Set rs = conn.Execute("Select * from [Лист1$]")- проходит.....
...
Рейтинг: 0 / 0
17.11.2009, 15:46
| Ответить | Цитировать | Написать  
Select для Excel
    #36315144
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Lexx_SQL
> Столкнулся с такой проблемой.Делаю выборку из файла Excel

А почему используешь ОДБС через АДО, а не сразу напрямую АДО?

> Set conn = CreateObject("ADODB.Connection")
> conn.Open "DBQ=" + НадписьПутьРезультат.Caption + "; DRIVER={Microsoft Excel Driver (*.xls)};"

oCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sFileName _ &

";Mode=Share Deny None;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";Persist Security Info=False;"

В котором параметр HDR=No отвечает за считать ли первую строку заголовком таблицы или нет

> Проблема в том, что названия столбцов на русском языке? или он не понимает у Екселя, что первая строка - это
> название столбцов?

В твоем случае он не понимает, что первая строка это названия столбцов.

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.11.2009, 15:50
| Ответить | Цитировать | Написать  
Select для Excel
    #36315247
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Set Conn = CreateObject("ADODB.Connection")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & НадписьПутьРезультат.Caption & ";Mode=Share Deny None;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";Persist Security Info=False;"
Conn.Open (ConnectionString)

Set rs = Conn.Execute("Select [Артикул] from [Лист1$]")

Ошибка
"Отсутсвует значение для одного или нескольких параметров"

Брррр....что я не так делаю???
...
Рейтинг: 0 / 0
17.11.2009, 16:24
| Ответить | Цитировать | Написать  
Select для Excel
    #36315322
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Lexx_SQL

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub dd()
Dim Conn As ADODB.Connection, rs As ADODB.Recordset
Dim ConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\данные 2009.xls;Mode=Share Deny None;Extended 
Properties=""Excel 8.0;HDR=Yes;IMEX=1"";Persist Security Info=False;"
Conn.CursorLocation = adUseClient
Conn.Open ConnectionString

Set rs = Conn.Execute("Select [Регион] from [Реализация$]")
rs.MoveLast
Debug.Print rs.RecordCount
Set Conn = Nothing
Set rs = Nothing
End Sub
Все нормально читает

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
17.11.2009, 16:41
| Ответить | Цитировать | Написать  
Select для Excel
    #36315440
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Спасибо.Разобрался наконец-то...
...
Рейтинг: 0 / 0
17.11.2009, 17:18
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Select для Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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