(19-08-16, 07:34 PM)Microformt كتب : [ -> ]بسم الله الرحمن الرحيم
الاخوه الكرام
السلام عليكم ورحمة وبركاته
نامل من الله السماعدة في برمجة زر امر حفظ البيانات في قاعدة البيانات ؟؟
نامل من الله التعديل على المثال المرفق والله يحفظكم ويرعاكم
تحياتي
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb")
Dim da As OleDbDataAdapter
Dim cm As OleDbCommandBuilder
Dim dt As DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataGridView1.DataSource = Nothing
DataGridView1.Rows.Clear()
dt = New DataTable
da = New OleDbDataAdapter("select * from noop", con)
cm = New OleDbCommandBuilder(da)
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim dr As DataRow = dt.NewRow
dr(0) = TextBox1.Text
dr(1) = TextBox2.Text
dt.Rows.Add(dr)
da.Update(dt)
Form1_Load(Nothing, Nothing)
End Sub
End Class
Imports System.Data.OleDb
Public Class Form1
Dim con As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb")
Dim da As New OleDbDataAdapter("SELECT * FROM noop", con)
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
da.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
dt.Rows.Add(TextBox1.Text, TextBox2.Text)
Dim b As New OleDbCommandBuilder(da)
da.Update(dt)
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
End Class