Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS Подключение и запрос к SQL базе / 3 сообщений из 3, страница 1 из 1
19.04.2006, 12:26
    #33676078
Boyler
Boyler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS Подключение и запрос к SQL базе
Прошу ногами не пинать
Собственно надо получить сумму столбца.
Не знаю что делать дальше, как записать результат в переменную!

Поправте пожалуста, если можно с коментариями.

Работает только код подключения к базе с запросом.
Dim objConnection
Dim strConnectionString
Dim lngValue
Dim strSQL
Dim objCommand
Dim SUMKOL

strConnectionString = "DRIVER={SQL Server};SERVER=DIMON\WINCC;DATABASE=CC_Dispetch_06_03_01_14_01_50R;UID=;PWD="

strSQL = "SELECT SUM(Soll_Cold_Water) FROM UA#Ricipe"

Set objConnection = CreateObject("ADODB.Connection")
objConnection.ConnectionString = strConnectionString
objConnection.Open

Set objCommand = CreateObject("ADODB.Command")

objCommand.ActiveConnection = objConnection
objCommand.CommandText = strSQL
objCommand.Execute

Set objCommand = Nothing
objConnection.Close
Set objConnection = Nothing
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 13:39
    #33676437
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS Подключение и запрос к SQL базе
Добавь строчку
Код: plaintext
Set objRecordset= CreateObject("ADODB.Recordset")
И вместо
Код: plaintext
objCommand.Execute
Делай
Код: plaintext
rs.Open objCommand, objConnection
Значение будет в
Код: plaintext
SUMKOL = rs.Fields( 0 ).Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2006, 14:41
    #33676740
Boyler
Boyler
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VBS Подключение и запрос к SQL базе
Огромное тебе человеческое СПАСИБО!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub OnClick(Byval Item)                                                          
	Dim objConnection 
	Dim strSQL 
	Dim SUMKOL
	Dim rs
	
		strSQL = "SELECT SUM(Soll_Cold_Water) FROM UA#Ricipe"

	Set objConnection = CreateObject("ADODB.Connection") 
	Set rs = CreateObject("ADODB.Recordset")
	
		objConnection.ConnectionString = "DRIVER={SQL Server};SERVER=DIMON\WINCC;DATABASE=CC_Dispetch_06_03_01_14_01_50R;UID=;PWD="
		objConnection.Open 
		rs.Open strSQL, objConnection
	
	SUMKOL = rs.Fields( 0 ).Value
	
		objConnection.Close 
		Set objConnection = Nothing
		
	MsgBox SUMKOL
	
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBS Подключение и запрос к SQL базе / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 567ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166007]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 200ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 284ms
total:  567ms
x
x
Закрыть


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