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

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

مغلق
بدأه tycoonasw1 في 5 أبريل 2005 · 4 رد · 627 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

اعرفكم بنفسى مهندس عرفه معرزف من مصر لى اكثر من سنه بذاكر ال SQL server واخير بدائت من 3 اشهر اربط هذه الداتابيز ببرنامج ال VB,net والحمد لله بدائت فى مشروع قوى انهيت 70% من المشروع ومتوقف على مساعده منكم وهى

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

انتظر منكم الرد باذن الله

#2

أنا سأتجاهل الـ 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();
#3

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

#4

السلام عليكم

إذا وهذا شرط إذا كنت تستخدم 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

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

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

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

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

ID , Name, Type, Serial NO , File No

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

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

new.rar

هذا الموضوع مغلق.

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