Parabéns pelo trabalho!
Como está fazendo?JoséQuintas escreveu:Pelo HeidiSQL os comandos funcionam pra criação de função, mas executando via Harbour não

Moderador: Moderadores
Como está fazendo?JoséQuintas escreveu:Pelo HeidiSQL os comandos funcionam pra criação de função, mas executando via Harbour não
Observe que a DELIMITERpalavra-chave é uma função apenas do mysqlcliente de linha de comando (e de alguns outros clientes) e não um recurso regular da linguagem MySQL. Não funcionará se você tentar passar por uma API da linguagem de programação para o MySQL.
WITH OBJECT cnSQL
FOR EACH cFunction IN { "ze_extenso", "ze_ExtensoUnidade", "ze_ExtensoDezena", "ze_ExtensoCentena", "ze_ExtensoNumero" }
:ExecuteCmd( "DROP FUNCTION IF EXISTS " + cFunction )
NEXT
FOR nCont = 1 TO 5
:ExecuteCmd( ze_rawImage( "SQL_" + StrZero( nCont, 2 ) ), , .F. )
NEXT
ENDWITH
Itamar M. Lins Jr. escreveu:Olá!
Isso é libertação!
...
Por isso sempre lembro do Html que faz muita coisa e está ao alcance de todos.
<% @LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>
<%
DIM oConexao, oRegistro, cSql, cValor
Session.LCID = 1046 ' Portugues Brasil
cValor = Trim( Request.QueryString( "valor" ) )
SET oConexao = Server.CreateObject( "ADODB.Connection" )
oConexao.Open ConnectionString()
SET oRegistro = server.CreateObject( "ADODB.Recordset" )
cSql = "SELECT ze_Extenso( " & cValor & " ) AS texto;"
oRegistro.Open cSql, oConexao
response.write "<html><head /><body>" & oRegistro.Fields( "TEXTO" ).Value & "</body></html>"
oRegistro.Close
oConexao.Close
SET oRegistro = Nothing
SET oConexao = Nothing
%>
Usuários vendo este fórum: Nenhum usuário registrado online e 12 visitantes