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)