VFP7 VS Mysql

[doramon]

VFP7 VS Mysql

โค๊ด: Visual Fox Pro

1. sqlhanddle="Driver={Mysql ODBC 3.51 Driver};dsn=hos;Server=;PORT=3306;Uid=sa;Pwd=sa;Database=hos"
2. sqlcondb=SQLSTRINGCONNECT(sqlhanddle)
3. =sqlexec(sqlcondb,"SELECT * from patient")    
4.  
5.  
6.  
7.  

[woravet]

ของ อ.อ๊อด น่าจะ Connect ไม่ได้
น่าจะเป็น
กรณี 1
set talk off
close data
_server='192.168.1.1'
_user='sa'
_psw='sa'
_database='hos'ntoc(_database,0)
_connect = ;
"Driver={MySQL ODBC 3.51 Driver};" + ;
"Server=" + _server + ";" + ;
"UID=" + _user + ";" + ;
"PASSWORD=" + _psw + ";" + ;
"Database="+_database+";" +;
"Port=3306;" + ;
"Option= 0 ;"+;
"Stmt =set names tis620;"
_handle=sqlstringconnect(_connect)
if _handle>0
  ?'สามารถ Connect HOSxp ได้'
  =sqldisconect(_handle)
else
 =aerror(merror)
 ?'ไม่สามารถติดต่อ HOSxP ได้'
 ?merror(1,2)
endif
close data

[doramon]

ครับ อันนี้ผมส่งให้ มี รพ ที่เข้า เซ้ต  ผ่าน ODBC อยู่แล้วครับ
dsn=hos

ทดสอบแล้วครับว่าทำงานได้ครับ
จริงๆๆ มีตัวใหญ่ ที่ทำไว้ แบบ vfp2hosxp เต็ม ครับแต่ไม่ได้ทำต่อแล้ว
เอาไปใช้กับระบบโอน ข้อมูลครับ


อันนี้เป็นแบบ DSN Less ครับ ก็ดีครับไม่ต้องกำหนด DSN

[woravet]

กรณีที่ 2 โดยการสร้าง User DSN ขึ้นมา && สมมุติชื่อ hos
set talk off
close data
_handle=sqlconnect('hos')
if _handle>0
  ?'สามารถ Connect HOSxp ได้'
  =sqldisconect(_handle)
else
 =aerror(merror)
 ?'ไม่สามารถติดต่อ HOSxP ได้'
 ?merror(1,2)
endif
close data

โดยปกติผมจะใช้กรณีที่ 1 เพราะที่ รพ.เปลี่ยน IP กันบ่อยมาก
โดยสร้าง func รับค่าจาก C:\WINDOWS\HOS-WIN32.INI