20 Jun 2014 16:17
Function CriaTabrec()
Local cQuery
RDDSETDEFAULT( "SQLMIX" )
nConnection := RDDINFO( 1001, { "ODBC", "Server=mysql.inaciocarvalho.com.br;Driver={MySQL ODBC 3.51 Driver};dsn=;User=inaciobr2;pwd=04inac04;database=inaciobr2;" } )
IF nConnection == 0
Alert("Erro na conexao com o servidor")
RDDSETDEFAULT( "DBFNTX" )
Return .f.
ENDIF
cQuery:="DROP TABLE recado" //remove tabela
RDDINFO(1003, cQuery)
cQuery:="CREATE TABLE recado ("+;
"DATA date,"+;
"HORA char(8),"+;
"USUARIO char(1),"+;
"RECADO char(700),"+;
"RESPOSTA char(700),"+;
"VISTO char(1))"
If !RDDINFO(1003, cQuery)
Alert("Erro ao criar a tabela")
RDDSETDEFAULT( "DBFNTX" )
return .f.
EndIf
Return .t.
20 Jun 2014 16:35
RECADO char(700),
CREATE TABLE recado (DATA date,
HORA char(8),
USUARIO char(1),
RECADO TEXT(700),
RESPOSTA TEXT(700),
VISTO char(1))
20 Jun 2014 17:54