10-04-13, 02:50 AM
قمت بكتاية هذا الكود لعرض طلاب الفصل 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
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