تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال فى الداتا جريد فيو
#1
لسلام عليكم عندى قاعدة بيانات مش عارف اعمل كود اضافة وتعديل وحفظ وبحث

  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
الرد
تم الشكر بواسطة:
#2
هذا الكود يشمل الإضافة والتعديل والحذف في داخل الداتاجريد
زر لتحديث البيانات التي جرت داخل الداتاجريد في قاعدة البيانات
البحث بواسطة مربع نص
كود :
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 Sub
الرد
تم الشكر بواسطة: elgokr , elgokr , larbihamri
#3
شكرا جدااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا اخى وصديقى العزيز هجرب الكود واكلم حضرتك
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حساب مجموع ما في الداتا جريد فيو لكل صف alshandodi 8 244 20-05-19, 05:37 PM
آخر رد: alshandodi
  [سؤال] سلام سؤال تحويل رابط حاتمي 5 105 16-05-19, 02:29 PM
آخر رد: elgokr
  عمل استعلام بدلالة الصفوف المختارة من الداتا جريد makky 2 143 09-05-19, 05:11 PM
آخر رد: makky
  [VB.NET] كود عدد الحقول في الداتا اسامه الهرماوي 6 140 07-05-19, 10:59 PM
آخر رد: ابراهيم ايبو
  سورس كود لوضع زر امر داخل الداتا جريد فيو احمد129 2 131 01-05-19, 12:45 PM
آخر رد: DK-x
  سؤال بخصوص نقل بيانات faysal13_13@hotmail.com 1 89 27-04-19, 10:32 PM
آخر رد: saoud2
  [VB.NET] سؤال بخصوص فتح الشاشات khalid475 3 99 25-04-19, 09:18 PM
آخر رد: elgokr
  [VB.NET] سؤال بخصوص datetimepicker في الداتا جريد فيو jassim316 7 162 25-04-19, 09:28 AM
آخر رد: elgokr
  اريد كود عرض الصورة من مسار فى اليست او جريد new_programer 13 293 24-04-19, 09:41 PM
آخر رد: elgokr
  اضافة صف جديد لدلتا جريد مرتبط nourmandour 5 100 24-04-19, 02:46 PM
آخر رد: elgokr

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


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