Agora preciso que a aplicação VB 6.0 dispare a Stored com os valores desejados (estou usando ADO). Segue abaixo o códgio:
Private Sub cmdGravar_Click()
Dim ssql As String
cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
'stored procedure inserindo usuario
ssql = "{call SP_Inserir_Usuario_01(?,?,?,?)}"
'validação dos campos e montagem da query
executar(0) = Trim(txtCodigo.Text)
If txtNomeLogin = Empty Then
MsgBox "erro nome do login"
Else
executar(1) = Trim(txtNomeLogin.Text)
End If
If Trim(txtNomeUsuario.Text) = Empty And Trim(Len(txtNomeUsuario.Text)) < 30 Then
MsgBox "nome de usuario vazio ou menor que 30 caracteres"
Else
executar(2) = Trim(txtNomeUsuario.Text)
End If
If Trim(txtSenhaUsuario.Text) = Empty Or Trim(txtConfirmaSenhaUsuario.Text) = Empty Then
MsgBox "senha de usuario ou confirmação de senha de usuario vazio"
End If
If Trim(txtSenhaUsuario.Text) <> Trim(txtConfirmaSenhaUsuario.Text) Then
MsgBox "Senhas diferentes"
Else
executar(3) = Trim(txtSenhaUsuario.Text)
End If
End Sub
Minhas variáveis de conexão estão em um módulo, e vou postar abaixo:
Option Explicit
Public cnn As ADODB.Connection
Public cmd As ADODB.Command
Public rs As ADODB.Recordset
Public executar As ADODB.Parameter
Public Function ConectaBanco()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=bdnprecibo;USER=root;PASSWORD=root;"
cnn.CursorLocation = adUseClient
cnn.Open
End Function
Estou com dificuldades em disparar a Stored. Alguém poderia me ajudar?
Pergunta
Alex Mauricio
Boa tarde grupo.
Estou com uma nova aplicação e como o volume pode ser grande eu gostaria de fazer com Stored Procedure.
Estou fazendo um teste apenas...
Criei a seguinte Stored Procedure (que está funcionando) no MySQL conforme abaixo (se tiver como melhorar ela pode falar também):
Agora preciso que a aplicação VB 6.0 dispare a Stored com os valores desejados (estou usando ADO). Segue abaixo o códgio:Private Sub cmdGravar_Click() Dim ssql As String cmd.ActiveConnection = cnn cmd.CommandType = adCmdStoredProc 'stored procedure inserindo usuario ssql = "{call SP_Inserir_Usuario_01(?,?,?,?)}" 'validação dos campos e montagem da query executar(0) = Trim(txtCodigo.Text) If txtNomeLogin = Empty Then MsgBox "erro nome do login" Else executar(1) = Trim(txtNomeLogin.Text) End If If Trim(txtNomeUsuario.Text) = Empty And Trim(Len(txtNomeUsuario.Text)) < 30 Then MsgBox "nome de usuario vazio ou menor que 30 caracteres" Else executar(2) = Trim(txtNomeUsuario.Text) End If If Trim(txtSenhaUsuario.Text) = Empty Or Trim(txtConfirmaSenhaUsuario.Text) = Empty Then MsgBox "senha de usuario ou confirmação de senha de usuario vazio" End If If Trim(txtSenhaUsuario.Text) <> Trim(txtConfirmaSenhaUsuario.Text) Then MsgBox "Senhas diferentes" Else executar(3) = Trim(txtSenhaUsuario.Text) End If End SubMinhas variáveis de conexão estão em um módulo, e vou postar abaixo:Option Explicit Public cnn As ADODB.Connection Public cmd As ADODB.Command Public rs As ADODB.Recordset Public executar As ADODB.Parameter Public Function ConectaBanco() Set cnn = New ADODB.Connection cnn.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};SERVER=localhost;DATABASE=bdnprecibo;USER=root;PASSWORD=root;" cnn.CursorLocation = adUseClient cnn.Open End FunctionEstou com dificuldades em disparar a Stored. Alguém poderia me ajudar?
Obrigado
Link para o comentário
Compartilhar em outros sites
20 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.