Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Function MostrarPersonas() As Result
- Dim resultadoConsulta As Result
- Dim conectar As New Conexion
- Dim sqlstring As String
- conectar.Conexion()
- SQLString = "Select * from dato"
- Try resultadoConsulta = conectar.hconn.Exec(SqlString)
- If Error Then Message.Info("No se ha podido obtener el listado de personas. Error: " & Error.Text)
- Return resultadoConsulta
- End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement