puedo hacer que un procedimiento almacenado me devuelva un valor a una aplicacion corriendo en VBA ???

ops, lei mal entonces :( mil disculpas

pd: se nota que es viernes la pucha jeje




Salu2
Maxi


"Carlos Sacristán" <csacristanARROBAmvpsPUNTOorg> escribió en el mensaje
news:%
Mostrar la cita

No Maxi, ella no usa un identity...


Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

"Maxi" escribió en el mensaje
news:
Mostrar la cita

Hola, como no soy amante de los identity para estas cosas, por lo cual te
voy a pasar un articulo de como a mi criterio se deberian hacer estas
cuestiones ;)

Un abrazo

http://www.microsoft.com/spanish/ms...art187.asp


Salu2
Maxi


".·:m·a·r·l·a:·." escribió en el mensaje
news:
> hola a todos
>
> tengo creado un procedimiento almacenado que me da de alta los
> clientes,
> este, entre otras formas, es llamado desde una aplicaicion VBA en
> excell
> para automatizar el proceso cuando recibo clientes por hojas de excel
>
> actualmente cada vez que el procedimiento es llamado, creo el cliente y

ya
Mostrar la cita

> esta, mi intencion es que este a su vez devolviera el numero de cliente
> que
> ha generado (este se genera segun determinadas reglas), por ejemplo
> para
> mostrarlo en la aplicacion
>
> el procedimiento es tal que (un pequeño resumen):
>
> CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
> ...
>
> @Country
> as char(50),
>
> @Town
> as
> char(30),
>

@Street
Mostrar la cita

> as char(30),
> ...
>

@Format
Mostrar la cita

> as char(40),
> ...
> AS
>
> DECLARE @MISid as char(15) // variable donde voy generando el id
>
> ... //busqueda de codigos, generacion del identificador, bla bla bla
>
> SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
> @Format_forMISid + @MISid_last5
>
> ... //inserciones en tablas del SQL-server el cliente y otros valores
>
> GO
>
>
>
> y la funcion con la que lo llamo tal que:
>
> QueryString = "dbo.EntityNEW " + "'" + var_Name + +
> var_Country

+
Mostrar la cita

> "','" + var_Town + "','" + var_Street + ... + var_Format + ... +
> "'"
> If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)
>
>
>
> puede acerse esto, y en tal caso, que he de modificar en el

procedimiento
Mostrar la cita

> alamacenado y como cojo el valor en la funcion VBA ??
> he intentado buscar en la ayuda y en los BOL pero no he encontrado nada
> que
> me oriente
>
> gracias por adelantado
>
>

a ambos, el problema no es el id, este lo genero segun determinadas reglas
(por que si, politica de empresa que no quieren simples numeros para el
identificador), mi problema es como saco de nuevo ese numero a la aplicacion
que llamo al procedimiento

buscando he encontrado que puedo hacer el procedimiento tal que: (añadiendo
una variable y marcandola como OUTPUT)

CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
...
@Country
as char(50),
@Town as
char(30),
@Street
as char(30),
...
@Format
as char(40),
...

@Var_salida as char(15) OUTPUT
AS

DECLARE @MISid as char(15) // variable donde voy generando el id

... //busqueda de codigos, generacion del identificador, bla bla bla

SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
@Format_forMISid + @MISid_last5

... //inserciones en tablas del SQL-server el cliente y otros valores

SET @Var_salida = 'lo_que_quiera'

GO



mi duda es pues, como debo modificar la funcion (en excel, VBA) que llama a
este procedimiento ??


QueryString = "dbo.EntityNEW " + "'" + var_Name + + var_Country +
"','" + var_Town + "','" + var_Street + ... + var_Format + ... + "'"
If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)


gracias a ambos



"Carlos Sacristán" <csacristanARROBAmvpsPUNTOorg> wrote in message
news:%
Mostrar la cita

No Maxi, ella no usa un identity...


Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

"Maxi" escribió en el mensaje
news:
> Hola, como no soy amante de los identity para estas cosas, por lo cual

te
Mostrar la cita

> voy a pasar un articulo de como a mi criterio se deberian hacer estas
> cuestiones ;)
>
> Un abrazo
>
>

http://www.microsoft.com/spanish/ms...art187.asp
Mostrar la cita

>
>
> Salu2
> Maxi
>
>
> ".·:m·a·r·l·a:·." escribió en el mensaje
> news:
> > hola a todos
> >
> > tengo creado un procedimiento almacenado que me da de alta los

clientes,
Mostrar la cita

> > este, entre otras formas, es llamado desde una aplicaicion VBA en

excell
Mostrar la cita

> > para automatizar el proceso cuando recibo clientes por hojas de excel
> >
> > actualmente cada vez que el procedimiento es llamado, creo el cliente

y
Mostrar la cita

ya
> > esta, mi intencion es que este a su vez devolviera el numero de

cliente
Mostrar la cita

> > que
> > ha generado (este se genera segun determinadas reglas), por ejemplo

para
Mostrar la cita

> > mostrarlo en la aplicacion
> >
> > el procedimiento es tal que (un pequeño resumen):
> >
> > CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
> > ...
> >
> > @Country
> > as char(50),
> >

@Town
Mostrar la cita

> > as
> > char(30),
> >
@Street
> > as char(30),
> >

...
Mostrar la cita

> >
@Format
> > as char(40),
> > ...
> > AS
> >
> > DECLARE @MISid as char(15) // variable donde voy generando el id
> >
> > ... //busqueda de codigos, generacion del identificador, bla bla bla
> >
> > SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
> > @Format_forMISid + @MISid_last5
> >
> > ... //inserciones en tablas del SQL-server el cliente y otros valores
> >
> > GO
> >
> >
> >
> > y la funcion con la que lo llamo tal que:
> >
> > QueryString = "dbo.EntityNEW " + "'" + var_Name + +

var_Country
Mostrar la cita

+
> > "','" + var_Town + "','" + var_Street + ... + var_Format + ...

+
Mostrar la cita

> > "'"
> > If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)
> >
> >
> >
> > puede acerse esto, y en tal caso, que he de modificar en el
procedimiento
> > alamacenado y como cojo el valor en la funcion VBA ??
> > he intentado buscar en la ayuda y en los BOL pero no he encontrado

nada
Mostrar la cita

> > que
> > me oriente
> >
> > gracias por adelantado
> >
> >
>
>

Esto sería un ejemplo de cómo ejecutar un procedimiento almacenado con
un parámetro de salida desde código VB. Modificándolo un poco lo puedes
adaptar a lo que necesitas

****************************************************************************
****

Sub mostrarParametroSalida()
Dim adoConn As ADODB.Connection
Dim adoCmd As ADODB.Command
Dim adoPar1 As ADODB.Parameter
Dim adoParS As ADODB.Parameter

Set adoConn = New ADODB.Connection

adoConn.Provider = "SQLOLEDB"

adoConn.Open
"Server=nombreServer;UID=usuario;PWD=contraseña;Database=baseDeDatos;"

Dim i As Integer, t As Variant



Set adoCmd = New ADODB.Command
adoCmd.CommandType = adCmdStoredProc

adoCmd.CommandText = "nombreDelProcedimiento"

Set adoCmd.ActiveConnection = adoConn

Set adoPar1 = adoCmd.CreateParameter("@param1", adInteger,
adParamInput)
...
...
Set adoParS = adoCmd.CreateParameter("@m", adVarchar,adParamOutput)

adoCmd.Parameters.Append adoPar1
adoCmd.Parameters.Append adoParM

adoPar1.Value = valorParametro1
adoCmd.Execute , , adExecuteNoRecords

Debug.Print "Valor parámetro de salida", adoParS.Value


Set adoPar1 = Nothing
Set adoParS = Nothing
Set adoCmd = Nothing


adoConn.Close
Set adoConn = Nothing
End Sub

****************************************************************************
****

Espero te sirva



Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

".·:m·a·r·l·a:·." escribió en el mensaje
news:
Mostrar la cita

a ambos, el problema no es el id, este lo genero segun determinadas reglas
(por que si, politica de empresa que no quieren simples numeros para el
identificador), mi problema es como saco de nuevo ese numero a la

aplicacion
Mostrar la cita

que llamo al procedimiento

buscando he encontrado que puedo hacer el procedimiento tal que:

(añadiendo
Mostrar la cita

una variable y marcandola como OUTPUT)

CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
...

@Country
Mostrar la cita

as char(50),
@Town

as
Mostrar la cita

char(30),

@Street
Mostrar la cita

as char(30),
...

@Format
Mostrar la cita

as char(40),
...

@Var_salida as char(15) OUTPUT
AS

DECLARE @MISid as char(15) // variable donde voy generando el id

... //busqueda de codigos, generacion del identificador, bla bla bla

SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
@Format_forMISid + @MISid_last5

... //inserciones en tablas del SQL-server el cliente y otros valores

SET @Var_salida = 'lo_que_quiera'

GO



mi duda es pues, como debo modificar la funcion (en excel, VBA) que llama

a
Mostrar la cita

este procedimiento ??


QueryString = "dbo.EntityNEW " + "'" + var_Name + + var_Country +
"','" + var_Town + "','" + var_Street + ... + var_Format + ... +

"'"
Mostrar la cita

If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)


gracias a ambos



"Carlos Sacristán" <csacristanARROBAmvpsPUNTOorg> wrote in message
news:%
> No Maxi, ella no usa un identity...
>
>
> Un saludo
>
> -
> "Sólo sé que no sé nada. " (Sócrates)
>
> "Maxi" escribió en el mensaje
> news:
> > Hola, como no soy amante de los identity para estas cosas, por lo cual
te
> > voy a pasar un articulo de como a mi criterio se deberian hacer estas
> > cuestiones ;)
> >
> > Un abrazo
> >
> >
http://www.microsoft.com/spanish/ms...art187.asp
> >
> >
> > Salu2
> > Maxi
> >
> >
> > ".·:m·a·r·l·a:·." escribió en el mensaje
> > news:
> > > hola a todos
> > >
> > > tengo creado un procedimiento almacenado que me da de alta los
clientes,
> > > este, entre otras formas, es llamado desde una aplicaicion VBA en
excell
> > > para automatizar el proceso cuando recibo clientes por hojas de

excel
Mostrar la cita

> > >
> > > actualmente cada vez que el procedimiento es llamado, creo el

cliente
Mostrar la cita

y
> ya
> > > esta, mi intencion es que este a su vez devolviera el numero de
cliente
> > > que
> > > ha generado (este se genera segun determinadas reglas), por ejemplo
para
> > > mostrarlo en la aplicacion
> > >
> > > el procedimiento es tal que (un pequeño resumen):
> > >
> > > CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
> > >

...
Mostrar la cita

> > >
> > > @Country
> > > as char(50),
> > >
@Town
> > > as
> > > char(30),
> > >
> @Street
> > > as char(30),
> > >
...
> > >
> @Format
> > > as char(40),
> > >

...
Mostrar la cita

> > > AS
> > >
> > > DECLARE @MISid as char(15) // variable donde voy generando el id
> > >
> > > ... //busqueda de codigos, generacion del identificador, bla bla bla
> > >
> > > SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
> > > @Format_forMISid + @MISid_last5
> > >
> > > ... //inserciones en tablas del SQL-server el cliente y otros

valores
Mostrar la cita

> > >
> > > GO
> > >
> > >
> > >
> > > y la funcion con la que lo llamo tal que:
> > >
> > > QueryString = "dbo.EntityNEW " + "'" + var_Name + +
var_Country
> +
> > > "','" + var_Town + "','" + var_Street + ... + var_Format + ...
+
> > > "'"
> > > If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)
> > >
> > >
> > >
> > > puede acerse esto, y en tal caso, que he de modificar en el
> procedimiento
> > > alamacenado y como cojo el valor en la funcion VBA ??
> > > he intentado buscar en la ayuda y en los BOL pero no he encontrado
nada
> > > que
> > > me oriente
> > >
> > > gracias por adelantado
> > >
> > >
> >
> >
>
>

muchas gracias, a esto es lo que me referia

aunque es un poco mas complejo de lo que creia

me pondre en un rato a implementarlo

gracias de nuevo


"Carlos Sacristán" <csacristanARROBAmvpsPUNTOorg> wrote in message
news:OIMfc$
Mostrar la cita

Esto sería un ejemplo de cómo ejecutar un procedimiento almacenado con
un parámetro de salida desde código VB. Modificándolo un poco lo puedes
adaptar a lo que necesitas

****************************************************************************
Mostrar la cita

****

Sub mostrarParametroSalida()
Dim adoConn As ADODB.Connection
Dim adoCmd As ADODB.Command
Dim adoPar1 As ADODB.Parameter
Dim adoParS As ADODB.Parameter

Set adoConn = New ADODB.Connection

adoConn.Provider = "SQLOLEDB"

adoConn.Open
"Server=nombreServer;UID=usuario;PWD=contraseña;Database=baseDeDatos;"

Dim i As Integer, t As Variant



Set adoCmd = New ADODB.Command
adoCmd.CommandType = adCmdStoredProc

adoCmd.CommandText = "nombreDelProcedimiento"

Set adoCmd.ActiveConnection = adoConn

Set adoPar1 = adoCmd.CreateParameter("@param1", adInteger,
adParamInput)
...
...
Set adoParS = adoCmd.CreateParameter("@m",

adVarchar,adParamOutput)
Mostrar la cita

adoCmd.Parameters.Append adoPar1
adoCmd.Parameters.Append adoParM

adoPar1.Value = valorParametro1
adoCmd.Execute , , adExecuteNoRecords

Debug.Print "Valor parámetro de salida", adoParS.Value


Set adoPar1 = Nothing
Set adoParS = Nothing
Set adoCmd = Nothing


adoConn.Close
Set adoConn = Nothing
End Sub

****************************************************************************
Mostrar la cita

****

Espero te sirva



Un saludo

-
"Sólo sé que no sé nada. " (Sócrates)

".·:m·a·r·l·a:·." escribió en el mensaje
news:
> a ambos, el problema no es el id, este lo genero segun determinadas

reglas
Mostrar la cita

> (por que si, politica de empresa que no quieren simples numeros para el
> identificador), mi problema es como saco de nuevo ese numero a la
aplicacion
> que llamo al procedimiento
>
> buscando he encontrado que puedo hacer el procedimiento tal que:
(añadiendo
> una variable y marcandola como OUTPUT)
>
> CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
> ...
>
@Country
> as char(50),
>

@Town
Mostrar la cita

as
> char(30),
>
@Street
> as char(30),
> ...
>
@Format
> as char(40),
> ...
>
> @Var_salida as char(15) OUTPUT
> AS
>
> DECLARE @MISid as char(15) // variable donde voy generando el id
>
> ... //busqueda de codigos, generacion del identificador, bla bla bla
>
> SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
> @Format_forMISid + @MISid_last5
>
> ... //inserciones en tablas del SQL-server el cliente y otros valores
>
> SET @Var_salida = 'lo_que_quiera'
>
> GO
>
>
>
> mi duda es pues, como debo modificar la funcion (en excel, VBA) que

llama
Mostrar la cita

a
> este procedimiento ??
>
>
> QueryString = "dbo.EntityNEW " + "'" + var_Name + + var_Country

+
Mostrar la cita

> "','" + var_Town + "','" + var_Street + ... + var_Format + ... +
"'"
> If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)
>
>
> gracias a ambos
>
>
>
> "Carlos Sacristán" <csacristanARROBAmvpsPUNTOorg> wrote in message
> news:%
> > No Maxi, ella no usa un identity...
> >
> >
> > Un saludo
> >
> > -
> > "Sólo sé que no sé nada. " (Sócrates)
> >
> > "Maxi" escribió en el mensaje
> > news:
> > > Hola, como no soy amante de los identity para estas cosas, por lo

cual
Mostrar la cita

> te
> > > voy a pasar un articulo de como a mi criterio se deberian hacer

estas
Mostrar la cita

> > > cuestiones ;)
> > >
> > > Un abrazo
> > >
> > >
>

http://www.microsoft.com/spanish/ms...art187.asp
Mostrar la cita

> > >
> > >
> > > Salu2
> > > Maxi
> > >
> > >
> > > ".·:m·a·r·l·a:·." escribió en el mensaje
> > > news:
> > > > hola a todos
> > > >
> > > > tengo creado un procedimiento almacenado que me da de alta los
> clientes,
> > > > este, entre otras formas, es llamado desde una aplicaicion VBA en
> excell
> > > > para automatizar el proceso cuando recibo clientes por hojas de
excel
> > > >
> > > > actualmente cada vez que el procedimiento es llamado, creo el
cliente
> y
> > ya
> > > > esta, mi intencion es que este a su vez devolviera el numero de
> cliente
> > > > que
> > > > ha generado (este se genera segun determinadas reglas), por

ejemplo
Mostrar la cita

> para
> > > > mostrarlo en la aplicacion
> > > >
> > > > el procedimiento es tal que (un pequeño resumen):
> > > >
> > > > CREATE PROCEDURE dbo.EntityNEW @Name as char(40),
> > > >
...
> > > >
> > > > @Country
> > > > as char(50),
> > > >
> @Town
> > > > as
> > > > char(30),
> > > >
> > @Street
> > > > as char(30),
> > > >
> ...
> > > >
> > @Format
> > > > as char(40),
> > > >
...
> > > > AS
> > > >
> > > > DECLARE @MISid as char(15) // variable donde voy generando el

id
Mostrar la cita

> > > >
> > > > ... //busqueda de codigos, generacion del identificador, bla bla

bla
Mostrar la cita

> > > >
> > > > SET @MISid = @Country_forMISid + @BA_forMISid + @Type_forMISid +
> > > > @Format_forMISid + @MISid_last5
> > > >
> > > > ... //inserciones en tablas del SQL-server el cliente y otros
valores
> > > >
> > > > GO
> > > >
> > > >
> > > >
> > > > y la funcion con la que lo llamo tal que:
> > > >
> > > > QueryString = "dbo.EntityNEW " + "'" + var_Name + +
> var_Country
> > +
> > > > "','" + var_Town + "','" + var_Street + ... + var_Format +

...
Mostrar la cita

> +
> > > > "'"
> > > > If var_execute_insertion Then objConnSQLMIS.Execute (QueryString)
> > > >
> > > >
> > > >
> > > > puede acerse esto, y en tal caso, que he de modificar en el
> > procedimiento
> > > > alamacenado y como cojo el valor en la funcion VBA ??
> > > > he intentado buscar en la ayuda y en los BOL pero no he encontrado
> nada
> > > > que
> > > > me oriente
> > > >
> > > > gracias por adelantado
> > > >
> > > >
> > >
> > >
> >
> >
>
>