تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد شاشة الادخال على شكل جدول
#1
السلام عليكم ورحمة الله
شباب عندى مشكلة فى البرنامج . اريد عمل شاشة ادخال فى شكل جدول به 6 اعمدة وعدد الصفوف متغير . لا ادرى الاداة المناسبة لعمل ذلك ارجو مساعدتكم وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
اخي الكريم

DataGridView شكلها كما تريد لادخال البيانات
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

يمكنك كما قال الأخ aftfm استخدم أداة الـ DatagridView وإليك الطريقة :
كود :
Imports System.Data.OleDb


Public Class Form1
    Dim CMD As OleDbCommand
    Dim DAPT As OleDbDataAdapter
    Dim CB As OleDbCommandBuilder
    Dim BS As BindingSource
    Dim DSet As DataSet
    Dim Con As New OleDbConnection("ضع هنا جملة الإتصال بقاعدة البيانات")


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try


            ' لتفعيل اختيار كل الصف عند الضغط علي أي خلية في الأداة
            Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect


            '**********************************************************


            CMD = New OleDbCommand("Select * from tbl", Con)
            DAPT = New OleDbDataAdapter(CMD)
            CB = New OleDbCommandBuilder(DAPT)
            DSet = New DataSet
            DSet.Clear()
            ' لا تحتاج إلي فتح الاتصال بقاعدة البيانات عند استخدام هذه الطريقة
            DAPT.Fill(DSet, "tbl")
            BS = New BindingSource(DSet, "tbl")


            Me.DataGridView1.DataSource = BS
            ' يمكنك إعادة تسمية أعمدة الأداة
            Me.DataGridView1.Columns(0).HeaderText = "رقم"
            Me.DataGridView1.Columns(1).HeaderText = "الاسم"
            Me.DataGridView1.Columns(2).HeaderText = "التلفون"


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Data")
        End Try


    End Sub




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' لحفظ الإضافة أو التعديل أو الحذف
        BS.EndEdit()
        DAPT.Update(DSet, "tbl")
    End Sub




End Class


* لحذف سجل من الأداة فقط حدد علي الصف المراد حذف واضغط علي مفتاح Delete من لوحة المفاتيح ليتم حذف السجل ثم اضغط علي زر حفظ لحفظ التعديلات .
* ويمكن أيضاً عمل زر للتراجع عن التعديلات من (إضافة ، حذف ، تعديل) ولكن لن يعمل التراجع إذا قمت بالفعل بضغط زر الحفظ مسبقاً وذلك كالتالي :

كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        BS.CancelEdit()
        DSet.RejectChanges()
    End Sub


****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#4
شكرا اخي الكريم aftfm


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

يمكنك كما قال الأخ aftfm استخدم أداة الـ DatagridView وإليك الطريقة :
كود :
Imports System.Data.OleDb


Public Class Form1
    Dim CMD As OleDbCommand
    Dim DAPT As OleDbDataAdapter
    Dim CB As OleDbCommandBuilder
    Dim BS As BindingSource
    Dim DSet As DataSet
    Dim Con As New OleDbConnection("ضع هنا جملة الإتصال بقاعدة البيانات")


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try


            ' لتفعيل اختيار كل الصف عند الضغط علي أي خلية في الأداة
            Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect


            '**********************************************************


            CMD = New OleDbCommand("Select * from tbl", Con)
            DAPT = New OleDbDataAdapter(CMD)
            CB = New OleDbCommandBuilder(DAPT)
            DSet = New DataSet
            DSet.Clear()
            ' لا تحتاج إلي فتح الاتصال بقاعدة البيانات عند استخدام هذه الطريقة
            DAPT.Fill(DSet, "tbl")
            BS = New BindingSource(DSet, "tbl")


            Me.DataGridView1.DataSource = BS
            ' يمكنك إعادة تسمية أعمدة الأداة
            Me.DataGridView1.Columns(0).HeaderText = "رقم"
            Me.DataGridView1.Columns(1).HeaderText = "الاسم"
            Me.DataGridView1.Columns(2).HeaderText = "التلفون"


        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Data")
        End Try


    End Sub




    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ' لحفظ الإضافة أو التعديل أو الحذف
        BS.EndEdit()
        DAPT.Update(DSet, "tbl")
    End Sub




End Class


* لحذف سجل من الأداة فقط حدد علي الصف المراد حذف واضغط علي مفتاح Delete من لوحة المفاتيح ليتم حذف السجل ثم اضغط علي زر حفظ لحفظ التعديلات .
* ويمكن أيضاً عمل زر للتراجع عن التعديلات من (إضافة ، حذف ، تعديل) ولكن لن يعمل التراجع إذا قمت بالفعل بضغط زر الحفظ مسبقاً وذلك كالتالي :

كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        BS.CancelEdit()
        DSet.RejectChanges()
    End Sub


****
***
**
*


شكرا جزيلا اخي kslawy . الكود الذى ارفقته لقاعدة بيانات Access وقاعدة بياناتى SQL Server 2008
الرد }}}}
تم الشكر بواسطة:
#5

ما في مشكلة أخي عدل الأكواد يعني [SIZE=4]OleDbDataAdapter
[/SIZE] حولها إلي SQLDataAdapter

[SIZE=5]وهكذا مع بقية الأكواد
[/SIZE]
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#6
kslawy كتب :
ما في مشكلة أخي عدل الأكواد يعني [SIZE=4]OleDbDataAdapter
[/SIZE] حولها إلي SQLDataAdapter

[SIZE=5]وهكذا مع بقية الأكواد
[/SIZE]


شكرا جزيلا اخي الكريم سوف اجرب تعديل الكود لكن عندى مشكلة عند اضافة data source لاستخدامها فى الـData Grid تظهر الرسالة
[ATTACH=CONFIG]1105[/ATTACH]
علما اننى استخدم sql server 2008 و visual studio 2005
ارجو المساعدة وشكرا


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#7
إجابة أكثر من رائعة.. الله يرحم والديكم.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] المساعدة في نقل سجلات من جدول الى جدول اخر مهندس حيدر 7 278 13-11-16, 02:16 PM
آخر رد: محمود بكرى
  [سؤال] اريد البدء في عمل برنامج متابعه مديونيات ولا اعرف كيف ابداء مروة الشرقاوي 4 101 07-11-16, 04:07 AM
آخر رد: مروة الشرقاوي
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 173 04-11-16, 09:25 AM
آخر رد: thevirus
  احتاج تصميم شاشة لحسبات الموظفين c# zfxcv 3 226 14-06-16, 07:45 AM
آخر رد: re7ab-cs
  اريد اعمل قاعدة بيانات لخزن فيديوهات ابراهيم كركوكي 6 210 05-06-16, 02:34 AM
آخر رد: khodor1985
  اريد اعمل برنامج يخزن اكواد كيف ابراهيم كركوكي 15 425 03-06-16, 11:18 PM
آخر رد: سعود
  ياجماعه اريد كتاب ado ابراهيم كركوكي 1 83 31-05-16, 01:16 AM
آخر رد: Adrees
  طلب مساعدة في كود تعديل بيانات جدول لو تكرمتم kofa 10 350 31-05-16, 12:10 AM
آخر رد: kofa
  [سؤال] نقل بيانات من جدول الى اخر shawq 1 247 22-04-16, 04:19 AM
آخر رد: khodor1985
  كيفية التأكد من تعبئة الحقول في جدول بقاعدة البيانات aftfm 6 332 06-04-16, 08:38 PM
آخر رد: aftfm

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم