Только начал ковырять, так что прошу строго не судить.
Попробовал SELECT, INSERT, UPDATE, DELETE вроде пока все получается.
Для примера создал простенькую БД
Country
Rn INTEGERName_Country CHAR(50)Number_Country Numeric(3)0Россия11Франция22Германия33Италия44Англия55Португалия10
City
Rn_city INTEGERRn_Country INTEGERName_City CHAR(50)Name_State CHAR(100)10МоскваМосковская область20НовгородНовгородская область31ПарижФыва42БерлинОлдж
Кинул на форму 2 Grid'а и хотелось бы перемещаясь в Grid'е используещего в качестве источника курсор cCountry, чтобы во втором Grid'е отображалась инфа согласно отношениям между 2 таблицами.
Как реализовать?
Я пишу просто и наверное грубо. Упрощенный код, упуская соответсвующие методы грида:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
=SQLEXEC(m.gnConnHandle, "SELECT Rn, Name_Country, Number_Country FROM Country ;
ORDER BY Number_Country", "cCountry")
LOCAL lnSqlExec, laErrorArray[ 1 ], lnRn
SELECT cCountry
m.lnRn = cCountry.Rn
***************
m.lnSqlExec=SQLEXEC(m.gnConnHandle, "SELECT Rn_city, Rn_Country, Name_City, Name_State FROM City ;
ORDER BY Name_State, Name_City WHERE Rn_Country=?lnRn", "cCity")
IF m.lnSqlExec==- 1
= AERROR(m.laErrorArray)
* Анализ содержимого массива laError для уточнения причины ошибки
MESSAGEBOX(m.laErrorArray[ 1 , 3 ])
ENDIF
SELECT cCity
Пишет, что ошибка в WHERE, хотя такие запросы проходят:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
LOCAL lnSqlExec, laErrorArray[ 1 ], lcName_Country, lnNumber_Country, lnRn
*****
m.lnRn=cCountry.Rn
m.lcName_Country=ALLTRIM(ThisForm.text1.Value)
m.lnNumber_Country=ThisForm.text2.Value
*****
*!* m.lcName_Country="Испания"
*!* m.lnNumber_Country= 5
*****
=SQLSETPROP(m.gnConnHandle, "Transactions", 2 )
m.lnSqlExec=SQLEXEC(m.gnConnHandle, "UPDATE Country SET Name_Country=?lcName_Country, ;
Number_Country=?lnNumber_Country WHERE Rn=?lnRn")
IF m.lnSqlExec==- 1
= AERROR(m.laErrorArray)
* Анализ содержимого массива laError для уточнения причины ошибки
MESSAGEBOX(m.laErrorArray[ 1 , 3 ])
ENDIF
=SQLCOMMIT(gnConnHandle)
*****
Спасибо.
------------------------------------------------------------------------------------
Я во все дела суюсь -> всесторонне разовьюсь Visual FoxPro 8.0
