تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW
#1
السلام عليكم من فضلكم انا مبتدى فى VB.NET وكنت عاوز كود الاضافة والتعديل والحفظ والحذف من textbox الى datagridview
- ستدعاء بيانات صنف بمجرد كتابة الباركود
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

السؤال غير واضح؟

أرنا محاولاتك وسنقوم بالمساعدة ان شاءالله فالمنتدى ليس لحل الواجبات بل المساعدة في الحل

تحياتي
الرد }}}}
تم الشكر بواسطة:
#3
اخى الكريم انا مبتدى فى الفاجوال بيسيك 2008 وعملت مشروع بس اثناء الحفظ يقوم بالحفظ من textbox الى datagrid view ولا يظهر فى ال datagrid view الا بعد اغلاق البرنامج وفتحة من جديد


Imports System.Data
Imports System.Data.OleDb

Public Class Form1
Dim constr As String = "provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db7.mdb"
Dim sql As String = "select*from tb"
Dim con As New OleDbConnection(constr)
Dim ds As DataSet

Sub view()
Dim sql As String = "select*from tb"
If con.State Then con.Close()
con.Open()
Dim dr As New OleDbDataAdapter(sql, con)
Dim dt As New DataTable
dr.Fill(dt)
Me.DataGridView1.DataSource = dt
con.Close()
DataGridView1.Columns(0).HeaderText = "الاسم"
DataGridView1.Columns(1).HeaderText = "الباركود"
DataGridView1.Columns(2).HeaderText = "اسم المورد"
DataGridView1.Columns(3).HeaderText = "سعر التكلفة"
DataGridView1.Columns(4).HeaderText = "سعر البيع"
DataGridView1.Columns(5).HeaderText = "الكمية"
DataGridView1.Columns(0).Width = 200
DataGridView1.Columns(1).Width = 110
DataGridView1.Columns(2).Width = 110
DataGridView1.Columns(3).Width = 80
DataGridView1.Columns(4).Width = 80
DataGridView1.Columns(5).Width = 80




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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Me.Button1.Enabled = False

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
TextBox1.Text = DataGridView1.CurrentRow.Cells(0).Value.ToString()
TextBox2.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString()
TextBox3.Text = DataGridView1.CurrentRow.Cells(2).Value.ToString()
TextBox1.Text = DataGridView1.CurrentRow.Cells(3).Value.ToString()
TextBox2.Text = DataGridView1.CurrentRow.Cells(4).Value.ToString()
TextBox3.Text = DataGridView1.CurrentRow.Cells(5).Value.ToString()
End Sub

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click


End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

Me.Label7.Text = Now.Date + Now.TimeOfDay

End Sub

Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

End Sub

Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim sav As New OleDb.OleDbCommand
Dim con As New OleDbConnection(constr)
sav.Connection = con
sav.CommandType = CommandType.Text
sav.CommandText = "delete from tb(name,cod,spl,cost,price,quant)" & _
"values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
con.Open()
sav.ExecuteNonQuery()
MessageBox.Show(" تمت اضافة البيانات بنجاح ")
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
Exit Sub
End Try
End Sub

Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

End Sub

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

End Sub

Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim i As Integer
For i = 0 To DataGridView1.Rows.Count - 2

Next
Try
Dim sav As New OleDb.OleDbCommand
Dim con As New OleDbConnection(constr)
sav.Connection = con
sav.CommandType = CommandType.Text
sav.CommandText = "insert into tb(name,cod,spl,cost,price,quant)" & _
"values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "')"
con.Open()
sav.ExecuteNonQuery()
MessageBox.Show(" تمت اضافة البيانات بنجاح ")
Dim dr As New OleDbDataAdapter
Dim dt As New DataTable
dr.Update(dt)
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub




End Try
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Me.Close()

End Sub

Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs)
Label7.Text = Now.Date + Now.TimeOfDay

End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#4
ليش تستخدم عرض في اداة الشبيكة ومربعات النص؟
الا تكفي شبيكة البيانات بعرض البيانات؟
شوف المثال هنا
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#5
الرابط يوصلنا الي موفع الحليج دون تنزيل ملفات
الرد }}}}
تم الشكر بواسطة: tarek
#6
المثال من جديد


كود :
Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
    Dim con As New OleDbConnection(str)
    Dim ds As New DataSet
    Dim da As New OleDbDataAdapter("select tn from tb", con)
    Dim cm As New OleDbCommandBuilder(da)

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        da.Update(ds, "tb")
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub
    Sub gd()
        ds.Clear()
        DataGridView1.DataSource = Nothing

        da.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"
        DataGridView1.Columns(0).HeaderText = "الاسم"
        DataGridView1.Columns(0).Width = DataGridView1.Width - 10


    End Sub
End Class
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#7
اخونا الفاضل شكرا على اهتمامك بس الرابط مش شغال
الرد }}}}
تم الشكر بواسطة:
#8
بلى شغال
تاكد
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 174 04-11-16, 09:25 AM
آخر رد: thevirus
  التنبيه عند اضافة عميل makky 2 187 18-06-16, 07:22 PM
آخر رد: boudyonline
  [سؤال] في حالة حذف او اضافة صف جديد بالداتا جريد فيو عند التعديل لا تتأثر قاعدة البيانات ِAbou Sama 0 504 26-12-15, 03:52 AM
آخر رد: ِAbou Sama
  كيف يمكن عرض combobox بشرط معين في داخل datagridview البراء 6 1,048 29-11-15, 12:44 AM
آخر رد: abulayth
  [C#.NET] كيف امنع ال datagridview من الانتقال الي سطر اخر ؟ ahmednet_0001 3 344 09-11-15, 01:12 AM
آخر رد: mrimamm
  [سؤال] هل ممكن اضافة ملف اكسل الى الفيجوال دوت نت 2010 محمد مسافر 2 1,633 25-10-15, 10:46 AM
آخر رد: WAEL ABED
  [VB.NET] عرض محتويات حقل ملاحظات داخل DataGridView مبرمج بلا حدود 7 625 08-09-15, 11:15 PM
آخر رد: مبرمج بلا حدود
  [VB.NET] عرض حقل من نوع مذكرة داخل داة DataGridView مبرمج بلا حدود 0 247 07-09-15, 03:42 PM
آخر رد: مبرمج بلا حدود
  ابحث عن كود يقوم بالبحث داخل DataGridView عن طريق القيم داخل list box يرجى المساعدة moh61 4 854 04-09-15, 07:40 AM
آخر رد: khodor1985
  [VB.NET] ماهي الطريقة الامثل اضافة عدد من البيانات مع صورها قناص المدينة 9 911 31-08-15, 10:48 PM
آخر رد: قناص المدينة

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


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