Contoh dalam artikel ini menjelaskan metode VB mengembalikan hasil recordset ke tabel HTML. Bagikan dengan semua orang untuk referensi Anda. Metode implementasi spesifiknya adalah sebagai berikut:
function ReturnHTMLTable(query) set rs = cn.Execute(query) rs.MoveFirst respon.Tulis "<tabledata"" cols=""" & rs.Fields.Count & """>" respon.Tulis "<tr>" Untuk Setiap oField Di rs.Fields respon.Tulis "<th>" & oField.Name & "</th>" Respon berikutnya.Tulis "</tr>" Lakukan Sementara Tidak rs.EOF respon.Tulis "<tr>" Untuk Setiap oField Di rs.Fields respon.Tulis "<td>" Jika IsNull(oField) Kemudian respon.Tulis " " Lain respon.Tulis oField.Nilai Akhir Jika respon.Tulis " </td>" Respons rs.MoveNext berikutnya. Tulis "</tr>" Respon loop. Tulis "</table>" fungsi akhir
Saya harap artikel ini bermanfaat untuk pemrograman VB semua orang.