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

قمت بكتاية هذا الكود لعرض طلاب الفصل 1 .. فجاءت رسالة كما في الصورة المرفقة

Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source = C:\Users\Tarek Ghonem\Desktop\db1.mdb; Jet OLEDBatabase Password=")

Dim sql As String = _
" SELECT * " & _
" FROM qw " & _
" where " & _
" class=@class "

Dim comm As New OleDb.OleDbCommand(Sql, conn)
comm.Parameters.AddWithValue("@class", 1)


Dim da As New OleDb.OleDbDataAdapter(comm)
Dim dt As New DataTable
Dim count = da.Fill(dt)

If count > 0 Then
'
End If

For Each r As DataRow In dt.Rows
'Me.ListBox1.Items.Add(r.Item("id"))
Next

السطر الأخير
بدل

If count > 0 Then
'
End If

For Each r As DataRow In dt.Rows
'Me.ListBox1.Items.Add(r.Item("id"))
Next


ضع
DataGridView1.DataSource = dt

والله واحشتنا يا اخ ابو رائد

learning.net كتب :والله واحشتنا يا اخ ابو رائد

الله يرض عليك

دعواتكم

@@أبورائد@@ كتب :تحوبل المشروع للعمل على x86

السلام عليكم ورحمة الله وبركاته

مرحبا بعودتك أخي الحبيب
افتقدناك كثيرا
أسأل الله أن يحفظكم ويبارك فيكم

بالتوفيق

sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته

مرحبا بعودتك أخي الحبيب
افتقدناك كثيرا
أسأل الله أن يحفظكم ويبارك فيكم

بالتوفيق

الله يرض عليك

دعواتكم

منقطع حاليا!

نحمده ونصلي على رسوله الكريم

[b]@@أبورائد@@[/b] ان شا الله غيبتك تكون خير، برجعتك اليوم على المنتدى فرحنا واطمنا عليك، وان شا الله ما تكون الا بخير وصحه وسلامه وكل الاعضاء يا رب....

يجب اعداد مايكروسفت افيس على الجهاز، او برنامج الاكسس....

الحمد لله على عودتك ابو رائد
انتا وابو ايهاب فى بينكم حاجه لله ههههههههه تغيبو مع بعض وتعودو مع بعض
اسئل الله الا يحرمنا منكم جميعا