Ajuda com o Mysql

[MARCELOG]

"Pessoar",
resolvi encarar o mysql e ver o quê que dá.
Até mesmo para poder ajudar os amigos que vivem falando a respeito.
Ontem a noite, com ajuda o Stanis, consegui compilar a a mysql.lib usando o mysql 5.0 (brigadão de novo hein Stanis!).
Aí, compilei os testes na ´pasta de contribuição.
Apesar de ter compilado normalmente, ele dá erro no argumento cArg, que não tem qualquer referência no arquivo.
Alguém pode me ajudar com esse problema.
Desde já obrigado.

MarceloG

Ps: após a conclusão, tal qual alguns, pretendo colocar no fórum um esquema prá facilitar as coisas prá quem tá querendo "encarar a marcação".

[Luiz]

Encontrei cArg na linha 91 de test.prg e testes.prg, aqui deu "variavel não existe", talvez seja erro de digitação, sendo aArg (declarada no inicio), mas mesmo alterando ocorre um outro erro mais afrente.

Mas aqui vai um exemplo simples e funcional:

Código: Selecionar todos

// conectar ao servidor
oServer := TMySQLServer():New('localhost', 'root', '<senha>')
// verificar erro
if oServer:NetErr()
   alert(oServer:Error())
endif

// realizar a consulta
oResult:=oServer:Query("show databases")
// verificar erro
if oResult:NetErr()
   alert(oResult:Error())
endif

// exibir resultados
for f:=0 to oResult:RecCount()
   ? oResult:Database
   oResult:Skip()
next

wait

É basicamente isso, pela query dá pra fazer tudo no mysql.