วันศุกร์ที่ 27 ตุลาคม พ.ศ. 2549

FOxpro ร่วมกับ MYSQL แบบ pass-through

เป็นตัวอย่างของคำสั่งของ Foxpro ครับ



connectmy = ;

"Driver={MySQL ODBC 3.51 Driver};" + ;

"Server=192.168.1.100;" + ;

"UID=phadet;" + ;

"PASSWORD=enigma;" + ;

"Database=phadet;" +;

"Port=3306;" + ;

"STMT=set names tis620;"+; <-- หากไม่ใส่ตรงนี้จะทำให้ข้อความเป็น ????

"Option= 0;"

WAIT WINDOW connectmy

gnHandle = SQLSTRINGCONNECT(connectmy)

SELECT reserv

SCAN

sqltext="INSERT INTO phadet.reserv (rcode,cust_name,occupid,add1,add2) value ("

sqltext=sqltext + "'"+ALLTRIM(rcode)+"','"+ALLTRIM(cust_name)+"','"+ALLTRIM(occupid)+"','"+ALLTRIM(add1)+"','"+ALLTRIM(add2)+"')"

resulttext=SQLEXEC(gnHandle, sqltext)

ENDSCAN



*SQLEXEC(gnHandle, "SELECT * FROM customer")


= SQLDISCONNECT(gnHandle)



edit @ 2006/10/14 15:16:25
edit @ 2006/10/14 15:25:09

ไม่มีความคิดเห็น: