يصف المثال الموجود في هذه المقالة طريقة VB لإرجاع نتائج مجموعة السجلات إلى جداول HTML. شاركها مع الجميع لتكون مرجعا لك. طريقة التنفيذ المحددة هي كما يلي:
تعيين وظيفة ReturnHTMLTable(استعلام) rs = cn.Execute(query) rs.MoveFirst Response.Write "<tabledata"" cols = """ & rs.Fields.Count & """>" استجابة. كتابة "<tr>" لكل حقل في استجابة rs.Fields.اكتب "<th>" وoField.Name و"</th>" الاستجابة التالية.اكتب "</tr>" افعل بينما لا استجابة rs.EOF.اكتب "<tr>" لكل حقل في rs.Fields استجابة. اكتب "<td>" إذا كان IsNull(oField) ثم الاستجابة. اكتب " " استجابة أخرى. اكتب oField.Value End إذا استجابة. اكتب " </td>" استجابة rs.MoveNext التالية. كتابة "</tr>" استجابة متكررة. كتابة "</table>" وظيفة النهاية
آمل أن تكون هذه المقالة مفيدة لبرمجة VB للجميع.