Ir para conteúdo
Fórum Script Brasil

Paulo Correia

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Sobre Paulo Correia

Paulo Correia's Achievements

0

Reputação

  1. Pessoal, Estou tentando fazer o PHP se comunicar com o Derby, mas estou apanhando. Já fui no site da IBM e baixei o DB2 for Linux, UNIX and Windows no link http://www-01.ibm.com/support/docview.wss?uid=swg21385217 Descompactei o arquivo Fui na pasta php_driver/linuxamd64/php64 e copiei os .so para a pasta de modules do PHP, crie os ini's correspondentes. Aí deu por falta do libdb2.so.1 que fui na pasta odbc_cli_driver/linuxamd64 e extrai o ibm_data_server_driver_for_odbc_cli.tar.gz Copiei todos os libdb gerados para pasta /usr/lib e /usr/lib64 E o teste da IBM não funciona e dá erro Call to undefined function db2_connect() Estou usando debian, 64bits. Alguém já conseguiu fazer o PHP ler do Derby ? Como ? Desde já agradeço, Pauilo
  2. Era isto mesmo, mostrar um registro por vez no timer Tive que privatizar umas variáveis para seguir a sua idéia Mas está funcionando 100% Valeu
  3. Amigos, Já tentei usando a API Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Estou usando Timer E nem mostra o Primeiro Registro, vai direto para o último Estou usando ADO E o seguinte código: numa outra parte... mConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb" Set rs = New Recordset rs.Open "SELECT count(ID) from tabela ", mConn, adOpenForwardOnly, adLockReadOnly total = rs(0) rs.Close Private Sub Timer1_Timer() Dim rs1 As Recordset Dim i as integer Dim L1 as String Dim L2 as String Dim L3 as String Dim SQL as String Set mConn1 = New Connection mConn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\base.mdb" Set rs1 = New Recordset Loop2: i = i + 1 SQL = "SELECT campo1,campo2,campo3 from tabela where ID=" & i rs1.Open SQL, mConn1, adOpenForwardOnly, adLockReadOnly L1=rs1(0) L2=rs1(1) L3=rs1(2) Label1.Caption=L1 Label2.Caption=L2 Label3.Caption=L3 If i < total Then rs1.Close GoTo Loop2 Else rs1.Close End If O que estou fazendo de errado ?
×
×
  • Criar Novo...