[علي بنيان]

بصراحة ناسي الفيجول بيسك 6 لان صارلي اقل شيء 10 سنوات من تركتها , ولا اعرف هذه الطريقة في ادخال البيانات لكن توجد طريقة يمكن تكون مشابهة للطريقة اعلاه , كذلك Data Table  و  Data Row ولكن بدون حلقة تكرار وسهلة جدا وتتبع الخطأ كذلك سهل . 

هسه اذا عندي داتا بيس اسمها (LearningDB) وبداخلها عدة جداول انا اريد ان اضيف الى الجدول (Courses) بأستخدام الـ Data Row (DR)



اول شيء انشأ الاتصال بين قاعدة البيانات وبرنامجي عن طريق الدالة 

PHP كود :

' في التصريحات العامة'
Imports System.Data.SqlClient


'------------------------------'

  Public SqlCon As New SqlClient.SqlConnection

    Public Sub opencon()

        If SqlCon.State = 1 Then SqlCon.Close()
        Try
            SqlCon.ConnectionString = "server=spyman;database=LearningDB;integrated security = true"
            SqlCon.Open()

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try

    End Sub 


في زر الاضافة يكون الكود التالي :

PHP كود :

Try
            Dim sql = "select * from Courses"
            Dim adp As New SqlClient.SqlDataAdapter(sql, SqlCon)
            Dim ds As New DataSet
            adp.Fill(ds)
            Dim DT = ds.Tables(0)
            Dim DR = DT.NewRow
  
          '------------------------------------
            DR!CoursesID = TxtCoursesID.Text
            DR!EmployeeID = TxtEmployeeID.Text
            DR!TrainnerID = TxtTrainnerID.Text
            DR!CoreName = TxtCoreName.Text
            DR!TrainingCourses = TxtTrainingCourses.Text
            DR!DataAssigned = TxtDataAssigned.Text
            DR!DueDate = TxtDueDate.Text
            DR!CompletionDate = TxtCompletionDate.Text
            DR!Remark = TxtRemark.Text
            DR!Comments = TxtComments.Text
            DR!Status = TxtStatus.Text
            DR!Notes = TxtNotes.Text
            '-------------------------------------
            DT.Rows.Add(DR)
            Dim cmd As New SqlClient.SqlCommandBuilder(adp)
            adp.Update(DT)
            MessageBox.Show("تم الحفظ بنجاح", "حفظ",
                MessageBoxButtons.OK,
                MessageBoxIcon.Information,
                MessageBoxDefaultButton.Button1,
                MessageBoxOptions.RightAlign, False)

        Catch ex As Exception
            MessageBox.Show("خطأ في الحفظ" + ex.Message, "خطأ",
                MessageBoxButtons.OK,
                MessageBoxIcon.Error,
                MessageBoxDefaultButton.Button1,
                MessageBoxOptions.RightAlign, False)
        End Try 


هذه هي عملية الادخال اما عملية التعديل والحذف مجرد تغير احرف بسيطة جدا يتغير الكود من اضافة الى تعديل (هذه شيء موجود بصورة مفصلة بالدورة الثانية)

اذا تردين تفهمين شنو هي الـ Data Row  و  Data Table و Data set بصورة دقيقة ومفصلة جدا شوفي دورة احمد عبد الواحد الزيني على اليويتوب وكذلك دورة عثمان محمد خورشيد لكن الدورة الاولى لاحمد الزيني مفصلة اكثر

دورة احمد الزيني هنا ( 330 درس ) 

دورة عثمان محمد خورشيد  هنا ( 35 درس )


بالتوفيق