กระดานแสดงความคิดเห็น
Home
Contents
Articles
Quiz
Members
Sponsor
Print-friendly
MENU
ปรับปรุง : 2566-10-15 (กระดานแสดงความคิดเห็น)
เว็บเพจหน้านี้สำหรับผู้ดูแลเท่านั้น
รหัส secure
=>
นำตัวอักษร สีขาวบนพื้นแดง มาป้อนในช่องนี้
edit_topic_password =>
<center><table width=90% border=0 bgcolor=#000080><tr><td><font color=white size=4>adodb.connection เป็นวิธีที่ 3</td></tr></table><table width=90% bordercolor=#000080 border=1><tr><td bgcolor=white><br>' เพิ่ม reference ชื่อ Microsoft ActiveX Data Objects 2.0 Library<br /> ' http://www.expert2you.com/article1/2093/index.htm?page_no=1<br /> ' http://www.thaiio.com/cgi-bin/html/vhtml.pl?name=iotoday&topic=25<br /> <br /> Private Sub Form_Load()<br /> Set cn = New ADODB.Connection<br /> cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/Nwind.mdb;"<br /> cn.Open<br /> Dim sqlString As String<br /> Dim rs As ADODB.Recordset<br /> Set rs = New ADODB.Recordset<br /> rs.Open "select * from categories", cn<br /> txt = ""<br /> rs.Requery<br /> Do While Not rs.EOF<br /> txt = txt & rs.Fields("categoryid") & " " & rs.Fields("categoryname") & Chr(13)<br /> rs.MoveNext<br /> Loop<br /> MsgBox txt<br /> End Sub<br /> <br><br></td></tr><tr><td align=right bgcolor=black><font color=white><small><b>จากคุณ :</b> บุรินทร์ <a href=mailto:></a><a title='202.29.78.18'>.</a><br> 12:25am (15/07/06)</font></td></tr></table></center>