يا اخوانا عايز اعرض محتويات الجدول tas فى MSFlexGrid1 ما الحل
Private Sub Form_Load()
Dim MSFlexGrid1 As MSFlexGrid
cn.Provider = "Microsoft.JET.OLEDB.4.0;"
cn.Open App.Path & "\db11.mdb"
rs.Open "[tas]", cn, adOpenStatic, adLockReadOnly
SQL5 = "select * from tas "
Set rs = cn.Execute(SQL5)
set MSFlexGrid1.datasource=rs
For i = 1 To n
MSFlexGrid1.Row = i
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = rs("Class")
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = rs("price")
MSFlexGrid1.Col = 3
MSFlexGrid1.Text = rs("quant")
MSFlexGrid1.Col = 4
MSFlexGrid1.Text = rs("total")
rs.MoveNext
Next i
مرسل مرفق برجاء التعديل عليه
End Sub
