هلا

[دمعة فرح]

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


البرنامج المرفق اعلاة هو عبارة عن هذا الكود ، لمن اراد الاطلاع السريع



coderivate Sub Command1_Click()
Dim rs As New ADODB.Recordset
Dim I As Long


rs.Open "http://www.dx4arab.com/download/user/recst.bin"
MSFlexGrid1.Rows = 1
MSFlexGrid1.Cols = rs.Fields.Count
For I = 0 To rs.Fields.Count - 1
MSFlexGrid1.****Matrix(0, I) = rs.Fields(I).Name
Next I

Do Until rs.EOF
fldbuf = ""
For I = 0 To rs.Fields.Count - 1
fldbuf = fldbuf & rs.Fields(I) & Chr(9)
Next I
MSFlexGrid1.AddItem fldbuf
rs.MoveNext
Loop

End Sub




تحياتي للجميع