|
как олределить кол записей возв запросом в adp
|
||
|---|---|---|
Участник
Откуда: http://www.msdatabase.ru , Moscow
Сообщения: 7 569 |
||
| 20.10.2004, 10:42:42 |
|
|
|
|
|
как олределить кол записей возв запросом в adp
|
|||
|---|---|---|---|
|
#18+
??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 10:17:23 |
|
||
|
как олределить кол записей возв запросом в adp
|
|||
|---|---|---|---|
|
#18+
может быть: @@ROWCOUNT Returns the number of rows affected by the last statement. Syntax @@ROWCOUNT Return Types integer Remarks This variable is set to 0 by any statement that does not return rows, such as an IF statement. Examples This example executes UPDATE and uses @@ROWCOUNT to detect if any rows were changed. UPDATE authors SET au_lname = 'Jones' WHERE au_id = '999-888-7777' IF @@ROWCOUNT = 0 print 'Warning: No rows were updated' если данные возвращаются в рекордсет то можно поставить свойство pagesize = 1 и проверить свойство количество страниц - этои будет число записей ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 10:42:42 |
|
||
|
как олределить кол записей возв запросом в adp
|
|||
|---|---|---|---|
|
#18+
написал хп ALTER PROCEDURE dbo.sp_kolzap @idpr int, @kolz int output AS set nocount on SELECT IdPr FROM dbo.pretpost WHERE IdPr = @idpr select @kolz= @@rowcount (по гетцу схожий пример) вызов хп Dim db As ADODB.Connection Dim cmd As ADODB.Command Dim prm As ADODB.Parameter Dim lngrecs As Long Dim kol As Integer Set db = New ADODB.Connection Set db = CurrentProject.Connection Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = "sp_kolzap" cmd.CommandType = adCmdStoredProc Set prm = cmd.CreateParameter("idpr", adInteger, adParamInput, Prid) cmd.Parameters.Append prm Set prm = cmd.CreateParameter("kolz", adInteger, adParamInputOutput) cmd.Parameters.Append prm cmd.Execute RecordsAffected:=lngrecs, Options:=adExecuteNoRecords kol = cmd.Parameters("kolz") в результате выдает только 0 при повторном вызове рвет connection. где может быть ошибка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 16:20:36 |
|
||
|
как олределить кол записей возв запросом в adp
|
|||
|---|---|---|---|
|
#18+
написал хп ALTER PROCEDURE dbo.sp_kolzap @idpr int, @kolz int output AS set nocount on SELECT IdPr FROM dbo.pretpost WHERE IdPr = @idpr select @kolz= @@rowcount (по гетцу схожий пример) вызов хп Dim db As ADODB.Connection Dim cmd As ADODB.Command Dim prm As ADODB.Parameter Dim lngrecs As Long Dim kol As Integer Set db = New ADODB.Connection Set db = CurrentProject.Connection Set cmd = New ADODB.Command Set cmd.ActiveConnection = db cmd.CommandText = "sp_kolzap" cmd.CommandType = adCmdStoredProc Set prm = cmd.CreateParameter("idpr", adInteger, adParamInput, Prid) cmd.Parameters.Append prm Set prm = cmd.CreateParameter("kolz", adInteger, adParamInputOutput) cmd.Parameters.Append prm cmd.Execute RecordsAffected:=lngrecs, Options:=adExecuteNoRecords kol = cmd.Parameters("kolz") в результате выдает только 0 при повторном вызове рвет connection. где может быть ошибка? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 16:22:49 |
|
||
|
как олределить кол записей возв запросом в adp
|
|||
|---|---|---|---|
|
#18+
во-первых, Set db = New ADODB.Connection Set db = CurrentProject.Connection почему 2 раза происходит Set db = ? во-вторых. зачем тебе вот эти опции RecordsAffected:=lngrecs, Options:=adExecuteNoRecords ? убери их я бы сделал так SELECT COUNT(*) FROM dbo.pretpost WHERE IdPr = @idpr а в VBA запустил так msgbox currentproject.Connection.Execute("dbo.sp_kolzap " & Prid)(0) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 20.10.2004, 16:54:53 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=32746803&tid=1670957]: |
0ms |
get settings: |
9ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
67ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 209ms |
| total: | 361ms |
| 0 / 0 |
