Mais uma thread para esse assunto :(
Que tal usar apenas uma? Desta forma vc está pulverizando e empobrecendo a discussão. Sem falar na poluição que está gerando no fórum.

Que tal tentar utilizar o fórum da forma como ele foi concebido para ser usado?

Os usuários do fórum agradecem.

>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