ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Ado доступ к CACHE' из EXEL
11 сообщений из 11, страница 1 из 1
Ado доступ к CACHE' из EXEL
    #35593393
Ahil79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil79
Гость
Пытаюсь подключиться. Ошибок невыдает но и записей тоже.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
Private Sub CommandButton2_Click()
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim f As ADODB.Field
Dim i, ost, prih, rash, pos, price, section, rez, rez_pl, rez_min As Integer
Dim art, id, name As String
Dim now_date, ost_date, ost_prev, sqlrow As String


Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=CACHEWEB User;SERVER=127.0.0.1;PORT=1972;DATABASE=USER;AUTHENTICATION METHOD=0;UID=_system;PWD=SYS;STATIC CURSORS=0;QUERY TIMEOUT=1;UNICODE SQLTYPES=0;"

cn.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
Set rs = New ADODB.Recordset

'Определяем все новые ТМЦ 
cmd.CommandText = "SELECT * FROM user3.rezmy"
Set rs.Source = cmd
rs.Open
Do While i <= rs.RecordCount
i = i +  1 
rez_pl =  0 
If Not rs.EOF Then
    Worksheets("Остатки").Cells(i +  1 ,  7 ).Value = CStr(rs( 0 ))
    Worksheets("Остатки").Cells(i +  1 ,  1 ).Value = CStr(rs( 1 ))
    Worksheets("Остатки").Cells(i +  1 ,  5 ).Value = CStr(rs( 2 ))
    Worksheets("Остатки").Cells(i +  1 ,  9 ).Value = CStr(rs( 3 ))
    Worksheets("Остатки").Cells(i +  1 ,  2 ).Value = CStr(rs( 4 ))
    Worksheets("Остатки").Cells(i +  1 ,  3 ).Value = CStr(rs( 5 ))
    Worksheets("Остатки").Cells(i +  1 ,  4 ).Value = CStr(rs( 6 ))
    Worksheets("Остатки").Cells(i +  1 ,  6 ).Value = CStr(rs( 7 ))
    Worksheets("Остатки").Cells(i +  1 ,  8 ).Value = CStr(rs( 8 ))
    Worksheets("Остатки").Cells(i +  1 ,  10 ).Value = CStr(rs( 9 ))
    Worksheets("Остатки").Cells(i +  1 ,  11 ).Value = CStr(rs( 10 ))
    Worksheets("Остатки").Cells(i +  1 ,  12 ).Value = CStr(rs( 11 ))
    
    rs.MoveNext
End If

Loop
rs.Close

Skip:



cn.Close

End Sub
В чем может быть проблема?
...
Рейтинг: 0 / 0
14.10.2008, 14:00
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35593549
Блок А.Н.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Блок А.Н.
Участник
Пробовали пошагово отлаживать, смотреть коды возратов?
...
Рейтинг: 0 / 0
14.10.2008, 14:48
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35593639
Ahil79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil79
Гость
Ошибок невыдает, тоесть соединение устанавливается. После открытия запроса RecordCount=-1.
...
Рейтинг: 0 / 0
14.10.2008, 15:04
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35593663
Ahil79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil79
Гость
Изменил название таблици в запросе на несуществующую, выдает ошибку, "такой таблици несуществует".
...
Рейтинг: 0 / 0
14.10.2008, 15:10
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35593668
MX-1S
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MX-1S
Гость
Ahil79Ошибок невыдает, тоесть соединение устанавливается. После открытия запроса RecordCount=-1.

Мы работаем на связке CACHE+EXCEL
достаточно активно

Множество положительных моментов

Но схема несколько иная - см приложение
...
Рейтинг: 0 / 0
14.10.2008, 15:13
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35593690
Ahil79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil79
Гость
Все разобрался
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
Private Sub CommandButton2_Click()
Dim cn As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim f As ADODB.Field
Dim i, ost, prih, rash, pos, price, section, rez, rez_pl, rez_min As Integer
Dim art, id, name As String
Dim now_date, ost_date, ost_prev, sqlrow As String


Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=CACHEWEB User;SERVER=127.0.0.1;PORT=1972;DATABASE=USER;AUTHENTICATION METHOD=0;UID=_system;PWD=SYS;STATIC CURSORS=0;QUERY TIMEOUT=1;UNICODE SQLTYPES=0;"

cn.Open
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = cn
cmd.CommandType = adCmdText
Set rs = New ADODB.Recordset

'Определяем все новые ТМЦ 
cmd.CommandText = "SELECT * FROM user3.rezmy"
Set rs.Source = cmd
rs.Open
Do While Not rs.EOF
i = i +  1 
rez_pl =  0 
If Not rs.EOF Then
    Worksheets("Остатки").Cells(i +  1 ,  7 ).Value = CStr(rs( 0 ))
    Worksheets("Остатки").Cells(i +  1 ,  1 ).Value = CStr(rs( 1 ))
    Worksheets("Остатки").Cells(i +  1 ,  5 ).Value = CStr(rs( 2 ))
    Worksheets("Остатки").Cells(i +  1 ,  9 ).Value = CStr(rs( 3 ))
    Worksheets("Остатки").Cells(i +  1 ,  2 ).Value = CStr(rs( 4 ))
    Worksheets("Остатки").Cells(i +  1 ,  3 ).Value = CStr(rs( 5 ))
    Worksheets("Остатки").Cells(i +  1 ,  4 ).Value = CStr(rs( 6 ))
    Worksheets("Остатки").Cells(i +  1 ,  6 ).Value = CStr(rs( 7 ))
    Worksheets("Остатки").Cells(i +  1 ,  8 ).Value = CStr(rs( 8 ))
    Worksheets("Остатки").Cells(i +  1 ,  10 ).Value = CStr(rs( 9 ))
    Worksheets("Остатки").Cells(i +  1 ,  11 ).Value = CStr(rs( 10 ))
    Worksheets("Остатки").Cells(i +  1 ,  12 ).Value = CStr(rs( 11 ))
    
    rs.MoveNext
End If

Loop
rs.Close

Skip:



cn.Close

End Sub
...
Рейтинг: 0 / 0
14.10.2008, 15:20
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35594870
Блок А.Н.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Блок А.Н.
Участник
авторUID=_system;PWD=SYS;
Нехорошо...
...
Рейтинг: 0 / 0
15.10.2008, 09:06
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35594923
Ahil79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil79
Гость
Блок А.Н.авторUID=_system;PWD=SYS;
Нехорошо...
Поясните если можно.
Ставил демо каше поумолчанию. С администрирование базы несвязывался.
Пробую возможности cache.
...
Рейтинг: 0 / 0
15.10.2008, 09:35
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35594947
Блок А.Н.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Блок А.Н.
Участник
Для демо нормально, а вообще разрешение входа с паролем по умолчанию - дыра в безопасности.
Вторая дыра - пароль записан в теле excel-файла.
...
Рейтинг: 0 / 0
15.10.2008, 09:48
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35594954
Ahil79
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ahil79
Гость
Учту. Надеюсь такая фигня только с демо и в лицензионной версии сразу предлагают поменять пароль :)
...
Рейтинг: 0 / 0
15.10.2008, 09:51
| Ответить | Цитировать | Написать  
Ado доступ к CACHE' из EXEL
    #35595577
Блок А.Н.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Блок А.Н.
Участник
Вроде демо-каше отличается только размером буфера и невозможностью ввести лицензию, остальное все так же.
...
Рейтинг: 0 / 0
15.10.2008, 13:06
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Ado доступ к CACHE' из EXEL
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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