Moderador: Moderadores
#DEFINE id_SERVER "localhost"
#DEFINE id_USER "root"
#DEFINE id_PASSWORD "123"
FUNCTION Main()
LOCAL oServer := TMySQLServer():New( id_SERVER, id_USER, id_PASSWORD )
LOCAL oBancoDados , oTabela , oRow
LOCAL nConta1 , nConta2 , nConta3
LOCAL nLen1 , nLen2 , nLen3
oBancoDados := oServer:Query( "SHOW DATABASES;" )
IF oBancoDados:NetErr()
ALERT( oBancoDados:Error() )
ELSE
nLen1 := oBancoDados:LastRec()
FOR nConta1 = 1 TO nLen1
oRow := oBancoDados:GetRow( nConta1 )
? oRow:FieldGet( 1 )
NEXT
oTabela := oServer:Query( "SELECT * FROM mysql.user;" )
IF oTabela:NetErr()
ALERT( oTabela:Error() )
ELSE
nLen2 := oTabela:LastRec()
FOR nConta2 = 1 TO nLen2
oRow := oTabela:GetRow( nConta2 )
? oRow:FieldGet( 1 ) , oRow:FieldGet( 2 )
NEXT
ENDIF
ENDIF
oTabela:Destroy()
oBancoDados:Destroy()
oServer:Destroy()
RETURN NIL
# compila so os alterados
-inc
-w1
-lhbmysql
-lmysqlclient
# nome do executavel
-oexemplo
# fontes que serao compilados e lincados
exemplosql.prg
#Include "Adodb.ch"
FUNCTION MAIN()
SET DATE BRIT
SET CENTURY ON
SET EPOCH TO 1960
SET CONFIRM ON
SETMODE(25,80)
CLEAR
Public CNN
PUBLIC E
BEGIN SEQUENCE
CNN:=CreateObject("ADODB.Connection")
CNN:Open("DRIVER=Firebird/InterBase(r) driver;Password=1;Persist Security Info=True;User ID=PRATIC;Location=C:\PRATIC\PRATIC.FDB;ctype=ISO8859_1;auto_commit=True;dbclient_library=fbclient.dll")
RECOVER USING E
ALERT("Operação: "+E:operation+"-"+"Descrição: "+E:Description) // +chr(10)+vMat(e:Args))
RETURN
end
RETURN
FUNCTION MAIN()
SET DATE BRIT
SET CENTURY ON
SET EPOCH TO 1960
SET CONFIRM ON
SETMODE(25,80)
CLEAR
Public CNN
PUBLIC E
PUBLIC oCursor
TRY
CNN:=CreateObject("ADODB.Connection")
CNN:Open("Provider=LCPI.IBProvider.3;Password=1;Persist Security Info=True;User ID=PRATIC;Location=C:\PRATIC\PRATIC.FDB;ctype=ISO8859_1;auto_commit=True;dbclient_library=fbclient.dll")
CATCH E
ALERT("Operação: "+E:operation+"-"+"Descrição: "+E:Description+chr(10) /*+vMat(e:Args)*/)
END
Try
oCursor:=CreateObject("ADODB.Recordset")
Catch e
ALERT("Operação: "+E:operation+"-"+"Descrição: "+E:Description+chr(10) /*+vMat(e:Args)*/)
end
oCursor:Open("Select * from Cadmun where Munic=1",CNN,2,3)
Do While ! oCursor:Eof()
@ 10,10 say oCursor:Fields["Munic"]:Value
@ 11,10 say oCursor:Fields["Nome"]:Value
inkey(0)
oCursor:MoveNext()
enddo
Public ecfpoucopapel, sistema,mconsulta,cnn,CUSER:="SYSDBA",cpassword:="masterkey",caddress:="Localhost",cdatabase:=BASEDEDADOS()+"BANCO.FDB"
Try
CNN:=CreateObject("ADODB.Connection")
cStringConnection := "DRIVER=Firebird/InterBase(r) driver; UID="+cUser+"; PWD="+cPassword+";DBNAME="+cAddress+":"+cDataBase
CNN:Open(cStringConnection)
Catch e
MsgStop("Não foi possivel conectar com o banco")
MsgStop("Operação: "+E:operation+"-"+"Descrição: "+E:Description+chr(10)+vMat(e:Args))
ExitProcess(0)
End
Usuários vendo este fórum: Nenhum usuário registrado online e 2 visitantes