Download : dthai97.mdb 70 KB (อยู่ในห้องที่ซ่อนไว้)
ตัวอย่าง dlist1.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSNLess ด้วย Microsoft access (ตัวอย่างนี้ใช้ recordset)
<%
set rs = server.createobject("adodb.recordset")
' conn = "driver={microsoft access driver (*.mdb)}; dbq=d:\thaiall.com\asp\dthai97.mdb;"
conn = "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("dthai97.mdb")
sql = "select * from tbthai"
rs.open sql, conn, 1, 3
response.write("Total record : "& rs.recordcount & "<br>")
do while not rs.eof
response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>")
rs.MoveNext
loop
rs.close
set rs = nothing
' rs.pagesize = 5
' totalpage = rs.pagecount
' pg = 1
' rs.absolutepage = pg
%>
ตัวอย่าง dlist2.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSNLess ด้วย Microsoft access (ใช้ execute SQL)
<%
set conn = server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("dthai97.mdb")
sql = "select * from tbthai"
set rs = conn.execute(sql)
do while not rs.eof
response.write(rs("fid") & " ")
response.write(rs("fname") & " ")
response.write(rs("fsalary") & "<br>")
rs.MoveNext
loop
conn.close
set rs = nothing
set conn = nothing
%>
ตัวอย่าง dlist3.asp :
การเชื่อมต่อฐานข้อมูลแบบ OLEDB Provider ด้วย Microsoft jet (ใช้ได้ทั้ง MS Access และ MS Excel)
<%
set conn = server.createobject("adodb.connection")
' conn.open "provider=microsoft.jet.oledb.4.0; data source=c:\thai.xls; extended properties=""excel 8.0; hdr=yes"";"
' conn.open "driver={mysql}; server=localhost; database=dthai; uid=; pwd=;"
' conn.open "driver={sql server}; server=localhost; database=dthai; uid=sa; pwd=;"
' conn.open "driver={microsoft odbc for oracle}; server=oracleserver; uid=; pwd=;"
' conn.open "driver={microsoft access driver (*.mdb)}; dbq=" & server.mappath("dthai97.mdb")
' conn.open "driver={microsoft access driver (*.mdb)}; dbq=d:\thaiall.com\asp\dthai97.mdb;"
conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("dthai97.mdb")
' conn.execute("delete * from tbthai") บรรทัดนี้เพิ่มได้ แต่ผลคือไม่แสดงอะไรนะครับ
sql = "select * from tbthai"
set rs = conn.execute(sql)
do while not rs.eof
response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>")
rs.MoveNext
loop
conn.close
set rs = nothing
set conn = nothing
%>
ตัวอย่าง dlist4.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSN (Data Source Name) ที่ไม่ใช้ recordset
<%
' xdthai97 คือ Data Source Name ที่ถูกสร้างด้วย ODBC Data source ใน control panel
' ให้เลือก User DSN, Add, Microsoft Access Drriver.. , Finish
' แล้วพิมพ์ xdthai97 ในช่อง Data Source Name แล้วอย่าพึ่งกดปุ่ม OK
' ให้กดปุ่ม Select เพื่อเลือกแฟ้มชื่อ dthai97.mdb ที่อยู่ในคอมพิวเตอร์ แล้วกดปุ่ม OK
' ผลการเพิ่ม จะพบ xdthai97 อยู่ในส่วนของ User DSN ซึ่งจะชี้ไป dthai97.mdb อัตโนมัติ
' conn.open "dsn=xdthai97;uid;pwd;" ก็ใช้ได้
set conn = server.createobject("adodb.connection")
conn.open "xdthai97", "", ""
sql = "select * from tbthai"
set rs = conn.execute(sql)
do while not rs.eof
response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>")
rs.MoveNext
loop
conn.close
set rs = nothing
set conn = nothing
%>
ตัวอย่าง dlist5.asp :
การเชื่อมต่อฐานข้อมูลแบบ DSN (Data Source Name) ที่ใช้ recordset
ทดสอบ DSN ที่เชื่อมต่อกับ MYSQL ในเครื่องที่ลง MYODBC แล้วก็ ok มีตัวอย่างที่ http://www.thaiall.com/mysql เช่นกัน
<%
set conn = server.createobject("adodb.connection")
conn.open "xdthai97", "", ""
set rs = server.createobject("adodb.recordset")
sql = "select * from tbthai"
rs.open sql, conn, 1, 3
do while not rs.eof
response.write(rs("fid") & " " & rs("fname") & " " & rs("fsalary") & "<br>")
rs.MoveNext
loop
conn.close
set rs = nothing
set conn = nothing
%>
ตัวอย่าง dlist6.asp :
การเชื่อมต่อฐานข้อมูล MYSQL ในเครื่องที่ลง MYODBC มีตัวอย่างที่ http://www.thaiall.com/mysql
ถ้าเครื่องที่เชื่อมต่อชื่อ localhost ฐานข้อมูลชื่อ test ส่วน user และ password คือ u และ p
<%
ConnString = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=test;uid=u;password=p;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnString
Set rs = conn.Execute("SELECT * FROM cust")
do while not rs.eof
response.write(rs("cust") & " " & rs("custname") & "<br>")
rs.MoveNext
loop
conn.close
set rs = nothing
set conn = nothing
%>
ตัวอย่าง upd_dthai97.asp :
รวมการ เพิ่ม ลบ แก้ไข และแสดง ในโปรแกรเดียวกัน และทำงานร่วมกับ iframe
|
ตัวอย่าง Web Screen
|
การเชื่อมต่อแบบอื่น
Other Connection String : http://www.carlprothman.net/Default.aspx?tabid=81
1. การเชื่อมต่อฐานข้อมูลแบบ OLEDB Provider ด้วย Active Directory service
conn.open "PROVIDER=ADSDSObject;USER ID=Admin;PASSWORD=;"
2. การเชื่อมต่อฐานข้อมูลแบบ OLEDB Provider ด้วย Microsoft SQL server (ธรรมดา)
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL Server;" &_
"INITIAL CATALOG=Member;USER ID=sa;PASSWORD=;"
3. การเชื่อมต่อฐานข้อมูลแบบ OLEDB Provider ด้วย Microsoft SQL server (IP address)
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=202.29.0.1, 1433;" &_
"NETWORK LIBRARY=DBMSSOCN;INITIAL CATALOG=Member;USER ID=sa;PASSWORD=;"
4. การเชื่อมต่อฐานข้อมูลแบบ OLEDB Provider ด้วย Microsoft excel
conn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=c:\member.xls;"&_
"extended properties=""Excel 8.0; HDR=Yes"";"
การอ่านข้อมูลจาก .xls ด้วย ASP
:: ตัวอย่างนี้กำหนด ชื่อ พื้นที่ ที่จะ select ข้อมูลมาใช้
:: Right click to download [ dthai97.xls 13 KB ]
<%
fxls = "dthai97.xls"
tbname = "dthai1"
f1 = "eid"
f2 = "ename"
' ===============================================
' 2 method : ok
' dv = "driver={microsoft excel driver (*.xls)}; dbq=" & server.mappath(fxls)
' dv = dv & "; extended properties='excel 8.0; hdr=yes';"
dv = "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath(fxls)
dv = dv & "; extended properties='excel 8.0; hdr=yes';"
set conn = server.createobject("adodb.connection")
conn.open dv
sql = "select * from " & tbname
set rs = conn.execute(sql)
do while not rs.eof
response.write(rs(f1) & " " & rs(f2) & "<br>")
rs.MoveNext
loop
conn.close
set rs = nothing
set conn = nothing
%>
การติดต่อกับ crystal report
:: คุณ unesco@thaimail.com ถามผม และส่ง code มาให้ ช่วงนี้ยังไม่ได้ศึกษา แต่ copy ไว้ก่อน
:: ตัวอย่างข้างล่างนี้ยังไม่ ok คำถามคือจะเอาข้อมูลเขียนลง crystal report ยังไง ซึ่งผมก็ตอบไม่ได้
Dim Cn,Rs,Rp,App
Set Conn=Server.Createobject("ADODB.Connection")
conn.open ("myoffice")
set rs = server.createobject("adodb.recordset")
rs.activeconnection=conn
rs.open "select rid, rname from resource"
Set App = Server.CreateObject("CrystalRuntime.Application")
set rp = app.openreport("c:\inetpub\wwwroot\resource.rpt")
rp.sections(1).suppress = true
rp.sections(2).height=2000
set fd=rp.sections(2).addtextobject("ใบเสนอราคา",3000,1000)
fd.width = 5000 : fd.height=500
fd.font.name="AngsanaUPC"
fd.font.size=18
|
