USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Banco de Dados)

Título da Dica:  Retorna SQL de Procedure
Postada em 27/6/2007 por Jailton Sampaio      Clique aqui para enviar email para o autor  jailton_sampaio@hotmail.com
Function RetornaSQLDeProcedure(NomeFuncao As String, cIndicador As Integer, Parametros As String) As String
  
   Dim ParametrosDeID As String
   Dim Inicio, Fim As String
   Dim ParametroDataIniFim As String
   Dim cSQL As String
   Dim Procedure As String
   On Error GoTo TrataErro

   If gDatDatabase = eOracle Then
      Inicio = " ("
      Fim = "); "
   Else
      Inicio = " "
      Fim = " "
   End If
  
   NomeFuncao = UCase(NomeFuncao)
  
   If cIndicador > -1 Then
      ParametrosDeID = Inicio & UIDENT & "," & cIndicador & ","
   Else
      ParametrosDeID = Inicio
   End If
  
   'Parametros = Parametros & Fim & FimStoreProcedure
   Parametros = Parametros & FimStoreProcedure
  
   Screen.MousePointer = 11
   cSQL = InicioStoreProcedure + NomeFuncao + ParametrosDeID
   cSQL = cSQL & Parametros
   If gDatDatabase <> eAccess Then
      gConnSiem.Execute cSQL
   End If
  
  
   Screen.MousePointer = 0
  
   cSQL = ""
  
   RetornaSQLDeProcedure = cSQL
  
   Exit Function

TrataErro:
   Screen.MousePointer = 0

   frmMain.SB.Panels(0).Text = "Atenção: Erro durante a execução"
  
   If cIndicador <> -2 Then
      ProcErro err
'      Resume
      RetornaSQLDeProcedure = "-1"
   Else
      RetornaSQLDeProcedure = "-1"
   End If
  
   Exit Function
   Resume
End Function
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página