+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال فى الداتا جريد فيو (/showthread.php?tid=27393)
سؤال فى الداتا جريد فيو - احمد خطاب - 11-11-18
لسلام عليكم عندى قاعدة بيانات مش عارف اعمل كود اضافة وتعديل وحفظ وبحث
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'load all colummns of 'table in access 2007
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
da = New OleDbDataAdapter("select *From custmer", con)
da.Fill(dt)
DataGridView1.DataSource = dt
RE: سؤال فى الداتا جريد فيو - rmnr - 11-11-18
هذا الكود يشمل الإضافة والتعديل والحذف في داخل الداتاجريد
زر لتحديث البيانات التي جرت داخل الداتاجريد في قاعدة البيانات
البحث بواسطة مربع نص
كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OleDb.12.0; Data Source=|DataDirectory|\Database1.accdb")
Dim da As New OleDbDataAdapter("Select * From [custmer]", con)
Dim dt As New DataTable
Dim WithEvents bind As New BindingSource
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
da.Fill(dt)
bind.DataSource = dt
DataGridView1.DataSource = bind
End Sub
Private Sub bind_PositionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles bind.PositionChanged
Me.Text = (bind.Position + 1) & " / " & bind.Count
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim bld As New OleDbCommandBuilder(da) With {.QuotePrefix = "]", .QuoteSuffix = "["}
da.Update(dt)
MsgBox("تم تحديث البيانات")
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
bind.Filter = "[cName] Like '%" & TextBox1.Text.Trim & "%'"
End SubRE: سؤال فى الداتا جريد فيو - احمد خطاب - 11-11-18
شكرا جدااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا اخى وصديقى العزيز هجرب الكود واكلم حضرتك