[سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40) +--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41) +--- الموضوع : [سؤال] كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW (/showthread.php?tid=1883) |
كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - atef_020 - 11-02-14 السلام عليكم من فضلكم انا مبتدى فى VB.NET وكنت عاوز كود الاضافة والتعديل والحفظ والحذف من textbox الى datagridview - ستدعاء بيانات صنف بمجرد كتابة الباركود RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - Sajad - 12-02-14 السلام عليكم السؤال غير واضح؟ أرنا محاولاتك وسنقوم بالمساعدة ان شاءالله فالمنتدى ليس لحل الواجبات بل المساعدة في الحل تحياتي RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - atef_020 - 17-02-14 اخى الكريم انا مبتدى فى الفاجوال بيسيك 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 RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - سعود - 17-02-14 ليش تستخدم عرض في اداة الشبيكة ومربعات النص؟ الا تكفي شبيكة البيانات بعرض البيانات؟ شوف المثال هنا RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - atefkhalf2004 - 18-02-14 الرابط يوصلنا الي موفع الحليج دون تنزيل ملفات RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - سعود - 18-02-14 المثال من جديد كود : Imports System.Data.OleDb RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - atef_020 - 18-02-14 اخونا الفاضل شكرا على اهتمامك بس الرابط مش شغال RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - سعود - 18-02-14 بلى شغال تاكد RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - mnsoor3404 - 30-07-21 اخواني اتصلت بقاعدة البينات وعندي غريد فيو واريد اعدل على البينات من تكس بوكس الى الداتا غريد فيو ويتحدث في قاعدة البينات اكسس Imports System.Data.OleDb Public Class Form2 Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source = C:\Users\hp\Desktop\mmmm.accdb") Dim da As New OleDbDataAdapter() Dim dt As New DataTable Sub Loed_data() dt.Clear() da = New OleDbDataAdapter("select * from mm1", con) da.Fill(dt) End Sub Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Loed_data() Mm2DataGridView.DataSource = dt End Sub Sub save() Dim save As New OleDbCommandBuilder(da) save.QuotePrefix = "[" save.QuoteSuffix = "]" da.Update(dt) dt.AcceptChanges() End Sub Private Sub Mm2DataGridView_SelectionChanged(sender As System.Object, e As System.EventArgs) Handles Mm2DataGridView.SelectionChanged Dim pas As String = BindingContext(dt).Position TextBox1.Text = dt.Rows(pas).Item(1) TextBox2.Text = dt.Rows(pas).Item(2) TextBox3.Text = dt.Rows(pas).Item(3) TextBox4.Text = dt.Rows(pas).Item(4) TextBox5.Text = dt.Rows(pas).Item(5) TextBox6.Text = dt.Rows(pas).Item(6) DateTimePicker1.Value = dt.Rows(pas).Item(7) DateTimePicker2.Value = dt.Rows(pas).Item(7) TextBox9.Text = dt.Rows(pas).Item(9) End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click dt.Rows.Add() Dim pas As String = BindingContext(dt).Position dt.Rows(pas).Item(1) = TextBox1.Text dt.Rows(pas).Item(2) = TextBox2.Text dt.Rows(pas).Item(3) = TextBox3.Text dt.Rows(pas).Item(4) = TextBox4.Text dt.Rows(pas).Item(5) = TextBox5.Text dt.Rows(pas).Item(6) = TextBox6.Text dt.Rows(pas).Item(7) = DateTimePicker1.Value.ToShortDateString dt.Rows(pas).Item(8) = DateTimePicker2.Value.ToShortDateString dt.Rows(pas).Item(9) = TextBox9.Text Loed_data() End Sub هذا كود التعديل لو تكرمتم معرفة الخطا قين حتى ما يعدل RE: كود اضافة وحفظ وتعديل والحذف فى DATAGRIDVIEW - a7med saba - 31-08-21 اول شيء انت تقوم بجلب الاتصال لقاعدة البيانات للداتا فريد حلو وعند حدث النقر على الداتا قريد يتم نقل بيانات الرو selected cellcurrent الى مربعات التكست بوكس و تعدل تعديلاتك على المربعات النصية وبوتن حفظ التعديل الجديد المتواجد في مربعات النصوص ومن ثم تحديث بيانات الداتا قريد مرة أخرى.. من خلال استعلام جديد كالبداية.. شرحت لك نصية لان الطلب غير واضح .. راجع خطوات الحل المطروحة بالرد وقم بتكرار المحاولة. واعتقد ان الخطاء حسب ما شاهدته من الكود تحديد نوع البيانات لكل مربع نص حسب نوع بيانات الرو المتواجد في الداتا بيس راجع هذا الرابط http://vb4arb.com/vb/showthread.php?tid=6968 |