منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > msgbox و قاعدة البيانات
نسخة كاملة : msgbox و قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .

mohssan

23-02-14, 04:01 PM
السلام عليكم

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

كود :
Label1.DataBindings.Add("Text", DataSet1, "Table1.name")

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

Genius Live

23-02-14, 07:43 PM
كود :
Dim a As String
a.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(a)
RolleyesRolleyesRolleyes

mohssan

23-02-14, 08:01 PM
(23-02-14, 07:43 PM)Genius Live كتب : [ -> ]
كود :
Dim a As String
a.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(a)
RolleyesRolleyesRolleyes

ما ضبط

Genius Live

23-02-14, 08:20 PM
طيب جرب الكود ده
كود :
Label1.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(Label1.Text)

RolleyesRolleyesRolleyes

mohssan

23-02-14, 09:38 PM
(23-02-14, 08:20 PM)Genius Live كتب : [ -> ]طيب جرب الكود ده
كود :
Label1.DataBindings.Add("Text", DataSet1, "Table1.name")
Msgbox(Label1.Text)

RolleyesRolleyesRolleyes

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

سعود

23-02-14, 09:46 PM
استخدم القارئ افضل datareader

vbnetvbnet

23-02-14, 10:32 PM
كود :
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

سعود

23-02-14, 11:15 PM
بارك الله فيك اخوي vbnetvbnet
مشاركتك ذكرتني بكود شبيه
كود :
Dim cu As String = ds.Tables("tb").Rows(Me.BindingContext(ds, "tb").Position).Item("tn")
        MsgBox(cu.ToString)
ds= dataset

vbnetvbnet

23-02-14, 11:24 PM
بارك الله فيك أخي سعود

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

إيحث عن الـ 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
منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب > قسم قواعد البيانات > قسم أسئلة قواعد البيانات تحت بيئة الـ.NET > msgbox و قاعدة البيانات