[mohssan]

السلام عليكم

انا عندي هاذا الكود

كود :

Label1.DataBindings.Add("Text", DataSet1, "Table1.name")

هاذا الكود يخلي الأسم يطلع في الليبل
ابغي اخليه يطلع في msgbox

[Genius Live]

كود :

Dim a As String
a.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(a)

[mohssan]

(23-02-14, 07:43 PM)Genius Live كتب :

كود :

Dim a As String
a.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(a)

ما ضبط

[Genius Live]

طيب جرب الكود ده

كود :

Label1.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(Label1.Text)

[mohssan]

(23-02-14, 08:20 PM)Genius Live كتب : طيب جرب الكود ده

كود :

Label1.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(Label1.Text)

يعني لازم يروح لليبل بعدين للمسغ بوك
ما يصير مباشرة

[سعود]

استخدم القارئ افضل datareader

[vbnetvbnet]

كود :

Dim WithEvents mBindingSource As New BindingSource

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    mBindingSource.DataSource = DataSet1

End Sub

Private Sub mBindingSource_PositionChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles mBindingSource.PositionChanged
    MsgBox(DataSet1.Tables("Table1").Rows(mBindingSource.Position).Item("name"))
End Sub

[سعود]

بارك الله فيك اخوي vbnetvbnet
مشاركتك ذكرتني بكود شبيه

كود :

Dim cu As String = ds.Tables("tb").Rows(Me.BindingContext(ds, "tb").Position).Item("tn")
        MsgBox(cu.ToString)

ds= dataset

[vbnetvbnet]

بارك الله فيك أخي سعود

هناك تصحيح، لأنه يبدو أنه تم استخدام المعالج في إضافة قاعدة البيانات

إيحث عن الـ BindingSource المضافة بواسطة المعالج تجدها أسفل نافذة التصميم وانسخ اسمها وضعه مكان كل كلمة xxxBindingSource في الكود التالي

كود :

Private Sub xxxBindingSource_PositionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xxxBindingSource.PositionChanged
    MsgBox(DataSet1.Tables("Table1").Rows(xxxBindingSource.Position).Item("name"))
End Sub