Buen dia...
quisiera que me ayudaran a entender en Forma DETALLADA la siguiente sentencia...
Soy un poco novato o mas bien muy novato y el código aun me come...
Código:
Try
Dim sentencia As String
Dim rsverificar As ADODB.Recordset
rsverificar = New ADODB.Recordset()
sentencia = "Select " & NomCampo
sentencia = sentencia & " FROM " & Tblreturn
If Not filtro = Nothing Then
sentencia = sentencia & " Where " & filtro
End If
If conexionConsulta = "SQL" Then
rsverificar.Open(sentencia, cnSQL, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly, 1)
conexionConsulta = "Access"
Else
rsverificar.Open(sentencia, cnAccess, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly, 1)
End If
If rsverificar.EOF <> True Then
RetornaCampo = rsverificar.Fields(0).Value
If IsDBNull(rsverificar.Fields(0).Value) = True Then
RetornaCampo = 0
End If
Else
RetornaCampo = 0
End If
rsverificar.Close()
Catch ex As Exception
MsgBox("Ocurrio un error interno en la aplicación " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, "Atención")
Return 0
End Try
Bueno espero no sea mucha molestia..Feliz dia!!