Information générale
Catégorie:
Fonctions Windows API
Hi!
Tried it out but it still returns 65534
ls_PKey = GetPKeys("northwnd","dbo","Products")
*-- ls_PKey is always 65534
Sarosh
Func GetPKeys(as_TableQualifier, as_TableOwner, as_TableName)
local ls_Return, oHeap, nCatNamePtr, nSchNamePtr, nTabNamePtr, m.olddec
m.olddec = set("decimal")
set deci to 0
hstmt = val(SYS(3053)) && SYS(3053) - ODBC Environment Handle
set deci to (m.olddec)
DECLARE INTEGER SQLPrimaryKeys IN ODBC32 ;
INTEGER hStmt, ;
INTEGER nCatalogNamePtr, ;
SHORT nCatalogNameLength, ;
INTEGER nSchemaNamePtr, ;
SHORT nSchemaNameLength, ;
INTEGER nTableNamePtr, ;
SHORT nTableNameLength
SET PROC TO CLSHEAP ADDITIVE
oHeap = CREATEOBJ('Heap')
nCatNamePtr = oHeap.AllocString(as_TableQualifier)
nSchNamePtr = oHeap.AllocString(as_TableOwner)
nTabNamePtr = oHeap.AllocString(as_TableName)
ls_Return = SQLPrimaryKeys(hstmt, ;
@ nCatNamePtr, ;
LEN(as_TableQualifier) + 1, ;
@ nSchNamePtr, ;
LEN(as_TableOwner)+ 1, ;
@ nTabNamePtr, ;
LEN(as_TableName) + 1 )
oHeap = null
RELEASE PROC CLSHEAP
Return ls_Return
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement