22-12-14, 01:19 AM
22-12-14, 01:25 AM
(22-12-14, 01:19 AM)sniperjawadino كتب : [ -> ]
أرجوا منك أخي سعود أن تعيد رفع المثال لأنه معطوب
شكرا مرة ثانية
الان انت تبي مساعدة ولا كيف ؟
وإن كان الموضوع خاص للاخ سعود ارسل له خاص بارك الله فيك هنا مكان بمجرد م تحط موضوع الكل يساعدك
تقبل مروري
22-12-14, 01:39 AM
فكرت في مراسلته أخي
بس مو وجدت أيقونة المراسلة
فأتمنى أن يشاهد الموضوع
كما أتمنى أن أجد عندك مثال مثله يستخدم DataBindings
بس مو وجدت أيقونة المراسلة
فأتمنى أن يشاهد الموضوع
كما أتمنى أن أجد عندك مثال مثله يستخدم 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
26-12-14, 03:41 PM
اخواني الاعزاء المكروه بالمنتدى صياغة عنوان باسم عضو بعينه.
يعني لو كان العنوان : "من لديه هذا المشروع" كل من حمل المثال سيساعد بتوفيره مرة اخرى.
سانظر الى الرابط..
الرابط لصورة اخي الكريم
ممكن تدلني على رابط الموضوع؟
اخي الكريم وجدت رابط الموضوع وحملت المرفوعويعمل بشكل جيد
وهو باصدار vs2013
اطلع على الرابط
يعني لو كان العنوان : "من لديه هذا المشروع" كل من حمل المثال سيساعد بتوفيره مرة اخرى.
سانظر الى الرابط..
الرابط لصورة اخي الكريم
ممكن تدلني على رابط الموضوع؟
اخي الكريم وجدت رابط الموضوع وحملت المرفوعويعمل بشكل جيد
وهو باصدار vs2013
اطلع على الرابط