DaviSaba
|
SANTA ROSA DE VITERBO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 03/02/2006 14:00 hs
Oi pessoal ... alguem tem algum exemplo de como crio os parametros e executo uma Stored Procedure por ADO ? Valeu |
|
|
|
|
|
|
|
Postada em 04/02/2006 14:16 hs
Dim SQL as String SQL = "nome_da_stored_procedure parametro1, parametro2, parametro3" Conexao.Execute(SQL, ,4) Se precisar retornar um conjunto de registros, faz: Set RecordSet = Conexao.Execute(SQL, ,4) Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
DaviSaba
|
SANTA ROSA DE VITERBO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 06/02/2006 15:24 hs
Dim AdoConn As New ADODB.Connection
Dim AdoCom As New ADODB.Command
Dim AdoParSolicitacao As New ADODB.Parameter
AdoParSolicitacao.Direction = adParamInput
AdoParSolicitacao.Name = "@Solicitacao"
AdoParSolicitacao.Type = adVarChar
AdoParSolicitacao.Size = 6
AdoParSolicitacao.Value = .Solicitacao
AdoCom.Parameters.Append AdoParSolicitacao
AdoCom.ActiveConnection = Adoconn AdoCom.CommandType = adCmdStoredProc
AdoCom.CommandText = "SP_MATSabtechUpDate"
AdoCom.CommandTimeout = 0
AdoCom.Execute
Nao esta dando certo ... eu errei em alguma coisa ? obrigado |
|
|
|
DaviSaba
|
SANTA ROSA DE VITERBO
SP - BRASIL
|
|
Postada em 06/02/2006 15:40 hs
Por favor, me ajudem ... o erro que esta dando é: -2147217887 - [Microsoft][ODBC SQL Server Driver]Recurso opcional não implementado Gerado Por Microsoft OLE DB Provider for ODBC Drivers |
|
|
|
|
|
Postada em 07/02/2006 06:46 hs
Mostra o Codigo onde deu esse erro???
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
DaviSaba
|
SANTA ROSA DE VITERBO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 07/02/2006 08:02 hs
Elieser, obrigado pelo interesse, mas eu consegui ... na cerdade utilizei de outra forma e mais simples ... +/- assim : Dim AdoCmd as New ADODB.Command AdoCdm.Parameter("@Nome").Value = Valor depois executei e funcionou Obrigado |
|
|
|
