|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Retorna SQL de Procedure
|
 |
|
|
|
Postada em 27/6/2007 por Jailton Sampaio
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
|
|
|
|
|
