<% Option Explicit %> <html> <head> <title>ThaiCreate.Com ASP & MySQL Tutorial</title> </head> <body> <% Dim Conn,strSQL,objRec,arrField Set Conn = Server.Createobject("ADODB.Connection") Conn.Open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=localhost;UID=root; " & _ "pwd=root;database=mydatabase;option=16384;" strSQL = "SELECT * FROM customer" Set objRec = Server.CreateObject("ADODB.Recordset") objRec.Open strSQL, Conn, 1,3 Response.write "<b>Table customer have "& objRec.Fields.Count &" Fields.</b><br>" For Each arrField In objRec.Fields Response.write arrField.Name & "<br>" Next objRec.Close() Conn.Close() Set objRec = Nothing Set Conn = Nothing %> </body> </html>
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน Source Code 2.0 ของทีมงานไทยครีเอท
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 01
