Criei um CursorAdapter no DataEnvironment do meu Form com VFP 8...
teste de conexão, OK...
quando vou no TextBox do código, vou no ControlSource para referenciar o campo do cursor, o nome do cursor está lá corretamente, porém quando executo meu Form dá mensagem de erro:
Alias 'CURSORTESTE' is not found. Unbinding object txtcodigo
se seto o controle BINDCONTROLS como False, o Form funciona sem erros,
porém não mostra nada
se seto o controle BINDCONTROLS como True, dá a mensagem de erro acima citada...
o Código está descrito abaixo...
Grato por qualquer informação....
*****************************
local llReturn
do case
case not pemstatus(This, '__VFPSetup', 5)
This.AddProperty('__VFPSetup', 0)
case This.__VFPSetup = 2
This.__VFPSetup = 0
return
endcase
llReturn = dodefault()
text to This.SelectCmd noshow
select CLIENTES.* from CLIENTES
endtext
text to This.UpdateNameList noshow
CODIGO CLIENTES.CODIGO, NOME CLIENTES.NOME, ENDERECO CLIENTES.ENDERECO, BAIRRO CLIENTES.BAIRRO, CIDADE CLIENTES.CIDADE, UF CLIENTES.UF, CPF CLIENTES.CPF, DATA CLIENTES.DATA
endtext
text to This.UpdatableFieldList noshow
CODIGO, NOME, ENDERECO, BAIRRO, CIDADE, UF, CPF, DATA
endtext
local loConnDataSource
set multilocks on
loConnDataSource = createobject('ADODB.Connection')
loConnDataSource.ConnectionString = [dsn=empresa;uid=sysdba;pwd=masterkey;trusted_connection=no;]
loConnDataSource.Open()
This.DataSource = createobject('ADODB.RecordSet')
This.DataSource.CursorLocation = 3 && adUseClient
This.DataSource.LockType = 3 && adLockOptimistic
This.DataSource.ActiveConnection = loConnDataSource
This.CursorFill(.t.)
if This.__VFPSetup = 1
This.__VFPSetup = 2
endif
return llReturn