07. Clases: Añadiendo Métodos (I)

Ahora, vamos a añadir varios métodos a nuestras clases.

En particular voy a explicar, como añadir métodos a la clase Registro.

Para ello, vamos a necesitar varias variables privadas nuevas:

'----------------------------                                      ' Variables extras... '---------------------------- Private conectar As Connection 'conecta a la base de datos Private resultado As Result 'contiene los registros que se devuelven de una consulta Private SQLString As String 'nos va ha servir para contener las ordenes en el lenguaje SQL

Estas se deben de introducir antes de la zona donde definimos los métodos Sub, dentro de la clase "Registro.class".

Ahora pasamos a los métodos:

Conectarse: es el que se encarga de conectarse a la base de datos, si hay algún problema devuelve un mensaje "Error abriendo la base de datos!!!".

Public Function conectarse()As Boolean                                                           

With conectar
    .type = "mysql"
    .host = "localhost" 'lugar donde esta la base de datos
    .login = "admin"
    .password = "admin"
    .name = "dblistin" 'nombre de la base de datos


Try .OPEN
If Error Then
     Message.Error("Error abriendo la base de datos!!!\n" & Error.Text)
Return False
Else
    Return True
Endif
End With


End

Insertar: se encarga de insertar un registro en la tabla "datoslistin"

Public Sub insertar()        
SQLString = "INSERT INTO datoslistin(nif,nombre,apellidos,telefono,movil,domicilio,
ruta_grafica,ruta_mini) Values ('"
SQLString &= hnombre
SQLString &= "','" & hapellidos
SQLString &= "','" & htelefono
SQLString &= "','" & hmovil
SQLString &= "','" & hdomicilio
SQLString &= "','" & hruta_grafica
SQLString &= "','" & hruta_mini & "')"
Try resultado  = conectar.Exec(SQLString)
If Error Then
Message.Error(" Se ha producido un ERROR al Intentar insertar datos, revise ID, " & "\nSentencia: " & sqlstring)
Endif
End

 

Ahora, vamos a añadir el método modificar_nif, el cual dado un nif concreto, va a modificar los datos del registro que coincida con ese nif.

Public Sub modificar_nif()                                                
SQLString = "UPDATE datoslistin SET "
SQLString &= "nombre='" & hnombre
SQLString &= "', apellido='" & hapellido
SQLString &= "', telefono='" & htelefono
SQLString &= "', movil='" & hmovil
SQLString &= "', domicilio='" & hdomicilio
SQLString &= "', ruta_grafica='" & hruta_grafica
SQLString &= "', ruta_mini='" & hruta_mini & "'"
SQlString &= " WHERE nif='" & hnif & "'"
Try resultado = conectar.Exec(SQLString)
If Error Then
Message.Error(" Se ha producido un ERROR al Modificar datos, revise ID , "
 & "\nSentencia: " & sqlstring)
Else
Return mRs
Endif
End

Y ahora, vamos a hacer una función que pasado una  consulta en sql, nos devuelva los campos que genera dicha consulta.
Public Function sql(consulta As String) As Result              
Try resultado = conectar.Exec(consulta)
If Error Then message.info("Consulta erronea, revisela")
Return resultado
End

Como tarea, podeis hacer lo mismo con la clase Usuario, añadirle los mismos métodos, eso si, los teneis que adaptar a los campos que tiene la tabla "login".