تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب من الأخ " سعود "
#1

أرجوا منك أخي سعود أن تعيد رفع المثال لأنه معطوب
شكرا مرة ثانية

الرد }}}}
تم الشكر بواسطة:
#2
(22-12-14, 01:19 AM)sniperjawadino كتب :
أرجوا منك أخي سعود أن تعيد رفع المثال لأنه معطوب
شكرا مرة ثانية


الان انت تبي مساعدة ولا كيف ؟
وإن كان الموضوع خاص للاخ سعود ارسل له خاص بارك الله فيك هنا مكان بمجرد م تحط موضوع الكل يساعدك
تقبل مروري
Sad
Heart Heart
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}}
تم الشكر بواسطة: سعود , nabil1982
#3
فكرت في مراسلته أخي
بس مو وجدت أيقونة المراسلة

فأتمنى أن يشاهد الموضوع

كما أتمنى أن أجد عندك مثال مثله يستخدم DataBindings

كود :
Public Class Form1
  Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
  Dim con As New OleDb.OleDbConnection(str)
  Dim sql As String = "select * from tb"
  Dim dt As DataTable
  Dim bs As BindingSource
  Dim da As OleDb.OleDbDataAdapter
  Dim cm As OleDb.OleDbCommandBuilder

  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
      dt = New DataTable
      bs = New BindingSource
      da = New OleDb.OleDbDataAdapter(sql, con)
      cm = New OleDb.OleDbCommandBuilder(da)
      da.Fill(dt)
      bs.DataSource = dt

      tid.DataBindings.Add("text", bs, "tid")
      tn.DataBindings.Add("text", bs, "tn")
      age.DataBindings.Add("text", bs, "age")
      mo.DataBindings.Add("text", bs, "mo")

      d.DataSource = bs


  End Sub

  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
      bs.MoveNext()
  End Sub

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
      bs.MovePrevious()
  End Sub

  Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
      bs.MoveFirst()
  End Sub

  Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
      bs.MoveLast()
  End Sub

  Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
      If MsgBox("هل انت متاكد من رغبتك باضافة صف جديد؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
      bs.AddNew()
  End Sub

 

  Private Sub btnupd_Click(sender As Object, e As EventArgs) Handles btnupd.Click
      If MsgBox("هل انت متاكد من رغبتك بحفظ ", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
      bs.EndEdit()
      da.Update(bs.DataSource)
  End Sub

  Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
      If MsgBox("هل انت متاكد من رغبتك بحفظ الصف الحالي كمعدل؟", MsgBoxStyle.YesNo) = MsgBoxResult.No Then Exit Sub
      Dim drv As DataRowView = bs.Current
      drv(1) = tn.Text
      drv(2) = age.Text
      drv(3) = mo.Text
   
  End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#4
اخواني الاعزاء المكروه بالمنتدى صياغة عنوان باسم عضو بعينه.
يعني لو كان العنوان : "من لديه هذا المشروع" كل من حمل المثال سيساعد بتوفيره مرة اخرى.
سانظر الى الرابط..

الرابط لصورة اخي الكريم
ممكن تدلني على رابط الموضوع؟

اخي الكريم وجدت رابط الموضوع وحملت المرفوعويعمل بشكل جيد
وهو باصدار vs2013
اطلع على الرابط
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اخي سعود فضلا وليس امرا بخصوص فكرتك للترجمة الفورمات 0theghost0 10 305 18-07-16, 06:23 PM
آخر رد: 0theghost0
  الاخ سعود احتاج مساعدتك بخصوص نشر معلومات تحديث البرنامج led 8 973 23-10-14, 10:04 PM
آخر رد: led
  كود تشفير (اجتهاد من اخيكم سعود) سعود 5 819 11-04-13, 12:06 AM
آخر رد: سعود

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


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