Recife

tentar fazer assim: if tamanho=0 then begin image7.Visible:=true; image6.Visible:=false; ShowWindow( Handle, SW_Maximize); radio.Height:=radio.Height-3; image8.Left:=image3.Left-40; image6.Left:=image8.Left-40; image7.Left:=image8.Left-40; image5.Left:=image6.Left-40; tamanho:=1; end else begin //adicionado if tamanho=1 then begin image6.Visible:=true; ShowWindow( Handle, SW_RESTORE); image8.Left:=1064; image6.Left:=1024; image7.Left:=1024; image5.Left:=984; image7.Visible:=false; tamanho:=0; end; end;//adicionado

Valeu Jhonas. A equipe decidiu deixar a tecnologia DBExpress e passar para o ADO. Post resolvido.

Jhonas, Mais uma vez obrigado pela ajuda. Quanto a dll como poderia saber se o problema esta nela ? Utilizei o componente da paleta ADO e conseguir no commandtext obter as tabelas e campos do BD. Quando faço isto com o dbdataset não obtenho nem as tabelas e nem tão pouco os campos das mesmas. Ao introduzir uma sentença SQL, tipo "SELECT * FROM TAB_USUARIOS" ele chega a conectar, porém quando coloco os fields o mesmo apresenta a mensagem mencionada acima. Então se desconecto no sqlconnection volta mas fica no mesmo problema.

Pessoal, Estou tentando realizar ativação do componente acima, através do SQLConection ( Neste componente consigo conectar com o banco - SQL SERVER 208 R2 ). Ao abrir o commandText não aparece as tabelas, bem como seus campos. Ao digitar diretamente o comando SQL ele até chega a ativar e incluir os fields, porém ao acessar o clientdataset aparece a mensagem: SQL State:42000, SQL Error Code:8179 Could not find prepared statment with handle -1

Jhonas, Muito obrigado. Descp a demora pelo retorno. Deu certo a inclusão do midaslib. Post Resolvido

Pessoal, Estou tentando descobrir o por que desse erro que, ocorre esporadicamente ao filtrar um dado. Utilizo delphi 6, SQL Server 8, conexão ADO, TAdoQuery (lado servidor), TClientDataSet (lado cliente) e S.O. Windows 7 Enterprise. Já coloquei a dll Midas na pasta system32 e systemwow64. Como mencionei acima o mesmo acontece as vezes na primeira consulta. Outras vezes após 3 ou 6 e etc. Se alguém já passou por esse problema compartilha conosco pois, como eu algum colega daqui do fórum deve estar passado por esse mesmo problema. Os erros quando são constante são mais fáceis detectáveis,porém os esporádicos esses sim nos desafia. Abraços,

Resolvido

Jhonas, Em primeiro lugar pedir desculpas pela minha falta de atenção. Pois, realmente ontem ao testar em outra máquina só coloquei a pasta onde contém o executável, o banco e agora com os arquivos necessários para que a aplicação pudesse ser executada. Mas em momento de desespero, esqueci-me de instalar na máquina em que estava testando ( ainda bem que não foi no cliente ) o servidor firebird. Instalei o servidor e aplicação funcionou, estarei levando ao cliente essa atualização. Assim que tiver o retorno volto para poder encerrar o tópico. Agradeço a você pela paciência e por mostrar o caminho a ser seguido.

Jhonas, Meu arquivo config.ini esta assim: [CONFIG] database=localhost:C:\Programacao\Sistemas\SGO\Dados\SGO.FDB No evento oncreate do datamodule tenho o seguinte: procedure TDM.DataModuleCreate(Sender: TObject); var caminho: String; transacao: TTransactionDesc; begin try Conexao.Connected := False; caminho := LerIniConexao('CONFIG','database'); Conexao.Params.Values['Database'] := caminho; Conexao.Connected := true; except on E: Exception do raise Exception.Create('Ocorreu erro de conexão do Banco de Dados'); end; end; function TDM.LerIniConexao(sSecao, sVariavel: String): String; var sNomeArq: String; iniArq: TIniFile; begin Result := ''; sNomeArq := extractfiledir(application.ExeName); sNomeArq := sNomeArq + '\Config.ini'; if FileExists(sNomeArq) Then begin iniArq := TIniFile.Create(sNomeArq); Result := iniArq.ReadString(sSecao, sVariavel, ''); iniArq.Free; end; // verifica se o arquivo ini existe; if not FileExists(sNomeArq) then begin Application.MessageBox('O arquivo de configuração não pode ser encontrado.','Atenção',1); Application.Terminate; end; end; Adicionei dentro da pasta do executável o que segue: fbclient.dll, dbxfb.dll, dbxdrivers.ini, dbxconnections.ini, Borland.Data.DBXFirebirdDriver.dll, Borland.Data.DBXClientDriver.dll No arquivo dbxdrivers.ini esta assim: [Installed Drivers] DBXTrace=1 DBXPool=1 DataSnap=1 ASA=1 ASE=1 DB2=1 Firebird=1 Informix=1 Interbase=1 MSSQL=1 MySQL=1 Odbc=1 Oracle=1 SQLite=1 [DataSnap] DriverUnit=Data.DBXDataSnap DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland.Data.DbxClientDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b Port=211 [ASA] DriverUnit=Data.DBXSybaseASA DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXSybaseASAMetaDataCommandFactory,DbxSybaseASADriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXSybaseASAMetaDataCommandFactory,Borland.Data.DbxSybaseASADriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverASA LibraryName=dbxasa.dll LibraryNameOsx=libsqlasa.dylib VendorLib=dbodbc*.dll VendorLibWin64=dbodbc*.dll VendorLibOsx=libdbodbc12.dylib HostName=ServerName Database=DBNAME User_Name=user Password=password Port= ConnectionString= BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted [ASA TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2 [ASE] DriverUnit=Data.DBXSybaseASE DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXSybaseASEMetaDataCommandFactory,DbxSybaseASEDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXSybaseASEMetaDataCommandFactory,Borland.Data.DbxSybaseASEDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverASE LibraryName=dbxase.dll VendorLib=libct.dll;libcs.dll VendorLibWin64=libsybct64.dll;libsybcs64.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 todos Packet Size=512 Client HostName= Client AppName= ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted [ASE TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2 [DBXPool] DelegateDriver=True DriverName=DBXPool DriverUnit=Data.DBXPool DriverPackageLoader=TDBXPoolDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXPoolDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b [DBXTrace] DelegateDriver=True DriverName=DBXTrace DriverUnit=Data.DBXTrace DriverPackageLoader=TDBXTraceDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXTraceDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b [AutoCommit] False=0 True=1 [BlockingMode] False=0 True=1 [WaitOnLocks] False=1 True=0 [CommitRetain] False=0 True=1 [OS Authentication] False=0 True=1 [Multiple Transaction] False=0 True=1 [Trim Char] False=0 True=1 [SQLDialect] 1=0 2=1 3=2 [DB2] DriverUnit=Data.DBXDb2 DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXDb2MetaDataCommandFactory,DbxDb2Driver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXDb2MetaDataCommandFactory,Borland.Data.DbxDb2Driver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverDB2 LibraryName=dbxdb2.dll VendorLib=db2cli.dll VendorLibWin64=db2cli64.dll Database=DBNAME User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted Decimal Separator=. [DB2 TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2 [Firebird] DriverUnit=Data.DBXFirebird DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFirebirdDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandFactory,Borland.Data.DbxFirebirdDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverINTERBASE LibraryName=dbxfb.dll LibraryNameOsx=libsqlfb.dylib VendorLib=fbclient.dll VendorLibWin64=fbclient.dll VendorLibOsx=/Library/Frameworks/Firebird.framework/Firebird BlobSize=-1 CommitRetain=False Database=database.fdb ErrorResourceFile= LocaleCode=0000 Password=masterkey RoleName=RoleName ServerCharSet= SQLDialect=3 IsolationLevel=ReadCommitted User_Name=sysdba WaitOnLocks=True Trim Char=False [Informix] DriverUnit=Data.DBXInformix DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXInformixMetaDataCommandFactory,DbxInformixDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXInformixMetaDataCommandFactory,Borland.Data.DbxInformixDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverINFORMIX LibraryName=dbxinf.dll LibraryNameOsx=libsqlinf.dylib VendorLib=isqlb09a.dll VendorLibWin64=isqlt09a.dll VendorLibOsx=libifcli.dylib HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted Trim Char=False [Informix TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2 [Interbase] DriverUnit=Data.DBXInterBase DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxInterBaseDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommandFactory,Borland.Data.DbxInterBaseDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverINTERBASE LibraryName=dbxint.dll LibraryNameOsx=libsqlib.dylib VendorLib=GDS32.DLL VendorLibWin64=ibclient64.dll VendorLibOsx=libgds.dylib BlobSize=-1 CommitRetain=False Database=database.gdb ErrorResourceFile= LocaleCode=0000 Password=masterkey RoleName=RoleName ServerCharSet= SQLDialect=3 IsolationLevel=ReadCommitted User_Name=sysdba WaitOnLocks=True Trim Char=False [IBToGo] DriverUnit=Data.DBXInterBase DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXInterbaseMetaDataCommandFactory,DbxInterBaseDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXInterbaseMetaDataCommandFactory,Borland.Data.DbxInterBaseDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverINTERBASE LibraryName=dbxint.dll LibraryNameOsx=libsqlib.dylib VendorLib=ibtogo.dll VendorLibWin64=ibtogo64.dll VendorLibOsx=libibtogo.dylib BlobSize=-1 CommitRetain=False Database=database.gdb ErrorResourceFile= LocaleCode=0000 Password=masterkey RoleName=RoleName ServerCharSet= SQLDialect=3 IsolationLevel=ReadCommitted User_Name=sysdba WaitOnLocks=True Trim Char=False AutoUnloadDriver=True [Interbase TransIsolation] ReadCommited=1 RepeatableRead=2 [MSSQL] SchemaOverride=%.dbo DriverUnit=Data.DBXMSSQL DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss.dll VendorLib=sqlncli10.dll VendorLibWin64=sqlncli10.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False [MSSQL9] SchemaOverride=%.dbo DriverUnit=DBXMSSQL DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxMSSQLDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxMSSQLDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMSSQL LibraryName=dbxmss9.dll VendorLib=sqlncli.dll VendorLibWin64=sqlncli.dll HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False [MSSQL TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2 [MYSQL] DriverUnit=Data.DBXMySQL DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXMySqlMetaDataCommandFactory,DbxMySQLDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXMySqlMetaDataCommandFactory,Borland.Data.DbxMySQLDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverMYSQL LibraryName=dbxmys.dll LibraryNameOsx=libsqlmys.dylib VendorLib=LIBMYSQL.dll VendorLibWin64=libmysql.dll VendorLibOsx=libmysqlclient.dylib BlobSize=-1 Database=DBNAME ErrorResourceFile= HostName=ServerName LocaleCode=0000 Password=password User_Name=user Compressed=False Encrypted=False [Odbc] DriverUnit=Data.DBXOdbc DriverPackageLoader=TDBXOdbcDriverLoader,DBXOdbcDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXOdbcDriverLoader,Borland.Data.DbxOdbcDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXOdbcMetaDataCommandFactory,DbxOdbcDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXOdbcMetaDataCommandFactory,Borland.Data.DbxOdbcDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b [Oracle] DriverUnit=Data.DBXOracle DriverPackageLoader=TDBXDynalinkDriverLoader,DBXCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXOracleMetaDataCommandFactory,DbxOracleDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXOracleMetaDataCommandFactory,Borland.Data.DbxOracleDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b GetDriverFunc=getSQLDriverORACLE LibraryName=dbxora.dll LibraryNameOsx=libsqlora.dylib VendorLib=oci.dll VendorLibWin64=oci.dll VendorLibOsx=libociei.dylib DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted RowsetSize=20 OS Authentication=False Multiple Transaction=False Trim Char=False Decimal Separator=. [Oracle TransIsolation] DirtyRead=0 ReadCommited=1 RepeatableRead=2 [Sqlite] DriverUnit=Data.DbxSqlite DriverPackageLoader=TDBXSqliteDriverLoader,DBXSqliteDriver170.bpl MetaDataPackageLoader=TDBXSqliteMetaDataCommandFactory,DbxSqliteDriver170.bpl No arquivo dbxconnections.ini esta assim: [DataSnapCONNECTION] DriverName=DataSnap HostName=localhost port=211 [ASAConnection] DriverName=ASA HostName=ServerName Database=DBNAME User_Name=user Password=password DBHostName= Port= RowSetSize=20 ConnectionString= BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted [ASEConnection] DriverName=ASE HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted [DB2Connection] DriverName=DB2 Database=DBNAME User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted Decimal Separator=. [FBConnection] DriverName=Firebird Database=localhost:C:\Programacao\Sistemas\SGO\Dados\SGO.FDB RoleName=RoleName User_Name=sysdba Password=masterkey ServerCharSet= SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True IsolationLevel=ReadCommitted Trim Char=False [InformixConnection] DriverName=Informix HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted Trim Char=False [IBConnection] DriverName=Interbase Database=database.gdb RoleName=RoleName User_Name=sysdba Password=masterkey ServerCharSet= SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True IsolationLevel=ReadCommitted Trim Char=False [IBToGoConnection] DriverName=IBToGo Database=database.gdb RoleName=RoleName User_Name=sysdba Password=masterkey ServerCharSet= SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True IsolationLevel=ReadCommitted Trim Char=False [EMPLOYEE] DriverName=Interbase Database=localhost:C:\ProgramData\Embarcadero\InterBase\gds_db\examples\database\employee.gdb RoleName=RoleName User_Name=sysdba Password=masterkey ServerCharSet= SQLDialect=3 ErrorResourceFile= LocaleCode=0000 BlobSize=-1 CommitRetain=False WaitOnLocks=True IsolationLevel=ReadCommitted Trim Char=False [MSSQLConnection] SchemaOverride=sa.dbo DriverName=MSSQL HostName=ServerName DataBase=Database Name User_Name=user Password=password BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted OS Authentication=False Prepare SQL=False ConnectTimeout=60 Mars_Connection=False [MySQLConnection] DriverName=MySQL HostName=ServerName Database=DBNAME User_Name=user Password=password ServerCharSet= BlobSize=-1 ErrorResourceFile= LocaleCode=0000 Compressed=False Encrypted=False ConnectTimeout=60 [OdbcConnection] DriverName=Odbc DataBase=Database Name User_Name=user Password=password IsolationLevel=ReadCommitted RowSetSize=20 ConnectionString= [OracleConnection] DriverName=Oracle DataBase=Database Name User_Name=user Password=password RowsetSize=20 BlobSize=-1 ErrorResourceFile= LocaleCode=0000 IsolationLevel=ReadCommitted OS Authentication=False Multiple Transaction=False Trim Char=False Decimal Separator=. [SQLITECONNECTION] DriverName=Sqlite Database=test.db [SGO] DriverName=Firebird DriverUnit=Data.DBXFirebird DriverPackageLoader=TDBXDynalinkDriverLoader,DbxCommonDriver170.bpl DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxCommonDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b MetaDataPackageLoader=TDBXFirebirdMetaDataCommandFactory,DbxFirebirdDriver170.bpl MetaDataAssemblyLoader=Borland.Data.TDBXFirebirdMetaDataCommandFactory,Borland.Data.DbxFirebirdDriver,Version=17.0.0.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b LibraryName=dbxfb.dll LibraryNameOsx=libsqlfb.dylib VendorLib=fbclient.dll VendorLibWin64=fbclient.dll VendorLibOsx=/Library/Frameworks/Firebird.framework/Firebird Database=localhost:D:\Programacao\Sistemas\SGO\Dados\SGO.fdb User_Name=sysdba Password=masterkey Role=RoleName MaxBlobSize=-1 LocaleCode=0000 IsolationLevel=ReadCommitted SQLDialect=3 CommitRetain=False WaitOnLocks=True TrimChar=False BlobSize=-1 ErrorResourceFile= RoleName=RoleName ServerCharSet= Trim Char=False Apresentou o seguinte erro quando rodei em utra maquina win 7: Exception TDBXerror in module SGO.exe at 00370746 DBX error: driver could not be properly initialized. Client library may be missing, not instaled properly, of the wrong version, or the driver may be missing from the system path. Jonhas descp. esta alugando você, mais estou muito perdido e conto com sua ajuda. Abraço,

Penso que você deveria criar uma imagem da forma que necessita, incluir a mesma na sua tela e em seguida colocar os campos de entrada. Não sei se atendi a sua ideia.

complementando o post acima pois não sei se saiu correto: dbxdrivers.ini dll dbxfb.dll dbxconnections.ini

Jhonas, Valeu mais uma vez. Eu penso que +/- descobri o problema. No momento da instalação do sistema na maquina do cliente, não coloquei uma cópia da DLL dbxfb, dbxconnections.ini e dbxdrivers.ini Porque penso, pois não fiz o teste na maquina do cliente, só amanhã após sair do trabalho que irei passar no cliente e com o nova instalação testar. Sendo assim, em breve posto o resultado. Por favor sinta-se a vontade para comentar e corrigir-me. Abraço,

Oi Jhonas obrigado pelo retorno. Eu creio que não seja o caminho do banco que esta incorreto, pois se fosse teria ao menos aberto a tela de splash. E em seguida apresentaria mensagem informando que não conseguiu realizar conexão. O que acontece é que ao clicar no executável ele tenta, porém apresenta mensagem do windows informando que aconteceu um erro e o programa precisa ser fechado. Ao acessar o log de erro apresenta algo sobre o kernel32.dll. Não sei se o kernel32 da compilação que foi feito em windows 7 e esta dando incompatibilidade com o kernel32 do windows xp professional ( Máquina do cliente ). Jhonas, não sei se consegui apresentar o problema. Qualquer ajuda do amigo ou de outro delphiano daqui do forum eu agradeço. Abraço,

Pessoal, Tenho instalado o delphi XE3 na pasta arquivos de programas(x86), bem como a base de dados ( Firebird 2.5 ). Os fontes do meu sistema esta no diretório D:\ . O Diretório do executável está com seu path para o diretório C:\Programacao\Sistemas\Bin\SGO.exe. Realizei a instalação do servido firebird na maquina do cliente ( Windows XP Professional ), coloquei a pasta do executável conforme acima descrito, bem como a pasta da base de dados: C:\Programacao\Sistemas\SGO\Dados\SGO.fdb. Ao executar o sistema, o mesmo não executa e da sempre erro dizendo que o aplicativo parou de funcionar. Entrei no log de eventos do win e diz que gerou erro no kernell32.dll. Tenho no form principal na USES a MidasLib. Alguém poderia ajudar-me a entender o que acontece ?

Pessoal, Após mais algumas pesquisas descobri o que estava ocasionando o erro. Estava faltando o datasetprovider e um clientdataset e realizar as ligações necessárias. Esta informação obtive no link abaixo: http://www.prosige.com.br/portal/forum/viewtopic.php?p=2563&sid=976dc3ab5c7dd72a17c63f91c8d236f4 Pediria para por como [RESOLVIDO]

Pessoal bom dia, Estou realizando uma consulta SQL com filtros e a mesma executa normalmente. Porém, quando começa a preparar a exibição do relatório apresenta a mensagem abaixo: Project SGO.exe raised exception class EDatabaseError with message '[0x0005]: Operation Not Supported'. Abaixo esta o código da rotina: procedure TFrmFiltroRelListaCli.BitBtnVisualizarClick(Sender: TObject);begin inherited; try FrmRelListagemCliente := TFrmRelListagemCliente.Create(Self); with FrmRelListagemCliente.QRelClientes do begin Active := False; SQL.Clear; SQL.Add('SELECT CIDCLI,EDIFICIO,CONDOMINIO,ENDECLI, '); SQL.Add('BAIRROCLI,NOMECLI,EMAILCLI,FONECLI, '); SQL.Add('FONE2CLI,CELCLI,CEL2CLI '); SQL.Add('FROM TBCLIENTE '); if CkBoxTdRegistros.Checked then begin SQL.Add('ORDER BY CIDCLI,BAIRROCLI,CONDOMINIO,EDIFICIO,ENDECLI '); Active := True end else begin SQL.Add('WHERE 1 = 1 '); if Trim(EditBairro.Text) <> EmptyStr then SQL.Add('AND BAIRROCLI =:bairro '); if Trim(EditCidade.Text) <> EmptyStr then SQL.Add('AND CIDCLI =:cidade '); if Trim(EditCond.Text) <> EmptyStr then SQL.Add('AND CONDOMINIO =:condocli '); if Trim(EditEdif.Text) <> EmptyStr then SQL.Add('AND EDIFICIO =:edificiocli '); if Trim(EditEnd.Text) <> EmptyStr then SQL.Add('AND ENDECLI =:endereco '); SQL.Add('ORDER BY CIDCLI,BAIRROCLI,CONDOMINIO,EDIFICIO,ENDECLI'); if Trim(EditBairro.Text) <> EmptyStr then ParamByName('BAIRRO').AsString := EditBairro.Text; if Trim(EditCidade.Text) <> EmptyStr then ParamByName('CIDADE').AsString := EditCidade.Text; if Trim(EditCond.Text) <> EmptyStr then ParamByName('CONDOCLI').AsString := EditCond.Text; if Trim(EditEdif.Text) <> EmptyStr then ParamByName('EDIFICIOCLI').AsString := EditEdif.Text; if Trim(EditEnd.Text) <> EmptyStr then ParamByName('ENDECLI').AsString := EditEnd.Text; end; Active := True; if FrmRelListagemCliente.QRelClientes.IsEmpty then begin Close; Application.MessageBox('Filtro(s) Selecionado(s) Não Retornaram Registros.','Atenção',MB_OK+MB_ICONINFORMATION); BitBtnVisualizar.SetFocus; Exit; end else begin try FrmRelListagemCliente.RLReport1.Prepare; //Aqui apresenta msg de erro do início do post // FrmRelListagemCliente.RLPDFFilter1.FilterPages(FrmRelListagemCliente.RLReport1.Pages); FrmRelListagemCliente.RLReport1.Preview(); finally FrmRelListagemCliente.RLReport1.ClosePreview; FrmRelListagemCliente.Free; end; end; end; except on E: Exception do begin ShowMessage('Houve um problema. Tente novamente. Informe a mensagem de erro: '+E.Message); FrmRelListagemCliente.Free; end; end;end; Estou utilizando o RAD Studio XE3, SGBD Firebird 2.5 e como ferramenta para relatório o Fortes Report; componente de conexão: SQLConnection, dataset: TSQLQuery (paleta dbExpress), datasource (paleta Data Access) OBS: Nos parâmetros já tentei colocar o valor do parâmetro diretamente na sentença SQL usando: QuotedStr(); / + '''' + valor.text + ''''+ / char(#39) Mais quando executado o valor passando ficava da seguinte forma: ''valor'', ou seja acrescentava mais uma par de aspas. Agradeço antecipadamente a ajuda que poder ser dada.

resolvido, podem encerrar post.

Jhonas, Isto que você indicou ai acima eu já havia feito. E por não encontrar nada plausível no google entrei aqui para encontrar alguma ajuda. Mais agradeço à "Atenção". Podem dar como [Resolvido] este post.

Oi Jhonas, Desculpe-me a demora para retornar, esta dando problemas de validação para acessar o forum, mais já esta ok. Olhei o seu link, mais não me ajudou muito não. Pois, o que estou querendo e como utilizar a ferramenta Fast Report, ou seja, por a mão na massa em conjunto com o XE3. Como estava precisado muito de um gerador de relatórios partir para um plano B, achei o Fortes Report, uma ferramenta boa para gerar relatórios. Se Tiver algum material de como utilizar o Fast Report poderias me encaminhar em meu e-mail: noelioc@gmail.com Obrigado.

Boa tarde Pessoal, Pediria a ajuda dos ilustres companheiros. Estou apanhando muito para poder passar dados de uma tela para campos dentro de um relatório confeccionado no fast report 4.0. Estou usando o delphi XE3. Na tela o usuário irá digitar o nome, valor, endereço e outras informações. Isto feito, ao clicar no botão de imprimir gostaria de passar esses dados para os campos que estão no frxReportRecebido, bem com chama-lo nesse mesmo evento onclick do botão imprimir. Grato por qualquer ajuda. Obs: Trabalhei com quick report e hoje estou trabalhando com crystal report. Não sei se existe essa compatibilidade do crystal com o delphi xe3.

No trecho do seu codigo, por que esta linha esta com "gravaitem.sql.text :=", se estiver assim você deve concatenar, eu prefiro usar o "add()", como esta na segunda linha. gravaitem.sql.add ('insert into entrada_itens(identrada,id_produto, vl_compra,qtd, item, id_usuario) VALUES'); gravaitem.sql.add ('(' + cmbcontrole.text +', ' + txtcodprod.text + ', ' + StringReplace(txtPrecoCusto.Text, ',','.',[rfReplaceAll])); gravaitem.sql.add (',' + StringReplace(txtQtd.Text, ',','.',[rfReplaceAll]) + ',' + inttostr(varItem) + ',' + inttostr(ULogin.varUsuario) + ')'); // ShowMessage(gravaitem.sql.text); gravaitem.ExecSQL;

Maicke boa tarde Tenta nos seus cálculos criar variáveis para: Tbl_ItensPedidoQuantidade.AsCurrency * Tbl_ItensPedidoValor_Pro.AsCurrency Tbl_ItensPedidoQuantidade.AsCurrency * Tbl_ItensPedidoValor_Pro.AsCurrency tipo : x := Tbl_ItensPedidoQuantidade.AsCurrency * Tbl_ItensPedidoValor_Pro.AsCurrency y := Tbl_ItensPedidoQuantidade.AsCurrency * Tbl_ItensPedidoValor_Pro.AsCurrency z := y * ( Tbl_ItensPedidoDesconto.AsCurrency /100 ) e no final: Tbl_ItensPedidoTotal.AsCurrency := x + y - z dessa forma você divide o problema e fica mais fácil de você identificar o problema. Espero poder ter mais ajudado do que atrapalhado.

Rapaz, Olhei o link que você indicou e o que fiz esta semelhante ao artigo. Mais não acessa, ou seja sempre esta dando erro de access violation. No momento de acessar a função somar da o erro citado.

Descp Fábio, Eu não me expressei bem. você tem duas situações: 1- A que já existe maskedit. Na sua consulta coloca o strtodatetime ( caso seu campo seja do tipo datetime). ex: datamodule1.Qpaga.Parameters.Parambyname('inicio').Value := strtodatetime(maskedit1.text); 2- substituir os maskedit por datetimepicker. neste caso você não precisaria de conversão. ex: datamodule1.Qpaga.Parameters.Parambyname('inicio').Value := datetimepicker1.date; Isto se seu campo "data_venda" for do tipo datetime. Se ele for do tipo String, você deve lembrar que o banco de dados ( Interbase/ Firebird ) o formato de data a ser passado deve ser: MM/DD/AAAA. Neste caso você irá precisar tratar a data que foi digitada no maskedit para poder passar com parâmetro em sua consulta. qualquer coisa posta ai. Abraços