Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Adodc: не выполнена проверка подлинности. / 5 сообщений из 5, страница 1 из 1
11.12.2006, 15:27
    #34190553
nat-z
nat-z
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adodc: не выполнена проверка подлинности.
Для Adodc1 ConnectionString и RecordSource в AdodcProperties не определяю (оставляю все пустым), а указываю в программе при загрузке формы.
В се работает нормально, но при загрузке формы (как и при завершении работы) выскакивает предупреждение "Adodc: не выполнена проверка подлинности.". То же самое выскакивает и при корректировке формы в VB. А что делать? Какой вещью снимается эта проверка?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2006, 13:27
    #34196389
Slice
Slice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adodc: не выполнена проверка подлинности.
Можно взглянуть на ваши присвоения Для Adodc1 ConnectionString и RecordSource в AdodcProperties?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.12.2006, 16:29
    #34197287
nat-z
nat-z
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adodc: не выполнена проверка подлинности.
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
| Ответить | Цитировать | Написать  
14.12.2006, 11:20
    #34199095
Slice
Slice
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adodc: не выполнена проверка подлинности.
Попробывал все сделать как у вас, вот только все параметры описал в свойствах Adodc1. Никаких сообщений не вылезло. Я думаю стоит попробывать
1)часть постоянных свойств описать в Propereties.
2) без использования Adodc это сделать.
3) попробывать с другими файлами-базами
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.12.2006, 14:23
    #34200084
nat-z
nat-z
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adodc: не выполнена проверка подлинности.
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
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Adodc: не выполнена проверка подлинности. / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 509ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164808]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 188ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 240ms
total:  509ms
x
x
Закрыть


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