VS:DBObjSQLGetRead: Difference between revisions
Jump to navigation
Jump to search
m (1 revision) |
No edit summary |
||
(2 intermediate revisions by the same user not shown) | |||
Line 6: | Line 6: | ||
----------------------------------------------------------------------------------------------------------- | ----------------------------------------------------------------------------------------------------------- | ||
<desc> | <desc> | ||
Get an object's SQL | Get an object's SQL query for ODBC read.</desc> | ||
----------------------------------------------------------------------------------------------------------- | ----------------------------------------------------------------------------------------------------------- | ||
<def> | <def> | ||
<funcDef lang="vs"> | <funcDef lang="vs"> | ||
FUNCTION DBObjSQLGetRead( | FUNCTION DBObjSQLGetRead(hRecord:HANDLE; VAR SQLSentence:DYNARRAY[] of CHAR) : BOOLEAN; | ||
</funcDef> | </funcDef> | ||
<funcDef lang="py"> | <funcDef lang="py"> | ||
def vs.DBObjSQLGetRead( | def vs.DBObjSQLGetRead(hRecord): | ||
return (BOOLEAN, SQLSentence) | return (BOOLEAN, SQLSentence) | ||
</funcDef> | </funcDef> | ||
Line 23: | Line 23: | ||
<lineList ident=1> | <lineList ident=1> | ||
<line> | <line> | ||
hRecord | |||
HANDLE | HANDLE | ||
Line 39: | Line 39: | ||
----------------------------------------------------------------------------------------------------------- | ----------------------------------------------------------------------------------------------------------- | ||
<sample></sample> | <sample> | ||
==== VectorScript ==== | |||
<code lang="pas"> | |||
PROCEDURE Test; | |||
VAR | |||
recordName, query : DYNARRAY [] OF CHAR; | |||
hCurrentLayer, hCurrentObject, hRecord : HANDLE; | |||
i, cnt : LONGINT; | |||
res : BOOLEAN; | |||
BEGIN | |||
hRecord := NIL; | |||
{Select only objects with record attached} | |||
recordName := 'TestRecord'; | |||
DSelectAll; | |||
SelectObj(INSYMBOL & INVIEWPORT & (R IN [recordName ])); | |||
{Get quesries of selected object} | |||
hCurrentLayer := FLayer; { first layer } | |||
while (hCurrentLayer <> NIL) do { loop through all the layers } | |||
begin | |||
hCurrentObject := FSObject(hCurrentLayer); { first selected object in layer } | |||
while hCurrentObject <> NIL do { loop through all the objects } | |||
begin | |||
{find the record} | |||
cnt := NumRecords(hCurrentObject ); | |||
for i := 1 to cnt do | |||
begin | |||
hRecord := GetRecord(hCurrentObject , i); | |||
if hRecord <> NIL then begin | |||
if GetName(hRecord) = recordName then begin | |||
res := DBObjSQLGetRead(hRecord, query); | |||
AlrtDialog(query); | |||
end; | |||
end; | |||
end; | |||
hCurrentObject := NextSObj(hCurrentObject); { next selected object } | |||
end; | |||
hCurrentLayer := NextLayer(hCurrentLayer); { next layer } | |||
end; | |||
END; | |||
RUN(Test); | |||
</code> | |||
==== Python ==== | |||
<code lang="py"> | |||
import vs | |||
def Test(): | |||
hRecord = vs.Handle() | |||
#Select only objects with record attached | |||
recordName = 'TestRecord' | |||
vs.DSelectAll() | |||
vs.SelectObj("INSYMBOL & INVIEWPORT & (R IN ['" + recordName + "'])" ) | |||
#Get quesries of selected object | |||
hCurrentLayer = vs.FLayer() #First Layer | |||
while hCurrentLayer != vs.Handle(): #loot through layers | |||
hCurrentObject = vs.FSObject(hCurrentLayer) #first selected object | |||
while hCurrentObject != vs.Handle(): #loop through all the objects | |||
#find the object | |||
cnt = vs.NumRecords(hCurrentObject) | |||
for i in range(0,cnt): | |||
hRecord = vs.GetRecord(hCurrentObject, i + 1) | |||
if hRecord != vs.Handle(): | |||
if vs.GetName(hRecord) == recordName: | |||
res, query = vs.DBObjSQLGetRead(hRecord) | |||
vs.AlrtDialog(query) | |||
hCurrentObject = vs.NextSObj(hCurrentObject) | |||
hCurrentLayer = vs.NextLayer(hCurrentLayer) | |||
Test() | |||
</code> | |||
</sample> | |||
----------------------------------------------------------------------------------------------------------- | ----------------------------------------------------------------------------------------------------------- |
Latest revision as of 13:44, 4 November 2015
.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix
Description
Get an object's SQL query for ODBC read.
FUNCTION DBObjSQLGetRead(
hRecord :HANDLE;
VAR SQLSentence :DYNARRAY[] of CHAR) : BOOLEAN;
def vs.DBObjSQLGetRead(hRecord): return (BOOLEAN, SQLSentence)
Parameters
hRecord HANDLE SQLSentence DYNARRAY[] of CHAR
Example
VectorScript
PROCEDURE Test; VAR recordName, query : DYNARRAY [] OF CHAR; hCurrentLayer, hCurrentObject, hRecord : HANDLE; i, cnt : LONGINT; res : BOOLEAN; BEGIN hRecord := NIL; {Select only objects with record attached} recordName := 'TestRecord'; DSelectAll; SelectObj(INSYMBOL & INVIEWPORT & (R IN [recordName ])); {Get quesries of selected object} hCurrentLayer := FLayer; { first layer } while (hCurrentLayer <> NIL) do { loop through all the layers } begin hCurrentObject := FSObject(hCurrentLayer); { first selected object in layer } while hCurrentObject <> NIL do { loop through all the objects } begin {find the record} cnt := NumRecords(hCurrentObject ); for i := 1 to cnt do begin hRecord := GetRecord(hCurrentObject , i); if hRecord <> NIL then begin if GetName(hRecord) = recordName then begin res := DBObjSQLGetRead(hRecord, query); AlrtDialog(query); end; end; end; hCurrentObject := NextSObj(hCurrentObject); { next selected object } end; hCurrentLayer := NextLayer(hCurrentLayer); { next layer } end; END; RUN(Test);
Python
import vs def Test(): hRecord = vs.Handle() #Select only objects with record attached recordName = 'TestRecord' vs.DSelectAll() vs.SelectObj("INSYMBOL & INVIEWPORT & (R IN ['" + recordName + "'])" ) #Get quesries of selected object hCurrentLayer = vs.FLayer() #First Layer while hCurrentLayer != vs.Handle(): #loot through layers hCurrentObject = vs.FSObject(hCurrentLayer) #first selected object while hCurrentObject != vs.Handle(): #loop through all the objects #find the object cnt = vs.NumRecords(hCurrentObject) for i in range(0,cnt): hRecord = vs.GetRecord(hCurrentObject, i + 1) if hRecord != vs.Handle(): if vs.GetName(hRecord) == recordName: res, query = vs.DBObjSQLGetRead(hRecord) vs.AlrtDialog(query) hCurrentObject = vs.NextSObj(hCurrentObject) hCurrentLayer = vs.NextLayer(hCurrentLayer) Test()
Version
Availability: from Vectorworks 2011