تقييم الموضوع :
  • 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
إجابة أكثر من رائعة.. الله يرحم والديكم.
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد امثلة على هذه الدوال floor , substr , instr , replce في الاوراكل غدير الصليحي 0 788 14-12-21, 12:51 PM
آخر رد: غدير الصليحي
  اريد دمج استعلامين بسام محمدغانم 6 1,561 10-11-21, 04:50 AM
آخر رد: بسام محمدغانم
  استعلام يرجع اسماء الاعمدة و نوع البيانات في جدول معين بسام محمدغانم 0 964 23-10-21, 01:43 AM
آخر رد: بسام محمدغانم
  [Acces2010] اريد تعديل الكود للاكسس بسام محمدغانم 0 833 13-10-21, 09:14 PM
آخر رد: بسام محمدغانم
  اريد ربط 3 جداول (relation ship) فى sql server سلام و محبه 0 1,250 23-01-21, 08:10 PM
آخر رد: سلام و محبه
  اريد ترقية قاعدة بيانات برنامجي فإلى ايهم تقترحوا علي alfaiz678 5 3,100 22-11-20, 10:10 PM
آخر رد: sendbad100
  اريد عمل تواصل بين الادارات عن طريق ال SQL Serverو الدوت نت الحزين اوى 1 1,387 02-07-20, 09:47 AM
آخر رد: kiki
  [سؤال] نقل البيانات من جدول إلى أخر SQL Server 2008 semsemalex 7 14,787 19-04-20, 12:00 AM
آخر رد: essamprog2020
  اريد فكرة الطرح والجمع من داخل قاعدة البيانات مراد بورجي 2 2,288 28-12-19, 07:41 PM
آخر رد: مراد بورجي
  [SQL] اريد استعلام يظهر لي الناتج بهذه الصورة alfaiz678 8 3,394 30-11-19, 12:16 PM
آخر رد: alfaiz678

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


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