SQl no graba registros de un aplicacion Visual Basic con grilla sp

Jose Luis,

1 - Has debugueado el sp con esos mismos parametros de entrada?
2 - Como sabe tu aplicacion que el sp tuvo exito o fallo, si la aplicacion
no hace ningun uso del valor de retorno del sp?
3 - Quizas si posteas el codigo del sp, pudieramos darte alguna

AMB

"Jose Luis" wrote:

> Tenemos un programa que se esta desarrollando con visual Basic 6.0 con

> de datos SQL Server 2000 y nuestro principal problema radica en la

> de información que se realiza en una de las opciones del programa, en

> opción se digita información en una grilla Spread Designer 3.0.32 –

> cuando se realiza la digitación se gatilla la llamada a un store

> cual se encarga de grabar la información realizando un update contra la
> tabla, produciéndose lo siguiente, en algunas ocasiones se digitan n
> registros y los graba, pero en algàºn momento de forma aleatoria deja de
> grabar, es decir de una digitaron por ejemplo de 1000 registros solo graba

> mitad, creyendo por supuesto que los 1000 registros se han grabado, pero
> cuando se realiza un chequeo de la información esta no esta completa.
>
> Hemos probado con muchas alternativas ya que este problema se presenta
> siempre, es decir un dà­a graba una determinada cantidad de registro y en

> momento otra cantidad, es decir aleatoriamento graba y otras no.
> Pensamos que podà­a ser la aplicación, por lo mismo cambiamos en varias
> ocasiones el código que lleva los datos al store procedure, por ejemplo

> ultimo que se creo fue un objeto comand.
>
> Dim Comando As ADODB.Command
> Set Comando = New ADODB.Command
> Comando.ActiveConnection = DB
>
> Comando.CommandType = adCmdStoredProc
> Comando.CommandText = "Sp_GrabaGrillaResultado"
> Comando.Parameters.Append Comando.CreateParameter("NroProyecto",
> adBigInt, adParamInput)
> Comando.Parameters.Append Comando.CreateParameter("Fono",

> adParamInput)
> Comando.Parameters.Append Comando.CreateParameter("CodResultado",
> adBigInt, adParamInput)
> Comando.Parameters.Append Comando.CreateParameter("Cod_C",
> adVarChar, adParamInput, 2)
> Comando.Parameters.Append Comando.CreateParameter("Cod_D",
> adVarChar, adParamInput, 2)
> Comando.Parameters.Append Comando.CreateParameter("Fecha_Mov",
> adDate, adParamInput, 2)
>
> Comando("NroProyecto").Value = lProyecto
> Comando("Fono").Value = CLng(fono)
> Comando("CodResultado").Value = CodResultado
> Comando("Cod_C").Value = Trim(COD_C)
> Comando("Cod_D").Value = Trim(COD_D)
> Comando("Fecha_Mov").Value = hoy
> Comando.Execute
> Set Comando = Nothing
>
> Vemos en el Profiler lo que sucede con la información que pasamos por el
> store procedure y dà¡ndonos cuenta que al parecer los datos està¡n siendo
> grabados, pero lamentablemente no es asà­, al store procedure se le agrego

> siguiente código, antes de hacer el update
> Set Implicit_Transaction Off
>
> Con la idea que no se limitara el numero de transacciones posibles, pero
> lamentablemente no funciono, ademà¡s se instalo el cliente de SQL Server
> actualizando también el Mdac.
> Hay que seà±alar que cuando nos damos cuenta que la información se grabo
> hasta cierto punto y seguimos digitando no recibimos ningàºn mensaje de

> del servidor, que nos indique que algo esta sucediendo con esos registros

> de alguna manera no se està¡n grabando
>
> SERA ALGUNA CONFIGURACION DEL DRIVER DE CONEXION O SETEOS EN SQL SERVER
> (buffer, temporales, restricciones,etc)
>

Eleazar wrote:
Estimado te adjunto el codigo del Store Procedure, para que me ayudes

SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

ALTER procedure Sp_GrabaGrillaResultado(
@PAR_Proyecto as numeric,
@PAR_Telefono as numeric,
@PAR_Cod_Resultado as numeric,
@PAR_Cod_C as varchar(2),
@PAR_Cod_D as varchar(2),
@PAR_Fecha_Mov as datetime)
as

SET IMPLICIT_TRANSACTIONS OFF

Update Selecciones
Set Cod_Resultado =@PAR_Cod_Resultado,
Cod_C = @PAR_Cod_C,
Cod_D = @PAR_Cod_D,
fecha_mov = @PAR_Fecha_Mov
Where Nro_Proyecto = @PAR_Proyecto
And NFon = @PAR_Telefono

GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO



> Hola quiza la recomendacion que hare ya la hiciste pero por si acaso.
> sugiero que 'debuges' desde VB para obtener los valores de los

> del stored procedure y lo ejecutes en el QA y asi analizar que es lo que
> esta afectando ejemplo:

> Begin Tran
> Exec Sp_GrabaGrillaResultado 1,'Fono',1,,1,'20050715'
> Select *
> From TablaGrilla
> Where CampoFecha >= '20050715'
> Rollback
> "Jose Luis" escribió en el mensaje
> news:
> > Tenemos un programa que se esta desarrollando con visual Basic 6.0 con
> base
> > de datos SQL Server 2000 y nuestro principal problema radica en la
> digitación
> > de información que se realiza en una de las opciones del programa, en

> > opción se digita información en una grilla Spread Designer 3.0.32 -

> bit,
> > cuando se realiza la digitación se gatilla la llamada a un store

> el
> > cual se encarga de grabar la información realizando un update contra

> > tabla, produciéndose lo siguiente, en algunas ocasiones se digitan n
> > registros y los graba, pero en algún momento de forma aleatoria deja

> > grabar, es decir de una digitaron por ejemplo de 1000 registros solo

> la
> > mitad, creyendo por supuesto que los 1000 registros se han grabado,

> > cuando se realiza un chequeo de la información esta no esta completa.
> >
> > Hemos probado con muchas alternativas ya que este problema se presenta
> > siempre, es decir un día graba una determinada cantidad de registro y

> otro
> > momento otra cantidad, es decir aleatoriamento graba y otras no.
> > Pensamos que podía ser la aplicación, por lo mismo cambiamos en varias
> > ocasiones el código que lleva los datos al store procedure, por

> > ultimo que se creo fue un objeto comand.
> >
> > Dim Comando As ADODB.Command
> > Set Comando = New ADODB.Command
> > Comando.ActiveConnection = DB
> >
> > Comando.CommandType = adCmdStoredProc
> > Comando.CommandText = "Sp_GrabaGrillaResultado"
> > Comando.Parameters.Append

> > adBigInt, adParamInput)
> > Comando.Parameters.Append Comando.CreateParameter("Fono",
> adBigInt,
> > adParamInput)
> > Comando.Parameters.Append

> > adBigInt, adParamInput)
> > Comando.Parameters.Append Comando.CreateParameter("Cod_C",
> > adVarChar, adParamInput, 2)
> > Comando.Parameters.Append Comando.CreateParameter("Cod_D",
> > adVarChar, adParamInput, 2)
> > Comando.Parameters.Append Comando.CreateParameter("Fecha_Mov",
> > adDate, adParamInput, 2)
> >
> > Comando("NroProyecto").Value = lProyecto
> > Comando("Fono").Value = CLng(fono)
> > Comando("CodResultado").Value = CodResultado
> > Comando("Cod_C").Value = Trim(COD_C)
> > Comando("Cod_D").Value = Trim(COD_D)
> > Comando("Fecha_Mov").Value = hoy
> > Comando.Execute
> > Set Comando = Nothing
> >
> > Vemos en el Profiler lo que sucede con la información que pasamos por

> > store procedure y dándonos cuenta que al parecer los datos están

> > grabados, pero lamentablemente no es así, al store procedure se le

> el
> > siguiente código, antes de hacer el update
> > Set Implicit_Transaction Off
> >
> > Con la idea que no se limitara el numero de transacciones posibles,

> > lamentablemente no funciono, además se instalo el cliente de SQL

> > actualizando también el Mdac.
> > Hay que señalar que cuando nos damos cuenta que la información se

> > hasta cierto punto y seguimos digitando no recibimos ningún mensaje de
> parte
> > del servidor, que nos indique que algo esta sucediendo con esos

> que
> > de alguna manera no se están grabando
> >
> > SERA ALGUNA CONFIGURACION DEL DRIVER DE CONEXION O SETEOS EN SQL

> > (buffer, temporales, restricciones,etc)
> >

Hola
los campos Nro_Proyecto y NFon de que tipo son?. son del mismo que los
parametros?

"Jose Luis" escribió en el mensaje
news:%
> Eleazar wrote:
> Estimado te adjunto el codigo del Store Procedure, para que me ayudes
>
> SET QUOTED_IDENTIFIER ON
> GO
> SET ANSI_NULLS ON
> GO
>
> ALTER procedure Sp_GrabaGrillaResultado(
> @PAR_Proyecto as numeric,
> @PAR_Telefono as numeric,
> @PAR_Cod_Resultado as numeric,
> @PAR_Cod_C as varchar(2),
> @PAR_Cod_D as varchar(2),
> @PAR_Fecha_Mov as datetime)
> as
>
> SET IMPLICIT_TRANSACTIONS OFF
>
> Update Selecciones
> Set Cod_Resultado =@PAR_Cod_Resultado,
> Cod_C = @PAR_Cod_C,
> Cod_D = @PAR_Cod_D,
> fecha_mov = @PAR_Fecha_Mov
> Where Nro_Proyecto = @PAR_Proyecto
> And NFon = @PAR_Telefono
>
> GO
> SET QUOTED_IDENTIFIER OFF
> GO
> SET ANSI_NULLS ON
> GO
>
>
>
> > Hola quiza la recomendacion que hare ya la hiciste pero por si acaso.
> > sugiero que 'debuges' desde VB para obtener los valores de los
parametros
> > del stored procedure y lo ejecutes en el QA y asi analizar que es lo que
> > esta afectando ejemplo:
>
> > Begin Tran
> > Exec Sp_GrabaGrillaResultado 1,'Fono',1,,1,'20050715'
> > Select *
> > From TablaGrilla
> > Where CampoFecha >= '20050715'
> > Rollback
> > "Jose Luis" escribió en el mensaje
> > news:
> > > Tenemos un programa que se esta desarrollando con visual Basic 6.0 con
> > base
> > > de datos SQL Server 2000 y nuestro principal problema radica en la
> > digitación
> > > de información que se realiza en una de las opciones del programa, en
esta
> > > opción se digita información en una grilla Spread Designer 3.0.32 -
32
> > bit,
> > > cuando se realiza la digitación se gatilla la llamada a un store
procedure
> > el
> > > cual se encarga de grabar la información realizando un update contra
la
> > > tabla, produciéndose lo siguiente, en algunas ocasiones se digitan n
> > > registros y los graba, pero en algún momento de forma aleatoria deja
de
> > > grabar, es decir de una digitaron por ejemplo de 1000 registros solo
graba
> > la
> > > mitad, creyendo por supuesto que los 1000 registros se han grabado,
pero
> > > cuando se realiza un chequeo de la información esta no esta completa.
> > >
> > > Hemos probado con muchas alternativas ya que este problema se presenta
> > > siempre, es decir un día graba una determinada cantidad de registro y
en
> > otro
> > > momento otra cantidad, es decir aleatoriamento graba y otras no.
> > > Pensamos que podía ser la aplicación, por lo mismo cambiamos en varias
> > > ocasiones el código que lleva los datos al store procedure, por
ejemplo lo
> > > ultimo que se creo fue un objeto comand.
> > >
> > > Dim Comando As ADODB.Command
> > > Set Comando = New ADODB.Command
> > > Comando.ActiveConnection = DB
> > >
> > > Comando.CommandType = adCmdStoredProc
> > > Comando.CommandText = "Sp_GrabaGrillaResultado"
> > > Comando.Parameters.Append
Comando.CreateParameter("NroProyecto",
> > > adBigInt, adParamInput)
> > > Comando.Parameters.Append Comando.CreateParameter("Fono",
> > adBigInt,
> > > adParamInput)
> > > Comando.Parameters.Append
Comando.CreateParameter("CodResultado",
> > > adBigInt, adParamInput)
> > > Comando.Parameters.Append Comando.CreateParameter("Cod_C",
> > > adVarChar, adParamInput, 2)
> > > Comando.Parameters.Append Comando.CreateParameter("Cod_D",
> > > adVarChar, adParamInput, 2)
> > > Comando.Parameters.Append Comando.CreateParameter("Fecha_Mov",
> > > adDate, adParamInput, 2)
> > >
> > > Comando("NroProyecto").Value = lProyecto
> > > Comando("Fono").Value = CLng(fono)
> > > Comando("CodResultado").Value = CodResultado
> > > Comando("Cod_C").Value = Trim(COD_C)
> > > Comando("Cod_D").Value = Trim(COD_D)
> > > Comando("Fecha_Mov").Value = hoy
> > > Comando.Execute
> > > Set Comando = Nothing
> > >
> > > Vemos en el Profiler lo que sucede con la información que pasamos por
el
> > > store procedure y dándonos cuenta que al parecer los datos están
siendo
> > > grabados, pero lamentablemente no es así, al store procedure se le
agrego
> > el
> > > siguiente código, antes de hacer el update
> > > Set Implicit_Transaction Off
> > >
> > > Con la idea que no se limitara el numero de transacciones posibles,
pero
> > > lamentablemente no funciono, además se instalo el cliente de SQL
Server
> > > actualizando también el Mdac.
> > > Hay que señalar que cuando nos damos cuenta que la información se
grabo
> > > hasta cierto punto y seguimos digitando no recibimos ningún mensaje de
> > parte
> > > del servidor, que nos indique que algo esta sucediendo con esos
registros
> > que
> > > de alguna manera no se están grabando
> > >
> > > SERA ALGUNA CONFIGURACION DEL DRIVER DE CONEXION O SETEOS EN SQL
SERVER
> > > (buffer, temporales, restricciones,etc)
> > >
>
>

Eleazar wrote:
Estimado, los campos son del mismo tipo.
JOSE LUIS


> Hola
> los campos Nro_Proyecto y NFon de que tipo son?. son del mismo que los
> parametros?

> "Jose Luis" escribió en el mensaje
> news:%
> > Eleazar wrote:
> > Estimado te adjunto el codigo del Store Procedure, para que me ayudes
> >
> > SET QUOTED_IDENTIFIER ON
> > GO
> > SET ANSI_NULLS ON
> > GO
> >
> > ALTER procedure Sp_GrabaGrillaResultado(
> > @PAR_Proyecto as numeric,
> > @PAR_Telefono as numeric,
> > @PAR_Cod_Resultado as numeric,
> > @PAR_Cod_C as varchar(2),
> > @PAR_Cod_D as varchar(2),
> > @PAR_Fecha_Mov as datetime)
> > as
> >
> > SET IMPLICIT_TRANSACTIONS OFF
> >
> > Update Selecciones
> > Set Cod_Resultado =@PAR_Cod_Resultado,
> > Cod_C = @PAR_Cod_C,
> > Cod_D = @PAR_Cod_D,
> > fecha_mov = @PAR_Fecha_Mov
> > Where Nro_Proyecto = @PAR_Proyecto
> > And NFon = @PAR_Telefono
> >
> > GO
> > SET QUOTED_IDENTIFIER OFF
> > GO
> > SET ANSI_NULLS ON
> > GO
> >
> >
> >
> > > Hola quiza la recomendacion que hare ya la hiciste pero por si

> > > sugiero que 'debuges' desde VB para obtener los valores de los
> parametros
> > > del stored procedure y lo ejecutes en el QA y asi analizar que es lo

> > > esta afectando ejemplo:
> >
> > > Begin Tran
> > > Exec Sp_GrabaGrillaResultado 1,'Fono',1,,1,'20050715'
> > > Select *
> > > From TablaGrilla
> > > Where CampoFecha >= '20050715'
> > > Rollback
> > > "Jose Luis" escribió en el

> > > news:
> > > > Tenemos un programa que se esta desarrollando con visual Basic 6.0

> > > base
> > > > de datos SQL Server 2000 y nuestro principal problema radica en la
> > > digitación
> > > > de información que se realiza en una de las opciones del programa,

> esta
> > > > opción se digita información en una grilla Spread Designer

> 32
> > > bit,
> > > > cuando se realiza la digitación se gatilla la llamada a un store
> procedure
> > > el
> > > > cual se encarga de grabar la información realizando un update

> la
> > > > tabla, produciéndose lo siguiente, en algunas ocasiones se digitan

> > > > registros y los graba, pero en algún momento de forma aleatoria

> de
> > > > grabar, es decir de una digitaron por ejemplo de 1000 registros

> graba
> > > la
> > > > mitad, creyendo por supuesto que los 1000 registros se han

> pero
> > > > cuando se realiza un chequeo de la información esta no esta

> > > >
> > > > Hemos probado con muchas alternativas ya que este problema se

> > > > siempre, es decir un día graba una determinada cantidad de

> en
> > > otro
> > > > momento otra cantidad, es decir aleatoriamento graba y otras no.
> > > > Pensamos que podía ser la aplicación, por lo mismo cambiamos en

> > > > ocasiones el código que lleva los datos al store procedure, por
> ejemplo lo
> > > > ultimo que se creo fue un objeto comand.
> > > >
> > > > Dim Comando As ADODB.Command
> > > > Set Comando = New ADODB.Command
> > > > Comando.ActiveConnection = DB
> > > >
> > > > Comando.CommandType = adCmdStoredProc
> > > > Comando.CommandText = "Sp_GrabaGrillaResultado"
> > > > Comando.Parameters.Append
> Comando.CreateParameter("NroProyecto",
> > > > adBigInt, adParamInput)
> > > > Comando.Parameters.Append Comando.CreateParameter("Fono",
> > > adBigInt,
> > > > adParamInput)
> > > > Comando.Parameters.Append
> Comando.CreateParameter("CodResultado",
> > > > adBigInt, adParamInput)
> > > > Comando.Parameters.Append Comando.CreateParameter("Cod_C",
> > > > adVarChar, adParamInput, 2)
> > > > Comando.Parameters.Append Comando.CreateParameter("Cod_D",
> > > > adVarChar, adParamInput, 2)
> > > > Comando.Parameters.Append

> > > > adDate, adParamInput, 2)
> > > >
> > > > Comando("NroProyecto").Value = lProyecto
> > > > Comando("Fono").Value = CLng(fono)
> > > > Comando("CodResultado").Value = CodResultado
> > > > Comando("Cod_C").Value = Trim(COD_C)
> > > > Comando("Cod_D").Value = Trim(COD_D)
> > > > Comando("Fecha_Mov").Value = hoy
> > > > Comando.Execute
> > > > Set Comando = Nothing
> > > >
> > > > Vemos en el Profiler lo que sucede con la información que pasamos

> el
> > > > store procedure y dándonos cuenta que al parecer los datos están
> siendo
> > > > grabados, pero lamentablemente no es así, al store procedure se le
> agrego
> > > el
> > > > siguiente código, antes de hacer el update
> > > > Set Implicit_Transaction Off
> > > >
> > > > Con la idea que no se limitara el numero de transacciones

> pero
> > > > lamentablemente no funciono, además se instalo el cliente de SQL
> Server
> > > > actualizando también el Mdac.
> > > > Hay que señalar que cuando nos damos cuenta que la información se
> grabo
> > > > hasta cierto punto y seguimos digitando no recibimos ningún

> > > parte
> > > > del servidor, que nos indique que algo esta sucediendo con esos
> registros
> > > que
> > > > de alguna manera no se están grabando
> > > >
> > > > SERA ALGUNA CONFIGURACION DEL DRIVER DE CONEXION O SETEOS EN SQL
> SERVER
> > > > (buffer, temporales, restricciones,etc)
> > > >
> >
> >