 |
|
|
 |
 |
|
รูปแบบและโครงสร้างต่าง ๆ ใน Access ยังไงก็เวลาเปลี่ยนให้เป็น mysql ก็คงเดิมไว้
ส่วนคำสั่งในการเชื่อมต่อฐานข้อมูลก็คงต้องเปลี่ยนนิดหน่อยนะ เปลี่ยนแค่นี้แหละไม่มีไรมากมาย
ปามาณนี้แหละมั้ง
|
 |
 |
 |
 |
Date :
22 ธ.ค. 2548 16:12:45 |
By :
นายกระจอก |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
รูปแบบภายในไม่มีเปลี่ยนแปลงใช่ไหมครับ
พวกเงื่อนไข If else ต่าง ๆ ในการวนลูบให้แสดงผลด้วยหรือเปล่า
<%
rem on error resume next
rem aaa pcode=Request.Form("pcode")
prtype=Request.QueryString("ptype")
if prtype="" then ptype=request.form("ptype") end if
prsize=Request.QueryString("psize")
if prsize="" then ptype=request.form("psize") end if
prdesign=Request.QueryString("pdesign")
if prdesign="" then ptype=request.form("pdesign") end if
Set Conn=Server.CreateObject("ADODB.Connection")
acpath= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../baseproduct.mdb")
Conn.Open acpath
'-------- การเชื่อมเบสให้เป็นตามรูปแบบการเชื่อมต่อมาตรฐาน -----------------'
SQL="Select Productno , prdesceng , prgroup, prseq, prtypeno, prsizeno, prdesignno from product where practive=1 and prtypeno = 'XXX' order by Prsizeno, prdesignno"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL, conn, 1, 3
jj=RS.recordcount
RS.MoveFirst
%>
|
 |
 |
 |
 |
Date :
22 ธ.ค. 2548 23:43:01 |
By :
bupawan |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ส่วนของการติดต่อฐานข้อมูล
<%
Set conn=Server.CreateObject("ADODB.Connection")
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("xxxx.mdb") 'ติดต่อฐานข้อมูลของ ms access
conn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=databasename;UID=username;PWD=password; OPTION=3" 'ติดต่อฐานข้อมูลของ mySQL
%>
======
1. databasename = ชื่อฐานข้อมูลใน mysllql
2. username = ชื่อผู้ใช้หรือผู้สร้างฐานข้อมูลในข้อ 1
3. password = รหัสผ่านสำหรับผู้ใช้ในข้อ 1 ถ้าไม่มีก็ไม่ต้องใส่เว้นว่างไว้
4.
อ้อ..ก่อนอื่นท่านต้องติดตั้ง myodbc เสียก่อน หาดาวน์โหลดได้ที่ www.mysql.org นะครับ รู้สึกว่าจะเป็นเวอร์ชั่น 3.51
SQL="Select Productno , prdesceng , prgroup, prseq, prtypeno, prsizeno, prdesignno from product where practive=1 and prtypeno = 'XXX' order by Prsizeno, prdesignno"
Set RS = Server.CreateObject("ADODB.Recordset")
rs.CursorLocation = 3 'บรรทัดนี้ต้องเพิ่มลงไปด้วยเพราะว่าถ้าไม่กำหนดให้ cursor = 3 จะทำให้ได้ได้จำนวน rs.recordcount ไม่ถูกต้องนะครับและในเรื่องของการแบ่งหน้าแสดงก็จะไม่ถูกต้องด้วย
RS.Open SQL, conn, 1, 3
jj=RS.recordcount
RS.MoveFirst
ช=======
สมมติในฐานข้อมูลของ ms access มีตารางชื่อ tbltest มีฟิลด์ดังนี้
name text(20) ใน my sql ก็น่าจะเป็น name varchar(20)
birthday date/time (short date) ใน my sql ก็น่าจะเป็น birthday date
นี่แหละที่ผมกล่าวถึงว่าโครงสร้างของฐานข้อมูลใน access เป็นยังไงใน mysql ก็ควรจะเป็นแบบนั้นด้วย
เพราะจะทำให้ท่านไม่ต้องแก้ไขโค้ดของ asp เลย คำสั่งของ asp ทั้งหมดท่านก็คงเดิมไว้ไม่ต้องเปลี่ยนอะไรทั้งสิ้น
ปามาณนี้แหละนะ
|
 |
 |
 |
 |
Date :
23 ธ.ค. 2548 08:26:55 |
By :
นายกระจอก |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
ขอบคุณมากครับ ยังไม่ได้ลองดูเลยครับ
ถ้าลองวันไหนแล้วจะบอกครับผม
แต่น่าจะพอทำได้
|
 |
 |
 |
 |
Date :
28 ธ.ค. 2548 15:35:40 |
By :
bupawan |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
 |
|
|
 |
 |
|
แล้วถ้าอยากจะเชื่อมต่อระหว่าง vbกับmySqlล่ะ จะต้องใช้อะไรมาเชื่อมต่อช่วยบอกหน่อยน่ะค่ะ
|
 |
 |
 |
 |
Date :
31 มี.ค. 2551 19:12:38 |
By :
แป้นค่ะ |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
|