Vida de Estudante

Meus amigos ajudem o Gerbasio aka TSB aka Gajo de Gajas aka Dock's Night Man pk ele ja so vo kodigo a frente, anexo uma foto pa verem k é vdd. ta a fikar xato!!!

Agora algo mais inteligente :

Imports System.data
Imports System.Data.Odbc
Public Class Vivendas
Inherits Imoveis
Protected _assoalhadas As Integer
Protected _lugaresgaragem As Integer
Protected _areaexterior As Double
Private orow As DataSet


Public Property Assoalhadas() As Integer
Get
Return _assoalhadas
End Get
Set(ByVal Valor As Integer)
_assoalhadas = Valor
End Set
End Property
Public Property Lugaresgaragem() As Integer
Get
Return _lugaresgaragem
End Get
Set(ByVal Valor As Integer)
_lugaresgaragem = Valor
End Set
End Property
Public Property areaexterior() As Double
Get
Return _areaexterior
End Get
Set(ByVal Valor As Double)
_areaexterior = Valor
End Set
End Property
Public Sub New(ByVal assoalhadas As Integer, ByVal lugaresgaragem As Integer, ByVal areaexterior As Integer)
_assoalhadas = assoalhadas
_lugaresgaragem = lugaresgaragem
_areaexterior = areaexterior
End Sub
Public Overridable Function areahabitada() As Double
Return (_area - _areaexterior)
End Function
Public Sub New(ByVal nometabela As String, ByVal dsn As String)
MyBase.new(nometabela, dsn)
Me.InitComandos()
End Sub
Private Sub InitComandos()
Dim sSql As String
Dim oComando As Odbc.OdbcCommand
'Comando para seleccionar todos os registos
sSql = "SELECT ID, Proprietario, PrecoPublicitado, PrecoMinimoVenda, AreaTotal, " & _
"Localizacao, AreaExterior,LugaresGaragem, Assoalhadas FROM Vivenda Order By id"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
ComandoSeleccionar(oComando)
'Comando para inserir registos
sSql = "INSERT INTO Vivenda (Proprietario, PrecoPublicitado, PrecoMinimoVenda, AreaTotal, " & _
"Localizacao, AreaExterior, LugaresGaragem, Assoalhadas) VALUES " & _
"(?, ?, ?, ?, ?, ?, ?, ?)"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
oComando.Parameters.Add("@proprietario", OdbcType.Text, 50, "Proprietario")
oComando.Parameters.Add("@precop", OdbcType.Numeric, 10, "PrecoPublicitado")
oComando.Parameters.Add("@precomin", OdbcType.Numeric, 10, "PrecoMinimoVenda")
oComando.Parameters.Add("@areat", OdbcType.Numeric, 10, "AreaTotal")
oComando.Parameters.Add("@local", OdbcType.Text, 10, "Localizacao")
oComando.Parameters.Add("@areaE", OdbcType.Numeric, 10, "AreaExterior")
oComando.Parameters.Add("@lugares", OdbcType.Numeric, 10, "LugaresGaragem")
oComando.Parameters.Add("@assoalhadas", OdbcType.Numeric, 10, "Assoalhadas")
ComandoInserir(oComando)
'Comando para actualizar registos
sSql = "UPDATE Vivenda SET Proprietario = ?, PrecoPublicitado = ?, PrecoMinimoVenda = ?, " & _
"AreaTotal = ?, Localizacao = ?, AreaExterior = ?, LugaresGaragem = ?, " & _
"Assoalhadas = ? WHERE ID = ?"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
oComando.Parameters.Add("@proprietario", OdbcType.Text, 50, "Proprietario")
oComando.Parameters.Add("@precop", OdbcType.Numeric, 10, "PrecoPublicitado")
oComando.Parameters.Add("@precomin", OdbcType.Numeric, 10, "PrecoMinimoVenda")
oComando.Parameters.Add("@areat", OdbcType.Numeric, 10, "AreaTotal")
oComando.Parameters.Add("@local", OdbcType.Text, 10, "Localizacao")
oComando.Parameters.Add("@areaE", OdbcType.Numeric, 10, "AreaExterior")
oComando.Parameters.Add("@lugares", OdbcType.Numeric, 10, "LugaresGaragem")
oComando.Parameters.Add("@assoalhadas", OdbcType.Numeric, 10, "Assoalhadas")
oComando.Parameters.Add("@IDImovel", OdbcType.Numeric, 5, "ID")
ComandoActualizar(oComando)
'Comando para apagar registos
sSql = "DELETE FROM Vivenda WHERE ID = ?"
oComando = RetornaComando(sSql)
oComando.CommandType = CommandType.Text
oComando.Parameters.Add("@IDImovel", OdbcType.Numeric, 5, "ID")
ComandoApagar(oComando)
End Sub
Public Sub LerRegistoBD(ByVal posicao As Integer)
Dim orow As DataRow
orow = ObterLinhaPosicao(posicao)
_assoalhadas = orow("assoalhadas")
_lugaresgaragem = orow("lugares_garagem")
_areaexterior = orow("area_exterior")
End Sub
End Class