الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التعديل على قاعدة البيانات

بدأه ismail2012 في 13 سبتمبر 2013 · 4 رد · 655 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة

استخدم هذا الكود من أجل الأضافة

'جمل الأتصال
Public ds1 As New DataSet
    Public dc As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0; Data Source= C:/db1.mdb")
  Public constr As String=("select * from table name")    
Public da As New OleDbDataAdapter(constr, dc)
    Public da1 As New OleDbDataAdapter("select * from Contents", dc)
    Public cb As New OleDbCommandBuilder(da)

'code  
Dim newrow As System.Data.DataRow
        newrow = ds1.Tables("table name").NewRow
        newrow.Item(0) = TextBox1.Text
        newrow.Item(1) = TextBox2.Text
        ds1.Tables("table name").Rows.Add(newrow)
                         da.InsertCommand = cb.GetInsertCommand
        da.Update(ds1, "table name")
dc.Close

المطلوب كود التعديل ولكن بنفس الطريقة  يعني مش خلال SQL

2- طريقة الأضافة المباشرة عن طريق الكائن BindingSource بدون ما يكون في البرنامج DataGridVIew

شكرا

تم تعديل هذه المشاركة بواسطة ismail2012 في 13 سبتمبر 2013 في 20:06

−1
#3

لم اجد الوقت الكافي لل Error Checking

Dim ds As New DataSet
    Dim conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=J:\SAMIR_DATA\ACCESS\Northwind 2007.accdb")
    Dim da As OleDb.OleDbDataAdapter
    Dim bs As New BindingSource
    conn.Open

    ' FILL THE DATASET WITH DATATABLE
    dim select_query As String = "select * from customers"
    da = New OleDb.OleDbDataAdapter(select_query,conn.ConnectionString)
    da.Fill(ds,"my_table")
    bs.DataSource = ds.Tables("my_table")

    ' TEST THE RESULT
    
    Me.dataGridView1.DataSource = bs
    
    ' CREATE THE INSERT COMMAND
    Dim cb As New OleDb.OleDbCommandBuilder(da)
    da.InsertCommand = cb.GetInsertCommand()

    '' INSERT NEW ROW
    Dim rw As DataRow = ds.Tables("my_table").NewRow
    rw("Company")   = "Company Test"
    rw("Last Name") = "New Last Name"
    ds.Tables("my_table").Rows.Add(rw)
    da.Update(ds, "my_table")


    ' CREATE THE UPDATE COMMAND
    da.UpdateCommand = cb.GetUpdateCommand()

    ' Find specific Customer Where ID = 1
    bs.Position = bs.Find("ID",1)
    bs.Current("Company") = "New Company"
    bs.EndEdit
    
    da.Update(ds.Tables("my_table"))

Samir Ibrahim

VFP Blog

VB.NET Blog

#4

شكرا لك يا أستاذ سمير

#5

يا هلا

Samir Ibrahim

VFP Blog

VB.NET Blog

مواضيع مشابهة