ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Adodc: не выполнена проверка подлинности.
5 сообщений из 5, страница 1 из 1
Adodc: не выполнена проверка подлинности.
    #34190553
nat-z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nat-z
Участник
Для Adodc1 ConnectionString и RecordSource в AdodcProperties не определяю (оставляю все пустым), а указываю в программе при загрузке формы.
В се работает нормально, но при загрузке формы (как и при завершении работы) выскакивает предупреждение "Adodc: не выполнена проверка подлинности.". То же самое выскакивает и при корректировке формы в VB. А что делать? Какой вещью снимается эта проверка?
...
Рейтинг: 0 / 0
11.12.2006, 15:27
| Ответить | Цитировать | Написать  
Adodc: не выполнена проверка подлинности.
    #34196389
Slice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slice
Участник
Можно взглянуть на ваши присвоения Для Adodc1 ConnectionString и RecordSource в AdodcProperties?
...
Рейтинг: 0 / 0
13.12.2006, 13:27
| Ответить | Цитировать | Написать  
Adodc: не выполнена проверка подлинности.
    #34197287
nat-z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nat-z
Участник
connectionstring = Provider=Microsoft.Jet.OLEDB.4.0;Mode=ReadWrite|Share Deny None;Persist Security Info=False

а recordSource у меня пустой (стоит только CommandType=8).
а при загрузке формы:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Form_Load()
Dim NegativeStyle As New TrueDBGrid80.Style
Screen.MousePointer = vbHourglass
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
GBmenu.Pth0 + "\" + GBmenu.Xnamestat + _
";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    Select Case GBmenu.Xreg0
   Case  101   ' îáùèé êëàññèôèêàòîð
        Adodc1.RecordSource = "select * from GBklass order by nr,kod"
................................
adodc1.refresh
Все файлы реально открываются и работает все, только вот эти сообщения при звгрузке и в конце
...
Рейтинг: 0 / 0
13.12.2006, 16:29
| Ответить | Цитировать | Написать  
Adodc: не выполнена проверка подлинности.
    #34199095
Slice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Slice
Участник
Попробывал все сделать как у вас, вот только все параметры описал в свойствах Adodc1. Никаких сообщений не вылезло. Я думаю стоит попробывать
1)часть постоянных свойств описать в Propereties.
2) без использования Adodc это сделать.
3) попробывать с другими файлами-базами
...
Рейтинг: 0 / 0
14.12.2006, 11:20
| Ответить | Цитировать | Написать  
Adodc: не выполнена проверка подлинности.
    #34200084
nat-z
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nat-z
Участник
SliceПопробывал все сделать как у вас, вот только все параметры описал в свойствах Adodc1. Никаких сообщений не вылезло. Я думаю стоит попробывать
1)часть постоянных свойств описать в Propereties.
2) без использования Adodc это сделать.
3) попробывать с другими файлами-базами
Только что случайно добилась результата: просто тупо очистила строку connectionstring в свойствах на форме. Все определяю в программе и все теперь идет ОК! Так что может кому пригодится такая информация.

Зато обнаружилаздесь же рядом новый глюк. На этой форме различные файлы открываются для просмотра в TDBGrid1. Т е сделан вызов формы из разных мест программы и при этом открываются разные (по имени и структуре) файлы. Список столбцов, ширина, заголовки определяются в программе при загрузке формы. И вот такой неудобный для работы момент:
a) почему-то не меняется ширина TDBGrid1 (хотя при загрузке указываю разную ширину).
b) При загрузке разных таблиц почему-то по-разному присутствуют или отсутствуют вертикальн и горизонтальн полосы прокрутки в TDBGrid! Причем это не связано с наличием/отсутствием колонок правее правой границы видимого окна TDBGrid или строк ниже нижней границы! И в каждом файле это всегда одинаково (для данного файла) при всех запусках программы!!
Кто может объяснить этот глюк? Показываю загрузку самой формы с TDBGrid:

Код: 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.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
Private Sub Form_Load()
Dim NegativeStyle As New TrueDBGrid80.Style
Screen.MousePointer = vbHourglass
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
GBmenu.Pth0 + "\" + GBmenu.Xnamestat + _
";Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    Select Case GBmenu.Xreg0
   Case  101           Adodc1.RecordSource = "select * from GBklass order by nr,kod"
        'TDBGrid1.Splits(00).c   ._ .Columns.Count = 5
        TDBGrid1.Width =  9800 
        TDBGrid1.Splits( 0 ).Caption = "Îáùèé êëàññèôèêàòîð"
        TDBGrid1.Splits( 0 ).Columns( 0 ).DataField = "NR"
        TDBGrid1.Splits( 0 ).Columns( 1 ).DataField = "KOD"
        TDBGrid1.Splits( 0 ).Columns( 2 ).DataField = "NAIM"
        TDBGrid1.Splits( 0 ).Columns( 3 ).DataField = "KNAIM"
        TDBGrid1.Splits( 0 ).Columns( 4 ).DataField = "NVAL"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Caption = "Ðàçä."
        TDBGrid1.Splits( 0 ).Columns( 1 ).Caption = "Êîä"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Caption = "Íàèìåíîâàíèå ïîêàçàòåëÿ"
        TDBGrid1.Splits( 0 ).Columns( 3 ).Caption = "Êð.íàèìåíîâ."
        TDBGrid1.Splits( 0 ).Columns( 4 ).Caption = "Çíà÷åíèå"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Width =  5000 
        TDBGrid1.Splits( 0 ).Columns( 3 ).Width =  1600 
        TDBGrid1.Splits( 0 ).Columns( 4 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 0 ).NumberFormat = "000"
        TDBGrid1.Splits( 0 ).Columns( 1 ).NumberFormat = "#####0"
        TDBGrid1.Splits( 0 ).Columns( 4 ).NumberFormat = "#####0.##"
        TDBGrid1.Splits( 0 ).Columns( 5 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 6 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 7 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 8 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 9 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 10 ).Visible = False
   Case  102   ' ñòðóêòóðà îðãàíèçàöèè
        Adodc1.RecordSource = "select * from GBkso order by ks1,tabn"
        TDBGrid1.Width =  11000 
        TDBGrid1.Splits( 0 ).Caption = "Ñïèñîê ïîäðàçäåëåíèé è ëèö (ñòðóêòóðà îðãàíèçàöèè)"
        'TDBGrid1.Splits(0).Columns.Count = 3
        TDBGrid1.Splits( 0 ).Columns( 0 ).DataField = "KS1"
        TDBGrid1.Splits( 0 ).Columns( 1 ).DataField = "TABN"
        TDBGrid1.Splits( 0 ).Columns( 2 ).DataField = "NAIM"
        TDBGrid1.Splits( 0 ).Columns( 3 ).DataField = "KNAIM"
        TDBGrid1.Splits( 0 ).Columns( 4 ).DataField = "KOD_PN"
        TDBGrid1.Splits( 0 ).Columns( 5 ).DataField = "KOD_BNK"
        TDBGrid1.Splits( 0 ).Columns( 6 ).DataField = "KART"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Caption = "Ïîäð."
        TDBGrid1.Splits( 0 ).Columns( 1 ).Caption = "Òàá.¹"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Caption = "Íàèìåíîâ.ïîäðàçäåëåíèÿ èëè ÔÈÎ ðàáîòíèêà"
        TDBGrid1.Splits( 0 ).Columns( 3 ).Caption = "Êð.íàèìåíîâ."
        TDBGrid1.Splits( 0 ).Columns( 4 ).Caption = "Íàëîã.êîä"
        TDBGrid1.Splits( 0 ).Columns( 5 ).Caption = "Áàíê"
        TDBGrid1.Splits( 0 ).Columns( 6 ).Caption = "¹ êàðòî÷êè"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Width =  4800 
        TDBGrid1.Splits( 0 ).Columns( 3 ).Width =  1400 
        TDBGrid1.Splits( 0 ).Columns( 4 ).Width =  1400 
        TDBGrid1.Splits( 0 ).Columns( 5 ).Width =  500 
        TDBGrid1.Splits( 0 ).Columns( 6 ).Width =  1400 
        TDBGrid1.Splits( 0 ).Columns( 0 ).NumberFormat = "000"
        TDBGrid1.Splits( 0 ).Columns( 1 ).NumberFormat = "#####0"
        TDBGrid1.Splits( 0 ).Columns( 4 ).NumberFormat = "0000000000"
        TDBGrid1.Splits( 0 ).Columns( 5 ).NumberFormat = "##0"
        TDBGrid1.Splits( 0 ).Columns( 6 ).NumberFormat = "###########0"
        TDBGrid1.Splits( 0 ).Columns( 7 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 8 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 9 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 10 ).Visible = False
   Case  103 
   Adodc1.RecordSource = "select * from GBst order by st0"
        TDBGrid1.Splits( 0 ).Caption = "Ïëàí ñ÷åòîâ"
        'TDBGrid1.Splits(0).Columns.Count = 3
        TDBGrid1.Splits( 0 ).Columns( 0 ).DataField = "ST0"
        TDBGrid1.Splits( 0 ).Columns( 1 ).DataField = "NAIM"
        TDBGrid1.Splits( 0 ).Columns( 2 ).DataField = "D_0"
        TDBGrid1.Splits( 0 ).Columns( 3 ).DataField = "K_0"
        TDBGrid1.Splits( 0 ).Columns( 4 ).DataField = "D_OB"
        TDBGrid1.Splits( 0 ).Columns( 5 ).DataField = "K_OB"
        TDBGrid1.Splits( 0 ).Columns( 6 ).DataField = "D_1"
        TDBGrid1.Splits( 0 ).Columns( 7 ).DataField = "K_1"
        TDBGrid1.Splits( 0 ).Columns( 8 ).DataField = "PRIZ"
        TDBGrid1.Splits( 0 ).Columns( 9 ).DataField = "L_01"
        TDBGrid1.Splits( 0 ).Columns( 10 ).DataField = "L_02"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Caption = "Ñ÷åò"
        TDBGrid1.Splits( 0 ).Columns( 1 ).Caption = "Íàèìåíîâàíèå"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Caption = "Íà÷.îñò, Äá"
        TDBGrid1.Splits( 0 ).Columns( 3 ).Caption = "Íà÷.îñò, Êð"
        TDBGrid1.Splits( 0 ).Columns( 4 ).Caption = "Îá. ïî Äá"
        TDBGrid1.Splits( 0 ).Columns( 5 ).Caption = "Îá. ïî Êð"
        TDBGrid1.Splits( 0 ).Columns( 6 ).Caption = "Êîí.îñò, Äá"
        TDBGrid1.Splits( 0 ).Columns( 7 ).Caption = "Êîí.îñò, Êð"
        TDBGrid1.Splits( 0 ).Columns( 8 ).Caption = "Ñâåðí."
        TDBGrid1.Splits( 0 ).Columns( 9 ).Caption = "Çáë"
        TDBGrid1.Splits( 0 ).Columns( 10 ).Caption = "Îá'åä"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Width =  700 
        TDBGrid1.Splits( 0 ).Columns( 1 ).Width =  4500 
        TDBGrid1.Splits( 0 ).Columns( 2 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 3 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 4 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 5 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 6 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 7 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 8 ).Width =  600 
        TDBGrid1.Splits( 0 ).Columns( 9 ).Width =  600 
        TDBGrid1.Splits( 0 ).Columns( 10 ).Width =  600 
        TDBGrid1.Splits( 0 ).Columns( 2 ).NumberFormat = "########0.00"
        TDBGrid1.Splits( 0 ).Columns( 3 ).NumberFormat = "########0.00"
        TDBGrid1.Splits( 0 ).Columns( 4 ).NumberFormat = "########0.00"
        TDBGrid1.Splits( 0 ).Columns( 5 ).NumberFormat = "########0.00"
        TDBGrid1.Splits( 0 ).Columns( 6 ).NumberFormat = "########0.00"
        TDBGrid1.Splits( 0 ).Columns( 7 ).NumberFormat = "########0.00"
   Case  104 
        Adodc1.RecordSource = "select * from GBshf order by shf"
        TDBGrid1.Splits( 0 ).Caption = "Ñïðàâî÷íèê øèôðîâ çàòðàò"
        TDBGrid1.Splits( 0 ).Columns( 0 ).DataField = "SHF"
        TDBGrid1.Splits( 0 ).Columns( 1 ).DataField = "NAIM"
        TDBGrid1.Splits( 0 ).Columns( 2 ).DataField = "KNAIM"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Caption = "Øèôð"
        TDBGrid1.Splits( 0 ).Columns( 1 ).Caption = "Ðàñøèôðîâêà øèôðà çàòðàò"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Caption = "Êðàòêîå íàèìåíîâàíèå"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Width =  1200 
        TDBGrid1.Splits( 0 ).Columns( 1 ).Width =  6200 
        TDBGrid1.Splits( 0 ).Columns( 2 ).Width =  2400 
        TDBGrid1.Splits( 0 ).Columns( 3 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 4 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 5 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 6 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 7 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 8 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 9 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 10 ).Visible = False
     Case  105 
        Adodc1.RecordSource = "select * from RBps order by gkag,kkag"
        TDBGrid1.Splits( 0 ).Caption = "Ñïðàâî÷íèê êîíòðàãåíòîâ (ïîñòàâùèêîâ è ïîêóïàòåëåé)"
        TDBGrid1.Splits( 0 ).Columns( 0 ).DataField = "GKAG"
        TDBGrid1.Splits( 0 ).Columns( 1 ).DataField = "KKAG"
        TDBGrid1.Splits( 0 ).Columns( 2 ).DataField = "NAIM"
        TDBGrid1.Splits( 0 ).Columns( 3 ).DataField = "KNAIM"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Caption = "Ãð."
        TDBGrid1.Splits( 0 ).Columns( 1 ).Caption = "Êîä"
        TDBGrid1.Splits( 0 ).Columns( 2 ).Caption = "Íàèìåíîâàíèå"
        TDBGrid1.Splits( 0 ).Columns( 3 ).Caption = "Êð.íàèìåíîâàíèå"
        TDBGrid1.Splits( 0 ).Columns( 0 ).Width =  500 
        TDBGrid1.Splits( 0 ).Columns( 1 ).Width =  800 
        TDBGrid1.Splits( 0 ).Columns( 2 ).Width =  4400 
        TDBGrid1.Splits( 0 ).Columns( 3 ).Width =  2000 
        TDBGrid1.Splits( 0 ).Columns( 0 ).NumberFormat = "##0"
        TDBGrid1.Splits( 0 ).Columns( 1 ).NumberFormat = "#####0"
        TDBGrid1.Splits( 0 ).Columns( 3 ).Visible = True
        TDBGrid1.Splits( 0 ).Columns( 4 ).Visible = True
        TDBGrid1.Splits( 0 ).Columns( 5 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 6 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 7 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 8 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 9 ).Visible = False
        TDBGrid1.Splits( 0 ).Columns( 10 ).Visible = False
End Select
Adodc1.Refresh
    Dim S As New TrueDBGrid80.Style
    S.Font.Bold = True
    S.Font.Name = "Tahoma"
    TDBGrid1.EvenRowStyle.BackColor = &H80FFFF
    TDBGrid1.OddRowStyle.BackColor = &HC0FFFF
    TDBGrid1.HighlightRowStyle.BackColor = &H400000
    TDBGrid1.HighlightRowStyle.ForeColor = vbWhite
    TDBGrid1.AlternatingRowStyle = True
    TDBGrid1.CellTips =  2  'Floating
    Screen.MousePointer = vbNormal
  End Sub
...
Рейтинг: 0 / 0
14.12.2006, 14:23
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Adodc: не выполнена проверка подлинности.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=34197287&tid=2164808]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 152ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 244ms
total:  490ms
созд. / загр.: 490ms
x
x
Закрыть


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