เห็นเงียบ ๆ ก็ขอโพสหน่อยครับ
เดี๋ยวจะกลายเป็นเว็บร้างไป
….
เมื่อวันก่อน น้องโปรแกรมเมอร์ มีปัญหา เรื่อง insert update table ที่มี ฟิลด์ มากกว่า 100 ฟิลด์(ไม่รู้จะเก็บอะไรกันเยอะแยะ)
เช่น ข้อมูลบุคคล แบบสอบถาม ฯลฯ
ยิ่งเป็น php ด้วยแล้ว ก็มึนเลยครับ พิมพ์ผิดนิดเดียวก็ไม่ได้ เสียเวลานั่งไล่ กันอีกโข ถ้าเป็น .net ก็ดีหน่อย debug ง่ายๆ ขำ ๆ
โค๊ดก็ตามนี้ครับ ลองเอาไปปรับใช้กันดูนะครับ
(หวังเป็นอย่างยิ่งว่าจะเกิดประโยชน์บ้างไม่มากก็น้อย)

Dim rs As New ADODB.Recordset
Dim oField As ADODB.Field
Dim msgtext As Integer

Print #msgtext, ” ”

strsql = “select * from Employee”
Set rs = conn.Execute(strsql)
If rs.EOF = False Then
While Not rs.EOF
For Each oField In rs.Fields
Print msgtext, “” & oField.Value & “”
Next
Print msgtext, vbCrLf
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
End If
Close #msgtext