Segura, in response to comments by M. Segura
class methods Sunday, November 28, 2010
Genital Herpes In Nose
Public Function add ( ) As Integer Dim row As Integer
& # 160; Dim cmd As New OleDbCommand ("insert into products (code, name, quantity, fecha_ingreso) values \u200b\u200b(@ pcodigo, @ pnombre, @ pcantidad, @ pfecha)" ,, com)
Dim As New OleDbParameter pcodigo
& # 160; pnombre Dim Dim As New OleDbParameter
As New OleDbParameter pcantidad
Dim As New OleDbParameter pfecha
. ParameterName = "@ pcodigo"
. DbType = DbType.String
;. Me.pcodigo
Value = & # 160; cmd.Parameters.Add(pcodigo)
        End With
        With pnombre
            .ParameterName = "@pnombre"
            .DbType = DbType.String
            .Value = Me.pnombre
            cmd.Parameters.Add(pnombre)
        End With
        With pcantidad
. ParameterName = " @ pcantidad "
. DbType = DbType.String
. Value = Me.pcantidad
cmd.Parameters.Add (pcantidad)
End With
& # 160; With pfecha
& # 160;. parameterName = "@ fecha"
& # 160; .DbType = DbType.Date
            .Value = Me.pfecha
            cmd.Parameters.Add(pfecha)
        End With
        Try
con.Open ()
rows = cmd.ExecuteNonQuery
con.Close ()
Catch ex As Exception MessageBox
. Show (ex.Message, loan) End Try
Public Function display () As DataSet
Dim dt As New DataSet
        Try
            con.Open()
            Dim dta As New OleDbDataAdapter("select * from productos", con)
            dta.Fill(dt, "productos")
            con.Close()
        Catch ex As Exception
            con.Close()
        End Try
        Return dt
    End Function
    Public Function buscar() As DataSet
        Dim dt As New DataSet
        Try
            con.Open ()
Dim dta As New OleDbDataAdapter ("select * from products WHERE code =" & pcodigo, con)
& # 160; dta.Fill (dt, "products")
con.Close()
        Catch ex As Exception
            con.Close()
            MsgBox(ex.Message)
        End Try
        Return dt End
function Public function delete () As Integer
Dim row As Integer Dim
cmd As New OleDbCommand ("delete from products where code = @ ppcodigo" with) Dim
ppcodigo As New OleDbParameter
With ppcodigo
;. parameterName = "@ ppcodigo"
. DbType = DbType.String
; .Value = Me.pcodigo
            cmd.Parameters.Add(ppcodigo)
        End With
        Try
            con.Open()
            line = cmd.ExecuteNonQuery
con.Close () Catch ex As Exception
; MessageBox.Show (ex.Message, loan)
& # 160;
Return row End Try End Function
& # 160; Public Function Update () As Integer Dim row As
Integer Dim cmd As New OleDbCommand ("update products Phnom September WHERE name = @ code = @ ppcodigo" ;, con)
As New OleDbParameter Dim pnombre
ppcodigo Dim As New OleDbParameter
. parameterName = "@ pnom"
& # 160; .DbType = DbType.String
            .Value = Me.pnombre
            cmd.Parameters.Add(pnombre)
        End With
        With ppcodigo
. ParameterName = " @ ppcodigo "
. DbType = DbType.Int16
. Value = Me.pcodigo
cmd.Parameters.Add(ppcodigo)
        End With
        Try
            con.Open()
            fila = cmd.ExecuteNonQuery
            con.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message, emp)
        End Try
        Return row End Function
button
btnactualizar_Click Private Sub (ByVal sender As System.Object, ByVal e As System . EventArgs) Handles btnactualizar.Click
catp.pcodigo = txtcodigo.Text
& # 160; catp.pnombre = txtnombre.Text
Catp.actualizar = 1 Then If
& # 160; MessageBox.Show ("record date") Else
& # 160; MessageBox.Show ("error while updating)
End If catp.mostrar.Tables
DataGridView1.DataSource = ("products")
; End Sub
Subscribe to:
Post Comments (Atom)
0 comments:
Post a Comment