Meu forte é Delphi e estou com duvida de uma coisa.
Tenho um formulario access ligado com banco sql server,
e tenho um botão de comando que ao clicar abre uma Stored.
Nesta stored possuo 2 variaveis, gostaria de ao clicar
no botão, puxe o valor de dois campos do formulario para as variaveis para
assim abrir a consulta, já tentei de varias formas, mas não deu certo.
Gostaria que alguém me ajuda-se
NOME DA STORED: Formulario PRD_PRE_PEDIDO_EXPORTA_PROFORMA
NOME DAS VARIAVEIS: @PCodEmpresa e @PPrePedidoCodigo as duas são tipo INTEGER
NOME DOS CAMPOS NO FORMULARIO: Me.CodEmpresa e Me.Prepedidocodigo
Código que fiz
Private Sub BtnExportaProforma_Click()
Dim cnn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim prm As ADODB.Parameter
Set cnn = CurrentProject.Connection
Set cmd.ActiveConnection = cnn
cmd.CommandText = "dbo.[Formulario PRD_PRE_PEDIDO_EXPORTA_PROFORMA]"
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter("PCodEmpresa", adInteger, adParamInput, , Me.CodEmpresa)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("PPrePedidoCodigo", adInteger, adParamInput, , Me.PrePedidoCodigo)
cmd.Parameters.Append prm
cmd.Execute
End Sub
Por favor me corrigam se estiver totalmente errado, hehe
Pergunta
Rodrigo Hoffmann
Olá pessoal
Faz pouco tempo que começei coma access,
Meu forte é Delphi e estou com duvida de uma coisa.
Tenho um formulario access ligado com banco sql server,
e tenho um botão de comando que ao clicar abre uma Stored.
Nesta stored possuo 2 variaveis, gostaria de ao clicar
no botão, puxe o valor de dois campos do formulario para as variaveis para
assim abrir a consulta, já tentei de varias formas, mas não deu certo.
Gostaria que alguém me ajuda-se
NOME DA STORED: Formulario PRD_PRE_PEDIDO_EXPORTA_PROFORMA
NOME DAS VARIAVEIS: @PCodEmpresa e @PPrePedidoCodigo as duas são tipo INTEGER
NOME DOS CAMPOS NO FORMULARIO: Me.CodEmpresa e Me.Prepedidocodigo
Código que fiz
Private Sub BtnExportaProforma_Click() Dim cnn As ADODB.Connection Dim cmd As New ADODB.Command Dim prm As ADODB.Parameter Set cnn = CurrentProject.Connection Set cmd.ActiveConnection = cnn cmd.CommandText = "dbo.[Formulario PRD_PRE_PEDIDO_EXPORTA_PROFORMA]" cmd.CommandType = adCmdStoredProc Set prm = cmd.CreateParameter("PCodEmpresa", adInteger, adParamInput, , Me.CodEmpresa) cmd.Parameters.Append prm Set prm = cmd.CreateParameter("PPrePedidoCodigo", adInteger, adParamInput, , Me.PrePedidoCodigo) cmd.Parameters.Append prm cmd.Execute End SubPor favor me corrigam se estiver totalmente errado, hehe
Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.