Imports System.Data.OleDb
PublicClass Form1
Dim Da AsNew OleDbDataAdapter
Dim com AsNew OleDbCommand
Dim con AsNew OleDbConnection(Str)
Dim Ds AsNew DataSet
Dim Tb AsNew DataTable
Const Str AsString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Data.mdb"
PrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Tb = New DataTable
If con.State = ConnectionState.Closed Then con.Open()
Da = New OleDbDataAdapter("select * from kharid where id=" + TextBox1.Text, Str)
Da.Fill(Tb)
con.Close()
If Tb.Rows.Count Then
If con.State = ConnectionState.Closed Then con.Open()
Try
com = New OleDbCommand _
("update kharid set name=@name,kala=@kala,tedad=@tedad,baha=@baha where id=@id ", con)
With com.Parameters
.Clear()
.AddWithValue("@id", Val(TextBox1.Text))
.AddWithValue("@name", TextBox2.Text)
.AddWithValue("@kala", TextBox3.Text)
.AddWithValue("@tedad", Val(TextBox4.Text))
.AddWithValue("@baha", CType(TextBox5.Text, Double))
EndWith
com.ExecuteNonQuery()
MsgBox("ok")
Catch ex As Exception
MsgBox(ex.Message)
EndTry
con.Close()
fill()
Else
If con.State = ConnectionState.Closed Then con.Open()
com = New OleDbCommand("insert into kharid(id,name,kala,tedad,baha) values(@id,@name,@kala,@tedad,@baha)", con)
With com.Parameters
.Clear()
.AddWithValue("@id", Val(TextBox1.Text))
.AddWithValue("@name", TextBox2.Text)
.AddWithValue("@kala", TextBox3.Text)
.AddWithValue("@tedad", Val(TextBox4.Text))
.AddWithValue("@baha", CType(TextBox5.Text, Double))
EndWith
com.ExecuteNonQuery()
con.Close()
fill()
EndIf
EndSub
Sub fill()
Ds = New DataSet
If con.State = ConnectionState.Closed Then con.Open()
Da = New OleDbDataAdapter("select * from kharid", Str)
Da.Fill(Ds, "kharid")
con.Close()
Me.DataGridView1.DataBindings.Clear()
Me.DataGridView1.DataSource = Ds.Tables("kharid")
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
fill()
EndSub
EndClass