مشروعى الاول متوقف عليكم

أنا سأتجاهل الـ Connection لأنه من المؤكد أنك أنجزتها:

1 - txtFirstName اسم العميل الأول.

2 - txtLastName الكنية.

3 - txtPhone رقم الهاتف.

string sql;

sql = "insert into tbl_agent values(first_name, last_name, phone) values('" + txtFirstName.Text + "', '" + txtlastName.Text + "', '" + txtPhone.Text + "')";

command1.CommandText = sql;
command1.ExecuteNoneQuery();

اخى العزيز احلف لك بالله انى ما عرفت ماذا تعنى بكلماتك هذه ربما يكون تقصير منى ربما ولهذا اشرح لك ماذا اريد بالضبط انا اظهر الجدول على الداتا جريد يظهر جدول له 5 اعمده اريد ان اضيف لهذا الجدول قيم جديده عند وجود عميل جديد وبعد انتهائى من هذا اضغط على زر يضيف هذه القيم الى الداتا بيز اتمنى من الله ان تكون قد اتضحت القصه و المشكله

السلام عليكم

إذا وهذا شرط إذا كنت تستخدم DataSet فهي إن شاء الله سهله للغاية

بهذا الكود تستطيع أن تضيف في الجدول

 Me.BindingContext(Me.Ds1, "tb").EndCurrentEdit()
Me.BindingContext(Me.Ds1, "tb").AddNew()

ثم أدخل البيانات التي تود إضافتها في السطر الجديد عن طريق الخانات النصية Text boxes أو عن طريق الـ DataGrid

و بهذا الإجراء تستطيع تحديث البيانات الموضافه

Public Sub UpdateDataSet()
        Dim DSC As New Ds
        Me.BindingContext(Ds1, "tb").EndCurrentEdit()
        DSC = CType(Ds1.GetChanges, Ds)
        If (Not (DSC) Is Nothing) Then
            Try
                DAMain.Update(DSC)
                Ds1.Merge(DSC)
                Ds1.AcceptChanges()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub

كذلك في طريقة أخرى لإضافة القيم في الصفوف بهذا الشكل

 Dim row As DataRow = Me.DataSet11.Tables(0).NewRow
        row("Column1") = 1
        row("Column2") = 2
        row("Column3") = 5
        Me.DataSet11.Tables(0).Rows.Add(row)
        Me.dataAdapter.Update(Me.DataSet11)
        Me.DataSet11.AcceptChanges()

و أخرى ,, بس هذه مطوله و معقدة نوعاً ما ..

 'Then Add Courses
            While (i <= Counter)
                Dim r As DataRow = Me.DsShcdule1.Tables("Scheul").Rows(i)
                'Insert Command
                DANRegUpdate.InsertCommand = New OleDb.OleDbCommand( _
                "INSERT INTO NewRegistration " & _
                "(Indexer,RegistrationDate,StudentID,FirstName,  " & _
                "MiddelName,MaidenName,LastName,Major,AcadimicYears,Semester, " & _
                "ST,CourseDescriptions,InstructorsName,Dayes,Times,Buildings, " & _
                "Rooms,Midterm,FinalExam,FinalExamTime,PrerequestCode, " & _
                 "CreditHoures,Types,Ceiling,GPA,Warrning) " & _
                "VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)", cnn)
                ' we used (?) which is mean parameter  
                'Specify Parameters for Insert Command
                With DANRegUpdate.InsertCommand.Parameters
                    .Add("@Indexer", _
                   OleDb.OleDbType.Integer, 0, "Indexer")
                    .Add("@RegistrationDate", _
                     OleDb.OleDbType.VarChar, 50, "RegistrationDate").Value = Now.Date().ToShortDateString()
                    .Add("@StudentID", _
                      OleDb.OleDbType.VarChar, 50, "StudentID").Value = Me.txtID.Text
                    .Add("@FirstName", _
                     OleDb.OleDbType.VarChar, 50, "FirstName").Value = Me.txtFName.Text
                    .Add("@MiddelName", _
                   OleDb.OleDbType.VarChar, 50, "MiddelName").Value = Me.txtMiddelName.Text
                    .Add("@MaidenName", _
                     OleDb.OleDbType.VarChar, 50, "MaidenName").Value = Me.txtMaidenName.Text
                    .Add("@LastName", _
                   OleDb.OleDbType.VarChar, 50, "LastName").Value = Me.txtLName.Text
                    .Add("@Major", _
                     OleDb.OleDbType.VarChar, 5, "Major").Value = Me.txtMajor.Text
                    .Add("@AcadimicYears", _
                     OleDb.OleDbType.VarChar, 50, "AcadimicYears").Value = Me.CBoxYear.SelectedItem
                    .Add("@Semester", _
                   OleDb.OleDbType.VarChar, 50, "Semester").Value = CheckedRB
                    .Add("@ST", _
                    OleDb.OleDbType.Integer, 0, "ST").Value = r("ST")
                    .Add("@CourseDescriptions", _
                   OleDb.OleDbType.VarChar, 50, "CourseDescriptions").Value = Me.CBoxCourse.SelectedItem
                    .Add("@InstructorsName", _
                    OleDb.OleDbType.VarChar, 50, "InstructorsName").Value = r("InstructorsName")
                    .Add("@Dayes", _
                      OleDb.OleDbType.VarChar, 50, "Dayes").Value = r("Dayes")
                    .Add("@Times", _
                   OleDb.OleDbType.VarChar, 50, "Times").Value = r("Times")
                    .Add("@Bulidings", _
                    OleDb.OleDbType.VarChar, 50, "Buildings").Value = r("Buildings")
                    .Add("@Rooms", _
                    OleDb.OleDbType.Integer, 0, "Rooms").Value = r("Rooms")
                    .Add("@Midterm", _
                   OleDb.OleDbType.VarChar, 50, "Midterm").Value = r("Midterm")
                    .Add("@FinalExam", _
                   OleDb.OleDbType.VarChar, 50, "FinalExam").Value = r("FinalExam")
                    .Add("@FinalExamTime", _
                 OleDb.OleDbType.VarChar, 50, "FinalExamTime").Value = r("FinalExamTime")
                    .Add("@PrerequestCode", _
                 OleDb.OleDbType.VarChar, 50, "PrerequestCode").Value = r("PrerequestCode")
                    .Add("@CreditHoures", _
                  OleDb.OleDbType.VarChar, 50, "CreditHoures").Value = r("CreditHourse")
                    .Add("@Types", _
                 OleDb.OleDbType.VarChar, 50, "Types").Value = r("Types")
                    .Add("@Ceiling", _
                 OleDb.OleDbType.Integer, 0, "Ceiling").Value = r("Ceiling")
                    .Add("@GPA", _
                 OleDb.OleDbType.Integer, 0, "GPA").Value = GPASender     'Comes from GPA Validation
                    .Add("@Warrning", _
                 OleDb.OleDbType.Integer, 0, "Warrning").Value = WarrningSender 'Comes from GPA Validation
                End With

                'Declare A Data Row that Hold Data to New Registration Table
                Dim dr As DataRow = _
                DsnRegUpdate1.Tables("NewRegistration").NewRow()
                dr("Indexer") = r("Indexer")
                dr("RegistrationDate") = Now.Date()
                dr("StudentID") = Me.txtID.Text
                dr("FirstName") = Me.txtFName.Text
                dr("MiddelName") = Me.txtMiddelName.Text
                dr("MaidenName") = Me.txtMaidenName.Text
                dr("LastName") = Me.txtLName.Text
                dr("Major") = Me.txtMajor.Text
                dr("AcadimicYears") = r("AcadimicYears")
                dr("Semester") = CheckedRB
                dr("ST") = r("ST")
                dr("CourseDescriptions") = r("CourseDescription")
                dr("InstructorsName") = r("InstructorsName")
                dr("Dayes") = r("Dayes")
                dr("Times") = r("Times")
                dr("Buildings") = r("Buildings")
                dr("Rooms") = r("Rooms")
                dr("Midterm") = r("Midterm")
                dr("FinalExam") = r("FinalExam")
                dr("FinalExamTime") = r("FinalExamTime")
                dr("PrerequestCode") = r("PrerequestCode")
                dr("CreditHoures") = r("CreditHourse")
                dr("Types") = r("Types")
                dr("Ceiling") = r("Ceiling")
                dr("GPA") = GPASender
                dr("Warrning") = WarrningSender
                DsnRegUpdate1.Tables("NewRegistration").Rows.Add(dr)
                DANRegUpdate.Update(DsnRegUpdate1)

والله أعلم

وماذال مشروعى متزقف

اخوانى الاعزاء لا اعرف كيف اشكركم على حسن تعاونكم معى ولكن ماذال المشروع متوقف الى الان ولهذا ارجو من الله ان يوفقنى ويوفقكم فى فهم قصدى ان شاء الله

اشرح لكم مره اخرى مشروعى

مشروعى من جدول واحد الجدول بيه 5 اعمده هى

ID , Name, Type, Serial NO , File No

تظهر هذه الداتا فى الداتا جريد datagrid1 فى المشروع textbox1 اريد كتابه اى كلمه فى هذا التكست بوكسوعند ضغطى على bottun1 يتم مقارنه هذه الكلمه بما يشابها فى عمود الاسماء ويتم عرض هذا فى الداتا جريد وايضا اريد ان افعل بوتون عند الضغط عليه يمكننى ان اضيف صف اخر يمكننى به ان اضيف اسم جديد ويتم تسجيل هذا فى الداتا بيس

مرفق اليكم ال exe للمشروع افيدونى بالله عليكم

new.rar