Hola ota vez, el codigo anterior lo tienes que poner en una clase,
ahora te pongo el codigo para los sql
Código:
Public Class TransacData
Public Function GetUsuario(Optional ByVal usuusuario As String = "", Optional ByVal usupassword As String = "") As Data.DataSet
Dim Query As String
Query = "select usu_codigo,usu_usuario,usu_password,per_codigo from usuario where usu_usuario='" & usuusuario & "' and usu_password='" & usupassword & "'"
Return ExecuteQuery(Query)
End Function
End Class
para comandos Select ocupas return ExcecuteQuery(Query)
para comandos insert into, update, delete. ocupas return ExcecuteCommand(Query)
finalmente te pongo un pedazo de codigo que hace el llamado a esta clase.
para el boton grabar por ejemplo
Código:
_TransacData = New TransacData
Dim ds1 As Data.DataSet
ds1 = _TransacData.getsaldo(txtcuenta.Text.Trim)
If ds1 IsNot Nothing Then
saldoa = CDbl(ds1.Tables(0).Rows(0).Item(0))
End If
para realizar comandos insert in to, update odelete declaras ds (dataset) de tipo boolean.
Este codigo esta realizado en VBasic.Net 2005