Day: May 9, 2023

sqlhanddle=”Driver={Mysql ODBC 3.51 Driver};dsn=hosxp;Server=localhost;Uid=sa;Pwd=sa;Database=hos”

sqlcondb=SQLSTRINGCONNECT(sqlhanddle)

?sqlcondb

IF sqlcondb > 0

= SQLEXEC(sqlcondb,’select * from patient limit 100′ ,’patient’)

= SQLEXEC(sqlcondb,’select * from ovst limit 100′ ,’ovst’)

SELECT * from  patient INTO CURSOR cursor1

SELECT cursor1

BROWSE

= SQLDISCONNECT(sqlcondb)

ELSE

= MESSAGEBOX(“no”,0)

ENDIF

RETURN