Information générale
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Holger,
This is my code that doesn't work, maybe you can see the mistake?
********************************************************************
CREATE SQL VIEW view5 AS SELECT &m_selectvelden FROM ALLTRIM(m_dbf2) WHERE SUBSTR(postcode, 1, 2) = ThisForm.cmbpostcode.DisplayValue
USE view5
=DBSETPROP('view5.uniekid','Field','KeyField',.T.)
=DBSETPROP('view5.uniekid','Field','UpDatable',.F.)
SELECT velden
GO TOP
DO WHILE NOT EOF()
m_objectnm1 = 'view5.' + ALLTRIM(LOWER(veldnaam))
SELECT view5
=DBSETPROP(ALLTRIM(m_objectnm1), 'Field', 'UpDatable', .T.)
=DBSETPROP(ALLTRIM(m_objectnm1), 'Field', 'KeyField', .F.)
SELECT velden
SKIP
ENDDO
=DBSETPROP('view5', 'View', 'WhereType', 1) && Update als er iets anders ingetypt wordt
=DBSETPROP('view5', 'View', 'SendUpdates', .T.) && Zet de updates aan, de veranderingen worden dus ge-update
SELECT view5
BROW
SELECT ALLTRIM(m_alias)
USE
CLOSE DATABASES ALL
FREE TABLE ALLTRIM(m_dbf)
USE ALLTRIM(m_dbf) EXCL
PACK
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