EERRO NA EXECUSãO STORE PROCEDURE MYSQL

 Tópico anterior Próximo tópico Novo tópico

EERRO NA EXECUSãO STORE PROCEDURE MYSQL

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#495478 - 27/10/2020 13:44:23

MALA
RONDONOPOLIS
Cadast. em:Janeiro/2004


Última edição em 30/10/2020 12:23:05 por KERPLUNK

DELIMITER $$

USE `trans691_libemissao`$$

DROP PROCEDURE IF EXISTS `BuscaLogin`$$

CREATE DEFINER=`root`@`%` PROCEDURE `BuscaLogin`(IN pSql VARCHAR(3000), IN pHD VARCHAR(20))
BEGIN
           SET @query = CONCAT('UPDATE CelLibe SET DHUltLogin = NOW() WHERE CelImei =', QUOTE(pHD));
          
           PREPARE sp_ExecutaUpdate FROM @query;
            
           EXECUTE sp_ExecutaUpdate;
            
           SET @sql = CONCAT(' ',  pSql);    
          
           PREPARE sp_ExecutaQuery FROM @sql;    
          
           EXECUTE sp_ExecutaQuery;
    END$$
DELIMITER ;

Dim Conn As New ADODB.Connection
            Dim Rs As New ADODB.Recordset
            Dim Cmd As New ADODB.Command
            Dim Param As ADODB.Parameter

            Dim vSql As String

            Conn.ConnectionString = 'Driver={MySQL ODBC 3.51 Driver};Server=SERVER_DO_FIGURA;Port=3306;Database=DATABASE;User=USUARIOPassword=SENHA;Option=3;'

            vSql = 'select c.Status, t.IPIntAPP, t.SenhaBD, t.UsuarioBD, t.NomeBD, t.PortaDB, c.Acesso, t.IPExtAPP, c.DriverAcesso, t.DataLib ' ',c.NomeDono, t.logo, t.IPExtAPP
            vSql += ' FROM CelLibe c '
            vSql += ' INNER JOIN libemissaotela t On (c.cnpj = t.cnpj And c.sistema = t.sistema) '
            vSql += ' WHERE c.CelImei = '' & SerialHD & '''
            vSql += ' And c.Sistema = 'SCF' '
            'vSql += ' And c.Status = 'L''

            Conn.Open()

            If Rs.State = 1 Then Rs.Close()

            Rs.CursorLocation = ADODB.CursorLocationEnum.adUseClient

            Cmd.CommandText = 'BuscaLogin'
            Cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc

            Param = Cmd.CreateParameter('pSql', ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 3000, vSql)
            Param = Cmd.CreateParameter('pHD', ADODB.DataTypeEnum.adVarChar, ADODB.ParameterDirectionEnum.adParamInput, 20, SerialHD)
            Cmd.Parameters.Append(Param)

            Cmd.ActiveConnection = Conn

            Rs = Cmd.Execute()

            'Rs.Open(vSql, Conn)

            If Not Rs.EOF Then
                If Rs(0).Value.ToString = 'L' Then
                    If Rs(6).Value.ToString = 'L' Then
                        vServer = Rs(1).Value
                    Else
                        vServer = Rs(7).Value
                    End If

                    vSenha = Rs(2).Value
                    vUsuario = Rs(3).Value
                    vBaseDados = Rs(4).Value
                    vPorta = Rs(5).Value
                    vDriverAcessoDB = Rs(8).Value
                    DataBloqueio = Rs(9).Value.ToString

                    Return True
                Else
                    vMsgRetorno = 'Dispositivo Cadastrado e não liberado'

                    Return False
                End If
            Else
                Dim F As New FrmCadEstacao

                F.ShowDialog()

                If F.Retorno = False Then
                    vMsgRetorno = 'Dispositivo não Cadastrado'

                    Return F.Retorno
                Else
                    Return BuscaLiberacaoEstacao()
                End If
            End If



CLESIO SANTOS


#495479 - 27/10/2020 14:26:32

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Amigo, nos ajude a te ajudar...
Só postar código não nos serve pra nada.

Que erro ocorre? Em que momento ocorre?

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


#495535 - 30/10/2020 11:18:05

NOWLIGHTS
SUMARE
Cadast. em:Abril/2011


Última edição em 30/10/2020 11:24:55 por NOWLIGHTS

Meu caro,

Primeiro e mais importante, retira as informações do server, usuário e senha kk


__________________________________
- Everyone has a chance


#495537 - 30/10/2020 12:23:20

KERPLUNK
RIO GRANDE DO SUL
Cadast. em:Junho/2009


Membro da equipe
Citação:
:
Meu caro,

Primeiro e mais importante, retira as informações do server, usuário e senha kk

Nem tinha visto... tirei

_______________________________________________________________________
Virei Orculo!
The end is nigh, be ready for the nukes!


 Tópico anterior Próximo tópico Novo tópico


Para responder este tópico o login é requerido
Se você já possui uma conta de usuário por favor faça seu login
Se você não possui uma conta de usuário use a opção Criar usuário