Advertisement
jsbsan

mvc1

Jan 29th, 2014
490
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
GAMBAS 0.36 KB | None | 0 0
  1. Public Function MostrarPersonas() As Result
  2. Dim resultadoConsulta As Result
  3. Dim conectar As New Conexion
  4. Dim sqlstring As String
  5. conectar.Conexion()
  6. SQLString = "Select * from dato"
  7. Try resultadoConsulta = conectar.hconn.Exec(SqlString)
  8. If Error Then Message.Info("No se ha podido obtener el listado de personas. Error: " & Error.Text)
  9. Return resultadoConsulta
  10. End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement