Create a connection:
lcStringCnxRemoto = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"SERVER=200.1.1.1;" + ;
"PORT=3333;" + ;
"UID=booking;" + ;
"PWD=booking;" + ;
"DATABASE=booking;" + ;
"OPTIONS=131329;"
lcStringCnxLocal = "DRIVER={MySQL ODBC 3.51 Driver};" + ;
"SERVER=localhost;" + ;
"UID=root;" + ;
"PWD=clave;" + ;
"DATABASE=booking;" + ;
"OPTIONS=131329;"
SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal)
Accesing data:
SQLSETPROP(0,"DispLogin" , 3 )
lnHandle = SQLSTRINGCONNECT(lcStringCnxLocal)
IF lnHandle > 0
cmd = SQLEXEC(lnHandle,"select QuantityRooms from roomtype","cur_roomtype")
IF cmd > 0
BROWSE
ELSE
AERROR(laErr)
MESSAGEBOX("Can't connect to mySQL. Error: " + CHR(13) + laErr[2])
ENDIF
USE IN cur_roomtype
SQLDISCONNECT(lnHandle)
ELSE
AERROR(laErr)
MESSAGEBOX("Can't connect to mySQL. Error: " + CHR(13) + laErr[2])
ENDIF
Creating complex sentences:
TEXT TO lcSQLcommand NOSHOW
SELECT Inventory.inventoryid, Inventory.date, Inventory.roomtypeid,
Inventory.sold, Roomtype.descrip, Roomtype.rooms
FROM inventory Inventory
INNER JOIN roomtype Roomtype
ON Inventory.roomtypeid = Roomtype.roomTypeID
ORDER BY Inventory.date DESC
ENDTEXT
cmd = SQLEXEC(lnHandle,lcSQLcommand)
Passing parameters to a query:
nValor = 12
cmd = SQLEXEC(lnHandle,"select QuantityRooms from roomtype where roomtypeid = ?nValor","cur_roomtype")
Calling a Stored Procedure:
SQLEXEC(lnHandle, "call myStoreProcedure(@param1)")
GOOD LUCK!
1,382 views
Usually answered in minutes!
×