Все технические форумы на одном сайте Удобный поиск информации с популярных форумов в одном месте
Вопрос: Значение глобальной переменной пропадает

При входе в БД глобальной переменной присваиваю логин пользователя. В процессе работы аксик его теряет кода на его очистку нет. Я один такой счастливчик?
Ответ: В макросе на изменение поля таблицы добавляется запись с логированием изменений. Задать поле стоит ссылка на скрытую форму [Формы]![Вход]![П_Обозначение] (раньше было имя глобальной переменной). В результате макрос не срабатывает.
Вопрос: доступ к глобальной переменной ХП

Доброго дня!

Informix 12.10

Есть ли какай нибудь способ получить значение глобальной переменной объявленной и проинициализированной в ХП на SPL так , что бы не писать для этого специальную ХП ?
Ответ: Выбегалло, это по теме или для общего развития?
Всё-таки отладка и тестирование совсем не одно и то же. Или предлагаете посмотреть, что умеет дебаггер - и забацать нужные фичи самому?
Вопрос: сохранить значение в переменной и обратиться к ней

Как сохранить значение в переменной и обратиться к ней?
Например SELECT @min_price:=1;
Как в дальнейшем обратиться к переменной min_price и получить ее значение, в данном случае 1?
У меня получается SELECT @min_price :=1, =1, а в дальнейшем, при запросе - SELECT @min_price = NULL.
Можно ли переменную min_price сделать глобальной, инициализировать при старте сервера и присвоить ей значение при старте сервера?
Ответ: petrovitch,

Нет, пользовательские переменные в MySQL только сессионные.
Для хранения глобальных значений используйте таблицы.
Вопрос: Составление имени переменной из значений других переменных

Здравствуйте!
Подскажите как составить имя переменной из значений других переменных.
Например есть переменная S:
Dim S
S = "SELECT ... "
Но нужно, чтобы таких переменных было неопределённое количество. Например, S1, S2, S3 и т. п.
И потом нужно обращаться к таким переменным, чтобы считывать из них данные.
Возможно ли это?
Ответ:
Сообщение от GafarovIS
нужно, чтобы таких переменных было неопределённое количество. Например, S1, S2, S3 и т. п.
И потом нужно обращаться к таким переменным, чтобы считывать из них данные.
Массив используйте.
Размерность массива может изменяться с помощью ReDim.
Пример:
Visual Basic
1
2
3
4
5
6
7
8
9
Option Base 1
 
Dim S(3) As String
S(1) = "AAAA"
S(2) = "BBBB"
S(3) = "CCCC"
Redim S(5)
S(4) = "DDDD"
S(5) = "EEEE"
Вопрос: Ошибка: попытка присвоить значение Null переменной, не принадлежащей к типу Variant

Всем привет, такое задание: есть главная форма, через которую находишь базу данных. В этой же форме пишешь SQL код для запроса, и должен появиться какой-то результат. Например: ввожу "SELECT * FROM Gramatas;" нажимаю кнопку "выполнить SQL" и должен получить все значения таблицы Gramatas. Но выдаёт ошибку: попытка присвоить значение Null переменной, не принадлежащей к типу Variant. Для некоторых таблиц работает, для некоторых - нет. Вот код Visual Basic, но в нём не разбираюсь, поэтому не знаю, что исправить надо и как:
Кликните здесь для просмотра всего текста
Код Visual Basic
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
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
Option Compare Database
 
Private Sub Browse_Click()
    Dim sk As FileDialog
    Set sk = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With sk
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                Me.Cels_uz_avotu.Value = vrtSelectedItem & ";"
                If Right(vrtSelectedItem, 5) = ".xlsx" Then
                Me.Papildus_ipasibas.Value = "Extended Properties = Excel 8.0;"
                Else: Me.Papildus_ipasibas.Value = ""
                End If
        Next vrtSelectedItem
            IzpilditSQL.Enabled = True
            Metadati.Enabled = True
            Tabulas.Visible = False
            Lauki.Visible = False
    Else
    End If
 End With
 Set sk = Nothing
End Sub
 
 
Private Sub IzpilditSQL_Click()
 Call Rezultatu_tab( _
          Forms("Form1").Controls("Datu_gadnieks").Value, _
          Forms("Form1").Controls("Cels_uz_avotu").Value, _
          Forms("Form1").Controls("Papildus_ipasibas").Value & " ", _
          Forms("Form1").Controls("SQL_vaicajums").Value)
End Sub
Public Sub Rezultatu_tab(a As String, b As String, c As String, d As String)
 
   Dim savienojums_a As ADODB.Connection
   Set savienojums_a = New ADODB.Connection
   Dim komanda_a As ADODB.Command
   Set komanda_a = New ADODB.Command
   Dim rakstu_kopa_a As ADODB.Recordset
   Dim teksta_rinda_sav As String
   Dim teksta_rinda_SQL As String
 
   
   teksta_rinda_sav = "Provider = " & a & "Data Source =" & b & c
   savienojums_a.ConnectionString = teksta_rinda_sav
   savienojums_a.Open
   teksta_rinda_SQL = d
   Set komanda_a.ActiveConnection = savienojums_a
   komanda_a.CommandText = teksta_rinda_SQL
   Set rakstu_kopa_a = komanda_a.Execute(Options:=adCmdText)
 
  
   Dim savienojums_j As ADODB.Connection
   Set savienojums_j = New ADODB.Connection
   Dim katalogs As ADOX.Catalog
   Set katalogs = New ADOX.Catalog
 
 
   Set savienojums_j = CurrentProject.Connection
   Set katalogs.ActiveConnection = savienojums_j
 
   
   Dim tabula_j As ADOX.Table
   Dim kolona_j As ADOX.Column
  Dim tabula As ADOX.Table
 
  Dim mm As Integer
  Dim i As Integer
  mm = 0
  i = 0
 
For Each tabula In katalogs.Tables
      If katalogs.Tables.Item(i).Name = "Rezultati" Then
         mm = 1
      End If
      i = i + 1
  Next tabula
  If mm = 1 Then
    
     MsgBox Prompt:="Tabula Rezultati jau eksiste!"
     Exit Sub
End If
 
  
  Set tabula_j = New ADOX.Table
  tabula_j.Name = "Rezultati"
  katalogs.Tables.Append tabula_j
 
 
  Dim lauks_a As ADODB.Field
  For Each lauks_a In rakstu_kopa_a.Fields
      Set kolona_j = New ADOX.Column
      With kolona_j
        .Name = lauks_a.Name
        .Type = lauks_a.Type
      End With
      katalogs.Tables("Rezultati").Columns.Append kolona_j
  Next
  
 
Dim rakstu_kopa_j As New ADODB.Recordset
  rakstu_kopa_j.Open "Rezultati", savienojums_j, adOpenKeyset, _
                     adLockOptimistic
 
 
  Dim j As Integer
  Dim lauks_j As ADODB.Field
 
  
Do Until rakstu_kopa_a.EOF
    rakstu_kopa_j.AddNew
    j = 0
    For Each lauks_a In rakstu_kopa_a.Fields
      rakstu_kopa_j.Fields.Item(j) = lauks_a.Value
      j = j + 1
    Next
    rakstu_kopa_j.Update
    rakstu_kopa_a.MoveNext
  Loop
  
 
  Call Veidot_formu(rakstu_kopa_a)
 
 
Set savienojums_a = Nothing
Set savienojums_j = Nothing
End Sub
 
Public Sub Veidot_formu(rakstu_kopa As ADODB.Recordset)
    Dim mana_forma As Form
    Dim ctlLabel, ctlText, ctlButton1, ctlButton2, ctlButton3 As Control
    Dim intDataX, intDataY As Integer
    Dim intLabelX, intLabelY As Integer
    Dim i, f As Integer
    Dim lauks As ADODB.Field
    
 
    For f = 0 To CurrentProject.AllForms.Count - 1
      If CurrentProject.AllForms.Item(f).Name = "Rezultati" Then
        DoCmd.DeleteObject acForm, "Rezultati"
        Exit For
      End If
    Next f
    
 
    Set mana_forma = CreateForm
    mana_forma.RecordSource = "Rezultati"
    
 
    i = 0
    intLabelX = 100
    intLabelY = 100
    intDataX = 2000
    intDataY = 100
    
 
    For Each lauks In rakstu_kopa.Fields
    Set ctlText = CreateControl(mana_forma.Name, acTextBox, , "", lauks.Name, _
        intDataX, intDataY + i)
    Set ctlLabel = CreateControl(mana_forma.Name, acLabel, , _
         ctlText.Name, lauks.Name & ":", intLabelX, intLabelY + i)
    i = i + 500
    Next
 
 
   Set ctlButton1 = CreateControl(mana_forma.Name, acCommandButton, , , "", _
        4150, 1200, 1400, 460)
        ctlButton1.Caption = "Nakamais"
        ctlButton1.Name = "Next"
        ctlButton1.FontSize = 10
        ctlButton1.FontBold = True
        ctlButton1.OnClick = "Next"
        
 
        Set ctlButton2 = CreateControl(mana_forma.Name, acCommandButton, , , "", _
        4150, 2000, 1400, 460)
        ctlButton2.Caption = "Ieprieksejais"
        ctlButton2.Name = "Previous"
        ctlButton2.FontSize = 10
        ctlButton2.FontBold = True
        ctlButton2.OnClick = "Previous"
        
        
        Set ctlButton3 = CreateControl(mana_forma.Name, acCommandButton, , , "", _
        4150, 2700, 1400, 460)
        ctlButton3.Caption = "Iziet"
        ctlButton3.Name = "Close"
        ctlButton3.FontSize = 10
        ctlButton3.FontBold = True
        ctlButton3.OnClick = "Close"
        
 
    mana_forma.RecordSelectors = False
    mana_forma.NavigationButtons = False
    mana_forma.DividingLines = False
    mana_forma.AllowDeletions = False
    mana_forma.AllowAdditions = False
    
 
    DoCmd.Save acForm, "form1"
    DoCmd.Close acForm, "form1"
    
 
    DoCmd.Rename "Rezultati", acForm, "form1"
    
 
    DoCmd.OpenForm "Rezultati", acNormal
    
End Sub
 
Private Sub Metadati_Click()
 
 
 
  Tabulas.Visible = True
  Lauki.Visible = True
   
 
Dim a, b, c As String
    a = Forms("Form1").Controls("Datu_gadnieks").Value
    b = Forms("Form1").Controls("Cels_uz_avotu").Value
    c = Forms("Form1").Controls("Papildus_ipasibas").Value
  
 
 Dim savienojums_a As ADODB.Connection
 Set savienojums_a = New ADODB.Connection
 Dim teksta_sav As String
 teksta_sav = "Provider = " & a & "Data Source =" & b & c
 
 savienojums_a.ConnectionString = teksta_sav
 savienojums_a.Open
    
 
 Dim katalogs As ADOX.Catalog
 Set katalogs = New ADOX.Catalog
 Set katalogs.ActiveConnection = savienojums_a
 Dim tabula As ADOX.Table
 Dim i As Integer
  
 If Me.Tabulas.ListCount > 0 Then
    Do Until Me.Tabulas.ListCount = 0
    Me.Tabulas.RemoveItem i
 Loop
 End If
 
 If Me.Lauki.ListCount > 0 Then
     Do Until Me.Lauki.ListCount = 0
     Me.Lauki.RemoveItem i
 Loop
 End If
 
 
For i = 0 To katalogs.Tables.Count - 1
 If katalogs.Tables.Item(i).Type = "TABLE" Then
      Forms("Form1").Controls("Tabulas").AddItem Item:=katalogs.Tables.Item(i).Name
End If
 Next i
 
 
Set savienojums_a = Nothing
 
End Sub
 
 
Private Sub Tabulas_Change()
 
 
 Dim a, b, c As String
    a = Forms("Form1").Controls("Datu_gadnieks").Value
    b = Forms("Form1").Controls("Cels_uz_avotu").Value
    c = Forms("Form1").Controls("Papildus_ipasibas").Value & ""
 
 
  Dim savienojums_a As ADODB.Connection
  Set savienojums_a = New ADODB.Connection
  Dim teksta_rinda_sav As String
  teksta_rinda_sav = "Provider = " & a & "Data Source =" & b & c
 
  savienojums_a.ConnectionString = teksta_rinda_sav
  savienojums_a.Open
  
 
  Dim katalogs As ADOX.Catalog
  Set katalogs = New ADOX.Catalog
  Set katalogs.ActiveConnection = savienojums_a
  Dim tabula As ADOX.Table
  Dim i As Integer
  Dim j As Integer
  
  If Me.Lauki.ListCount > 0 Then
    Do Until Me.Lauki.ListCount = 0
    Me.Lauki.RemoveItem i
  Loop
  End If
  
  Dim TabName As String
  TabName = Me.Tabulas.Value
  
 
  For j = 0 To katalogs.Tables(TabName).Columns.Count - 1
      Forms("Form1").Controls("Lauki").AddItem katalogs.Tables(TabName).Columns(j).Name
  Next j
 
 
  Set savienojums_a = Nothing
 
  End Sub

После нажатия debug выделяется следующая строка:
Код Visual Basic
1
rakstu_kopa_j.Fields.Item(j) = lauks_a.Value
Ответ: может некое поле обязательно к заполнению или какое то иное условие на значение
такое слепое (из массива ) заполнение часто не работает
Вопрос: Введение глобальной переменной

Здравствуйте подскажите пожалуйста возможно ли штатными средствами Postgresql реализовать глобальную переменную. Задача поставить в начеле запроса переменную которая будет играть роль даты которая встречается в процесе инициализации запроса. Сurentday не подходит. Спасибо
ПС. Так же интересует можно ли как то копировать название столбца.
Ответ:
lux777
извините, там from забыл


и так хорошо (ц)

анонимный блок?
Вопрос: Сохраняется ли значение глобального контекста при перезагрузке сервера?

Привет.
Вопрос - Сохраняется ли при перезагрузке сервера значение глобального контекста
create context my_ctx using my_pkg accessed globally;
?
Или нужно обеспечить самому инициализацию глобального контекста при запуске?
Спасибо.
Ответ: EvgeniaMakarova,

Спасибо большое
Вопрос: задание двух или более значений одной переменной в хранимке

есть хранимка. exec xran1 d1= (пусть будет с одной переменной). Создает строки условно говоря. Оператор In нельзя использовать для задания значений этой переменной? Очень нужно, чтобы обработал несколько значений (как будто используется оператор In). Возможно ли это сделать?
Ответ: Владислав Колосов,
Понятно, спасибо!
Вопрос: Ошибка: "Попытка присвоить значение Null переменной, не принадлежащей к типу Variant"

Добрый день.
Вкратце: на форме среди прочих полей есть три поля со списком. Установлены нужные мне свойства Ограничиться списком и Автоподстановка. Источник строк берется из таблицы, а данные сохраняются в виде ID строки.
Так вот, когда я выбрал в списке значение и перевел фокус на другое поле - все нормально, но когда я удаляю (очищаю поле) после выбора, то при попытке перевода фокуса на другое поле выскакивает ошибка "Попытка присвоить значение Null переменной, не принадлежащей к типу Variant". Я понимаю, программа ругается на присваивание пустой строки (Null) ячейке в таблице, куда должно быть записано число (ID). Если нажать Esc, то ошибки нет.
Ответ:
Сообщение от texnik-san
дальше ваш теперешний код, на мой взгляд бессмысленный напрочь - я бы удалила
Я сам понимаю что бессмыслица, но по другому не получается. Если без этой строчки занести только данные в 3 поля со списком и сохранить, то в таблице Дополнительно не будет создана новая запись и ничего не будет привязано к основной таблице Помещения. Вот вышел из положения таким варварским способом.

А за ответ спасибо, то что нужно)
Вопрос: Передача значения в переменную из динамического запроса

Добрый день,

Я пытаюсь передать значение в переменную из динамического sql:

DECLARE @MinBoundary DateTime, @s nvarchar(max)
declare @DBName sysname, @TableName sysname
select @DBName = 'MyDB', @TableName = 'MyTable'
	select @s = '
SELECT Convert(DateTime, MIN(PRV.value))
FROM sys.partition_functions AS PF
JOIN sys.partition_parameters AS PP 
	ON PF.function_id = PP.function_id
JOIN sys.types AS T1 
	ON T1.system_type_id = PP.system_type_id
JOIN sys.types AS T2 
	ON T2.user_type_id= PP.user_type_id
JOIN sys.partition_range_values AS PRV 
	ON PP.function_id = PRV.function_id 
   AND PP.parameter_id = PRV.parameter_id
WHERE PF.name IN (''WBC_' + @TableName + '_pf'')'

print @s 

EXECUTE sp_executesql @s, N'@MB DateTime OUTPUT', @MB=@MinBoundary OUTPUT	
PRINT @MinBoundary


На выходе @Minboundary оказывается NULL

Все работатет, если я распечатываю @s запрос и запускаю его следующим образом (это значит что сам запрос правильный):

DECLARE @MinBoundary DateTime
SELECT @MinBoundary = Convert(DateTime, MIN(PRV.value))
FROM sys.partition_functions AS PF
JOIN sys.partition_parameters AS PP 
ON PF.function_id = PP.function_id
JOIN sys.types AS T1 
ON T1.system_type_id = PP.system_type_id
JOIN sys.types AS T2 
ON T2.user_type_id= PP.user_type_id
JOIN sys.partition_range_values AS PRV 
ON PP.function_id = PRV.function_id 
   AND PP.parameter_id = PRV.parameter_id
WHERE PF.name IN ('WBC_MyTable_pf')
select @MinBoundary


Не понимаю, почему лыжи не едут.

Спасибо.
Ответ:
o-o
DECLARE @MinBoundary DateTime, @s nvarchar(max)
declare @DBName sysname, @TableName sysname
select @DBName = 'MyDB', @TableName = 'MyTable'
	select @s = '
SELECT @MB=Convert(DateTime, MIN(PRV.value))
FROM sys.partition_functions AS PF
JOIN sys.partition_parameters AS PP 
	ON PF.function_id = PP.function_id
JOIN sys.types AS T1 
	ON T1.system_type_id = PP.system_type_id
JOIN sys.types AS T2 
	ON T2.user_type_id= PP.user_type_id
JOIN sys.partition_range_values AS PRV 
	ON PP.function_id = PRV.function_id 
   AND PP.parameter_id = PRV.parameter_id
WHERE PF.name IN (''WBC_' + @TableName + '_pf'')'

print @s 

EXECUTE sp_executesql @s, N'@MB DateTime OUTPUT', @MB=@MinBoundary OUTPUT	
PRINT @MinBoundary


Спасибо.