powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB+Access parameterized query
3 сообщений из 3, страница 1 из 1
VB+Access parameterized query
    #32388943
qweas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
V obshem probleam sv sledueshem
kaim brzom mozhno programnim putem sdelatj parametrizirovannij zapros k
Access 2000


Dim rsPosition As ADODB.Recordset
Set rsPosition = New ADODB.Recordset
Dim strSQL As String
Dim prm As ADODB.Parameter
Dim cmdPosition As ADODB.Command
Set cmdPosition = New ADODB.Command
rsPosition.LockType = adLockOptimistic
rsPosition.CursorType = adOpenDynamic
rsPosition.CursorLocation = adUseServer
cmdPosition.ActiveConnection = Module1.conAis
cmdPosition.CommandType = adCmdText
Set prm = cmdPosition.CreateParameter("pos_descr", adChar, adParamInput, 50)
cmdPosition.Parameters.Append prm
prm.Value = DataCombo1.Text
strSQL = "select base_salary from position where position_description=pos_descr"
cmdPosition.CommandText = strSQL
Set rsPosition = cmdPosition.Execute


v rezultate oshibka Too few parametrs expected one ?

V cehm mozhet bitj delo ?
...
Рейтинг: 0 / 0
VB+Access parameterized query
    #32389015
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не мучай жопу. Пиши rsPosition.Open "select base_salary from position where position_description=" & x, Module1.conAis, adOpenDynamic, adLockOptimistic
...
Рейтинг: 0 / 0
VB+Access parameterized query
    #32389025
boevik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ты запускаешь SQL Statment. А command надо использовать при запуске stored procedures
Код можно изменить примерно так,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim rsPosition As ADODB.Recordset 
Set rsPosition = New ADODB.Recordset 
Dim strSQL As String 
rsPosition.LockType = adLockOptimistic 
rsPosition.CursorType = adOpenDynamic 
rsPosition.CursorLocation = adUseServer 
rsPosition.ActiveConnection = Module1.conAis 
strSQL =  "select base_salary from position where position_description="  & DataCombo1.Text 
rsPosition.Open strSQL 
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VB+Access parameterized query
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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