Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Ado доступ к CACHE' из EXEL / 11 сообщений из 11, страница 1 из 1
14.10.2008, 14:00
    #35593393
Ahil79
Ahil79
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ado доступ к CACHE' из EXEL
Пытаюсь подключиться. Ошибок невыдает но и записей тоже.
Код: 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:48
    #35593549
Блок А.Н.
Блок А.Н.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ado доступ к CACHE' из EXEL
Пробовали пошагово отлаживать, смотреть коды возратов?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2008, 15:04
    #35593639
Ahil79
Ahil79
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ado доступ к CACHE' из EXEL
Ошибок невыдает, тоесть соединение устанавливается. После открытия запроса RecordCount=-1.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2008, 15:10
    #35593663
Ahil79
Ahil79
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ado доступ к CACHE' из EXEL
Изменил название таблици в запросе на несуществующую, выдает ошибку, "такой таблици несуществует".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.10.2008, 15:13
    #35593668
MX-1S
MX-1S
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ado доступ к CACHE' из EXEL
Ahil79Ошибок невыдает, тоесть соединение устанавливается. После открытия запроса RecordCount=-1.

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

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

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


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