#include "Fivewin.ch"
#include "ribbon.ch"
static oWnd
function Main()
LOCAL oRs, oErr, oRibbon
set deci to 2
set device to screen
set cent on
SET _3DLOOK ON
SET DATE TO BRITISH
SET EPOCH TO (YEAR(DATE())-10)
SET SOFTSEEK ON
set multiple on
StrDatabase := "d:\sabao2\sisger.mdb"
StrTable := "movimentacao"
StrField := "descricao"
NumField := "idmovimento"
oRs := TOleAuto():New( "ADODB.Recordset" )
oRsa := TOleAuto():New( "ADODB.Recordset" )
oRs:Open( "SELECT * FROM MOVIMENTACAO", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+StrDatabase, 1, 3 )
oRsa:Open( "SELECT * FROM PRODUTOS", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+StrDatabase, 1, 3 )
DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 TITLE "Acess"
DEFINE RIBBONBAR oRibbon PROMPTS "Relatorio" OF oWnd ;
HEIGHT 120 TOPMARGIN 25
ADD GROUP oGrupo RIBBON oRibbon TO OPTION 1 PROMPT "Executar"
@ 05,04 ADD BUTTON oBtn1 PROMPT "Resumo das Vendas" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 2;
action tela_imp(oRs,oRsa)
@ 35,04 ADD BUTTON oBtn1 PROMPT "Sair" ;
GROUP oGrupo SIZE 142, 25 Right BORDER ROUND ROUNDSIZE 2;
action r_sair()
SET MESSAGE OF oWnd TO FWVERSION + " - Relatorio Sabão Lava tudo"
ACTIVATE WINDOW oWnd maximized
return nil
sabendo se que existe para o mysql o seguinte comando
csql = "select * from tabela"
sele tab
use sql(csql) alias tabelas via 'Mysql'
go top
nessa linha aqui
oRs:Open( "SELECT * FROM MOVIMENTACAO", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+StrDatabase, 1, 3 )
como criar um select para o open da tabela do mdb?