Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вставка sql результата в переменную vba Excel / 6 сообщений из 6, страница 1 из 1
14.10.2011, 12:30
    #37482231
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вставка sql результата в переменную vba Excel
Всем привет,

пытаюсь вставить sql результат в переменную vba Excel:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub ghghghghg()
Dim objADO
Dim objRs
Dim strSQL
Dim j As Integer

Set objADO = CreateObject("ADODB.Connection")
objADO.Properties("Prompt") =  2  'Prompt Always
objADO.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=servername; UID=; PWD=;"
strSQL = "SELECT count(*) INTO '" & j & "' from tablename "
objADO.BeginTrans
objADO.Execute strSQL
objADO.CommitTrans
objADO.Close
Set objADO = Nothing

End Sub

Останавливается на строке "objADO.Execute strSQL" с ошибкой:

Run-time error '-2147217900 (80040e14)':
[Microsoft][ODBC driver for Oracle][Oracle]ORA-00905: missing keyword

Поскажите, что пропущено, пожалуйста.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2011, 12:32
    #37482237
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вставка sql результата в переменную vba Excel
так нельзя, используйте правильный синтаксис.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2011, 12:36
    #37482251
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вставка sql результата в переменную vba Excel
Konst_Oneтак нельзя, используйте правильный синтаксис.

Если можно, подскажите пример.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2011, 12:38
    #37482262
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вставка sql результата в переменную vba Excel
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim rs as ASDODB.Recordset
...
SQL = "SELECT count(*) as CNT from tablename"
...
rs.Open SQL, objADO

MsgBox rs( 0 ).Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2011, 13:20
    #37482364
ecivgamer
ecivgamer
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вставка sql результата в переменную vba Excel
Спасибо, все работает.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Sub ghghghghg()

Dim objADO As ADODB.Connection
Dim strSQL
Dim rs As ADODB.Recordset
Dim j As Integer

Set objADO = CreateObject("ADODB.Connection")
Set rs = New ADODB.Recordset
objADO.Properties("Prompt") =  2  'Prompt Always
objADO.Open "Driver={Microsoft ODBC for Oracle}; CONNECTSTRING=servername; UID=; PWD=;"
rs.Open "SELECT count(*) as CNT from tablename", objADO
j = rs( 0 ).Value
rs.Close
Set rs = Nothing
MsgBox j

End Sub

По возможности еще подскажите, как настроить "Prompt", чтобы имя пользователя и пароль запрашивались только раз - до следующего перезапуска Excel.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2011, 13:46
    #37482431
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вставка sql результата в переменную vba Excel
у книги есть события, макрос надо вставить в событие открытия книги
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вставка sql результата в переменную vba Excel / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 389ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2158379]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 63ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 232ms
total:  389ms
x
x
Закрыть


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