Dobrij denj, pitermax

Na temu MySQL&VFP
1. podkljuchenie sozdaju tak:
- v persdb.ini file estj peremennie ( dlja nastrojki)
[ODBC]
gcDRIVER = MySQL ODBC 3.51 Driver
gcUID = username
gcSTMT =
gcOPTION = 3
gcSOCKET =
gcPORT = 3306
gcPASSWORD =
;gcSERVER = 111.222.111.222
gcSERVER = localhost
gcDB =
gcDESC =
gsServer: ip adresa dlja udalennogo, localhost - dlja lokaljnogo

iz programmi prochitivaju eti peremennie:
gcDRIVER = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcDRIVER", "")
gcUID = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcUID", "")
gcSTMT = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcSTMT", "")
gcOPTION = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcOPTION", "")
gcSOCKET = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcSOCKET", "")
gcPORT = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcPORT", "")
gcPASSWORD = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcPASSWORD", "")
gcSERVER = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcSERVER", "")
gcDB = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcDB", "")
gcDESC = GetStr(SYS(5)+SYS(2003)+"\persdb.INI", "ODBC", "gcDESC", "")

v obschem poluchaju peremennie:
gcDRIVER = "MySQL ODBC 3.51 Driver"
gcUID = "username"
gcSTMT = ""
gcOPTION = "3"
gcSOCKET = ""
gcPORT = "3306"
gcPASSWORD = ""
;gcSERVER = "111.222.111.222"
gcSERVER = "localhost"
gcDB = ""
gcDESC =""

gcSERVER = "111.222.111.222" - ip adres udalennogo servera ili
gcSERVER = "localhost" - dlja localnoj mashini

iz nih sobiraju globaljnuju peremennuju:
gcODBC = '"'+'DRIVER='+gcDRIVER+';UID='+gcUID+';STMT='+gcSTMT+';OPTION='+gcOPTION+';SOCKET='+gcSOCKET+';PORT='+gcPORT+';PASSWORD='+gcPASSWORD+';SERVER='+gcSERVER+';DB='+gcDB+';DESC='+gcDESC+'"'

sozdaju soedinenie:
gnSoed = SQLSTRINGCONNECT(&gcODBC)

mozno proverjatj:
IF gnSoedD < 0
*** net coedinenija s serverom

else
*** estj coedinenija s serverom
endif

UDACHI!!!!

2. stroku sobiraju tak:
myCom ='INSERT INTO pers.amats(ip, str_ip, str_n, amats, alga, alga_tip, '
myCom = myCom + 'pie_dat, p_kods, pie_rik, pie_rik_dat, pie_rik_id) '
myCom = myCom + 'VALUES(?gcDIP, ?camn_IA, ?camn_STRUKT, ?camn_amats, ?namn_alga, ?camn_alga_tip, '
myCom = myCom + '?damn_pie_dat, ?camn_p_kods, ?camn_pie_rik, ?damn_pie_rik_dat, ?namn_pie_rik_id);'
= sqlexec(gnSoedD, myCom)
ili

myCom = 'UPDATE pers.vadit set numurs = ?vtnumurs, kateg = ?vtkateg, '
myCom = myCom + ' kas_izdev =?vtkas_izdev, izd_datums = ?vtizd_datums, lidz_datums = ?vtlidz_datums, '
myCom = myCom + ' staz =?vtstaz, anul = ?vtcanul, '
myCom = myCom + ' anul_datums =?vtanul_datums, anul_pric = ?vtanul_pric '
myCom = myCom + ' WHERE Id =?vtid AND ip = ?vtip;'
= SQLEXEC(gnSoedD, myCom)

ili
myCom = 'SELECT * FROM pers.vadit where IP =?gcDIP'
myCom = myCom + ' ORDER BY izd_datums; '
= sqlexec(gnSoedD, myCom, 'curVADIT')

curVADIT - imja cursora v cotorij vibirajutsja dannie

UDACHI!!!!.
Pavel