Query

[ajritta]

Olá amigos!

Tenho a seguinte situação: eu gostaria de gerar uma pesquisa, mas digitando o código SQL no próprio editor, sem gerar um arquivo especifico com a Query.

Por exemplo:
MinhaQuery is DATA SOURCE

HPrepareSQLQuery(MinhaQuery,"",hQueryWithoutCorrection,gsStrSql)
HExecuteSQLQuery(MinhaQuery)

Ou seja, quero poder gerar pesquisa em tempo de execução, sem que pra isso eu precise ter definido antes, uma query.

Com esse método que exemplifiquei, não está funcionando, acontece um erro porque ele diz que não encontrou o arquivo ou que a Query não foi inicializada.

Alguém saberia como resolver esta situação?

Grato,

[Davi]

Esses dias eu também tentei fazer e não deu muito certo.

Vou precisar desse recurso também, mas acho que tem que montar tipo de um constrututor de Query para o usuário final poder usar.

[ajritta]

Davi...
Eu creio que consegui resolver a questão, pelo menos, aqui funcionou.
Vou exemplificar:
Declarar no Project Code, a conexão:
gctBcAgenda is Connection

gctBcAgenda..Provider = hNativeAccessMySQL
gctBcAgenda..User = "root"
gctBcAgenda..Password = "root"
gctBcAgenda..Server = "localhost"
gctBcAgenda..Database = "Agenda"
gctBcAgenda..Access = hOReadWrite

HOpenConnection(gctBcAgenda)
HChangeConnection("*",gctBcAgenda)


Em um botão qualquer, o seguinte código (este é para consulta)

sSQLConsulta is string
dsAgenda is Data Source


sSQLConsulta = "SELECT * FROM agenda WHERE agenda.ID = 1"

HExecuteSQLQuery(dsAgenda,hQueryDefault,sSQLConsulta)
HReadFirst(dsAgenda)

EDT_Codigo = dsAgenda.ID
EDT_Nome = dsAgenda.Nome
EDT_Endereco = dsAgenda.Endereco
EDT_Bairro = dsAgenda.Bairro
EDT_Cidade = dsAgenda.Cidade
EDT_Fone = dsAgenda.Telefone

O procedimento é semelhante para inclusão!

Espero que isso ajude!

Att,