... com una ou mais subqueries. Estas colunas mencionadas nas cláusulas WHERE tem índices? Dependendo se tem ou não, cada SUM destes pode ter que ler milhares de linhas, degradando a performance.
Qual banco de dados e versão utilizada? Dependendo, pode-se usar algumas CTEs (Common Table Expressions).
Pesquisa resultou em 879 ocorrências: +Table
Termo pesquisado: +table
- 04 Mai 2026 23:35
- Fórum: Banco de Dados
- Tópico: Select demorando
- Respostas: 12
- Exibições: 1638
- 02 Mai 2026 13:10
- Fórum: SQL
- Tópico: Harbour + SQLMIX
- Respostas: 31
- Exibições: 3367
Re: Harbour + SQLMIX
... If lAdd
If lSQL
cSQL := "INSERT INTO contacts (name) values ('" + cName + "')"
If rddInfo( RDDI_EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc" ) //need open contacts table becouse new data.
Else
hwg_msginfo('Fail to add data ...
If lSQL
cSQL := "INSERT INTO contacts (name) values ('" + cName + "')"
If rddInfo( RDDI_EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc" ) //need open contacts table becouse new data.
Else
hwg_msginfo('Fail to add data ...
- 01 Mai 2026 22:39
- Fórum: SQL
- Tópico: Harbour + SQLMIX
- Respostas: 31
- Exibições: 3367
Re: Harbour + SQLMIX
... x ) } )
IF rddInfo( RDDI_CONNECT, { "MYSQL", "localhost", "test", , "test" } ) == 0
? "Unable connect to the server"
RETURN
ENDIF
CreateTable()
? "Let's browse table (press any key)"
Inkey( 0 )
dbUseArea( .T., , "SELECT * FROM country", "country" )
Browse()
? "Let's browse table ...
IF rddInfo( RDDI_CONNECT, { "MYSQL", "localhost", "test", , "test" } ) == 0
? "Unable connect to the server"
RETURN
ENDIF
CreateTable()
? "Let's browse table (press any key)"
Inkey( 0 )
dbUseArea( .T., , "SELECT * FROM country", "country" )
Browse()
? "Let's browse table ...
- 01 Mai 2026 22:26
- Fórum: SQL
- Tópico: Harbour + SQLMIX
- Respostas: 31
- Exibições: 3367
Re: Harbour + SQLMIX
... If lAdd
If lSQL
cSQL := "INSERT INTO contacts (name) values ('" + cName + "')"
If rddInfo( RDDI_EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc" ) //need open contacts table becouse new data.
Else
hwg_msginfo('Fail to add data ...
If lSQL
cSQL := "INSERT INTO contacts (name) values ('" + cName + "')"
If rddInfo( RDDI_EXECUTE, cSQL )
ctc->(dbCloseArea()) //Close table contact
dbUseArea( .T., , "SELECT * FROM contacts", "ctc" ) //need open contacts table becouse new data.
Else
hwg_msginfo('Fail to add data ...
- 13 Mar 2026 13:54
- Fórum: Legislação Fiscal e Tributária
- Tópico: Satus do SEFAZ CUPO/NFE
- Respostas: 5
- Exibições: 2619
Re: Satus do SEFAZ CUPO/NFE
... cHTMLdoc := HTMLDocument
cPathRaiz := cPathDados
if lFazTeste
cXMLSedex := []
cXMLSedex := cXMLSedex + [<html>]
cXMLSedex := cXMLSedex + [<table class="tabelaListagemDados" cellspacing="0" rules="all" border="1" id="ctl00_ContentPlaceHolder1_gdvDisponibilidade2">]
cXMLSedex := cXMLSedex ...
cPathRaiz := cPathDados
if lFazTeste
cXMLSedex := []
cXMLSedex := cXMLSedex + [<html>]
cXMLSedex := cXMLSedex + [<table class="tabelaListagemDados" cellspacing="0" rules="all" border="1" id="ctl00_ContentPlaceHolder1_gdvDisponibilidade2">]
cXMLSedex := cXMLSedex ...
- 22 Jan 2026 17:05
- Fórum: SQL
- Tópico: Carga do DBF para MySql/Postgres e LetoDbf juntos!
- Respostas: 16
- Exibições: 22640
Re: Carga do DBF para MySql/Postgres e LetoDbf juntos!
... FUNCTION CriarTabelaDinamica( conn, cTabela, aCampos )
LOCAL cSQL := "", i, res
IF Empty( aCampos )
RETURN NIL
ENDIF
cSQL := "CREATE TABLE IF NOT EXISTS " + cTabela + " ("
cSQL += "id INTEGER GENERATED ALWAYS AS IDENTITY PRIMARY KEY,"
FOR i := 1 TO Len( aCampos )
cSQL ...
LOCAL cSQL := "", i, res
IF Empty( aCampos )
RETURN NIL
ENDIF
cSQL := "CREATE TABLE IF NOT EXISTS " + cTabela + " ("
cSQL += "id INTEGER GENERATED ALWAYS AS IDENTITY PRIMARY KEY,"
FOR i := 1 TO Len( aCampos )
cSQL ...
- 20 Out 2025 11:18
- Fórum: [x]Harbour
- Tópico: Atualização do Harbour 20-10-2025 Compilador ZIG
- Respostas: 4
- Exibições: 2176
Atualização do Harbour 20-10-2025 Compilador ZIG
... likely needs headers from Windows SDK)
basically a non issue, but HB_CPU and HB_PLATFORM are not guessed
from HB_ZIG_TARGET - conversion table seems to be doable, if
someone is interested in making a patch.
2025-10-16 22:04 UTC+0200 Aleksander Czajczynski (hb fki.pl)
* utils/hbmk2/hbmk2 ...
basically a non issue, but HB_CPU and HB_PLATFORM are not guessed
from HB_ZIG_TARGET - conversion table seems to be doable, if
someone is interested in making a patch.
2025-10-16 22:04 UTC+0200 Aleksander Czajczynski (hb fki.pl)
* utils/hbmk2/hbmk2 ...
- 18 Ago 2025 18:22
- Fórum: MiniGui
- Tópico: Só uma idéia que veio na cabeça pra OOP na HMG3
- Respostas: 12
- Exibições: 4210
Só uma idéia que veio na cabeça pra OOP na HMG3
O que me parece agora:
_HMG_SYSDATA é a variável pública com tudo.
Digamos assim, cada nova variável que a HMG precisa, é adicionada uma nova coluna a esse array.
De certa forma, é o que fazemos com classes, a diferença é que está tudo nesse array público.
O array é multidimensional.
Compare com ...
_HMG_SYSDATA é a variável pública com tudo.
Digamos assim, cada nova variável que a HMG precisa, é adicionada uma nova coluna a esse array.
De certa forma, é o que fazemos com classes, a diferença é que está tudo nesse array público.
O array é multidimensional.
Compare com ...
- 18 Jul 2025 22:47
- Fórum: Contribuições, Dicas e Tutoriais
- Tópico: Definindo a nova tributaçào no aplicativo
- Respostas: 13
- Exibições: 5477
Definindo a nova tributaçào no aplicativo
... IF ! IsMaquinaJPA()
RETURN Nil
ENDIF
WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE JPTRANSACAO ADD COLUMN TRCLAFIS VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "TRICADCLAFIS", "JPTABTRICAD" )
:ExecuteNoReturn ...
RETURN Nil
ENDIF
WITH OBJECT cnSQL
IF ! :FieldExists( "TRCLAFIS", "JPTRANSACAO" )
:ExecuteNoReturn( "ALTER TABLE JPTRANSACAO ADD COLUMN TRCLAFIS VARCHAR(6) NOT NULL DEFAULT ''" )
ENDIF
IF ! :FieldExists( "TRICADCLAFIS", "JPTABTRICAD" )
:ExecuteNoReturn ...
- 18 Jul 2025 11:44
- Fórum: Contribuições, Dicas e Tutoriais
- Tópico: Tabela de CST/Classificação fiscal em PRG
- Respostas: 4
- Exibições: 2923
Tabela de CST/Classificação fiscal em PRG
... Tá meio chato importar pra uma tabela, porque os campos não tem um padrão correto, e talvez precisemos deles assim.
Próxima tentativa:
CREATE TABLE IF NOT EXISTS JPTABCFIS (
IDCFIS VARCHAR(6) NOT NULL DEFAULT '000000',
CFISNOME VARCHAR(255) NOT NULL DEFAULT '',
CFISOBS TEXT ,
CFISLEI TEXT NOT ...
Próxima tentativa:
CREATE TABLE IF NOT EXISTS JPTABCFIS (
IDCFIS VARCHAR(6) NOT NULL DEFAULT '000000',
CFISNOME VARCHAR(255) NOT NULL DEFAULT '',
CFISOBS TEXT ,
CFISLEI TEXT NOT ...
- 11 Jul 2025 19:08
- Fórum: Legislação Fiscal e Tributária
- Tópico: Passando a limpo a nova tributação
- Respostas: 31
- Exibições: 8048
Passando a limpo a nova tributação
Para empresas de desenvolvimento de software, a Reforma Tributária de 2025 traz impactos relevantes — e exige atenção estratégica. Vamos destrinchar o que muda e como isso afeta sua carga tributária:
Alíquotas aplicáveis
- CBS (federal): 8,8%
- IBS (estadual/municipal): 17,7%
- Total estimado ...
- 17 Jun 2025 22:42
- Fórum: Contribuições, Dicas e Tutoriais
- Tópico: SEFAZ: Monitor de status do serviço.
- Respostas: 0
- Exibições: 3198
SEFAZ: Monitor de status do serviço.
... aspx"
SysWait(5)
cPathRaiz := cPathDados
if lFazTeste
cXMLSedex := []
cXMLSedex := cXMLSedex + [<html>]
cXMLSedex := cXMLSedex + [<table class="tabelaListagemDados" cellspacing="0" rules="all" border="1" id="ctl00_ContentPlaceHolder1_gdvDisponibilidade2">]
cXMLSedex := cXMLSedex ...
SysWait(5)
cPathRaiz := cPathDados
if lFazTeste
cXMLSedex := []
cXMLSedex := cXMLSedex + [<html>]
cXMLSedex := cXMLSedex + [<table class="tabelaListagemDados" cellspacing="0" rules="all" border="1" id="ctl00_ContentPlaceHolder1_gdvDisponibilidade2">]
cXMLSedex := cXMLSedex ...
- 11 Jun 2025 11:05
- Fórum: MiniGui
- Tópico: Aquisição de arquivo JPG em arquivo .RC
- Respostas: 2
- Exibições: 1951
Aquisição de arquivo JPG em arquivo .RC
... cFileName )
LOCAL cTxt
cFileName := Lower( cFileName )
DO CASE
CASE cFileName == "jpsenha.sql"; #pragma __binarystreaminclude "sql\table\jpsenha.sql" | RETURN %s
CASE cFileName == "jpbinary.sql"; #pragma __binarystreaminclude "sql\table\jpbinary.sql" | RETURN %s
CASE cFileName ...
LOCAL cTxt
cFileName := Lower( cFileName )
DO CASE
CASE cFileName == "jpsenha.sql"; #pragma __binarystreaminclude "sql\table\jpsenha.sql" | RETURN %s
CASE cFileName == "jpbinary.sql"; #pragma __binarystreaminclude "sql\table\jpbinary.sql" | RETURN %s
CASE cFileName ...
- 26 Mai 2025 13:03
- Fórum: MiniGui
- Tópico: Mais outro teste daqueles
- Respostas: 5
- Exibições: 2685
Mais outro teste daqueles
... include "demo.ch"
// don't initialize values here
STATIC nRowPos, nColPos
FUNCTION DemoA( lWithDialog, xDlg )
LOCAL aList := {}, nCont, nTable, xButton
hb_Default( @lWithDialog, .T. )
nColPos := -1
nRowPos := -1
FOR nCont = 1 TO 35
AAdd( aList, nCont + 50 )
NEXT
IF lWithDialog ...
// don't initialize values here
STATIC nRowPos, nColPos
FUNCTION DemoA( lWithDialog, xDlg )
LOCAL aList := {}, nCont, nTable, xButton
hb_Default( @lWithDialog, .T. )
nColPos := -1
nRowPos := -1
FOR nCont = 1 TO 35
AAdd( aList, nCont + 50 )
NEXT
IF lWithDialog ...
- 24 Abr 2025 13:26
- Fórum: Banco de Dados
- Tópico: preços
- Respostas: 3
- Exibições: 4636
preços
Tô aqui preparando pra mexer nas tabelas de preço.....
Idéia inicial
CREATE TABLE IF NOT EXISTS JPPRECOFLEX (
IDPRECOFLEX INT(11) NOT NULL AUTO_INCREMENT,
PFTIPO INT(11) NOT NULL DEFAULT '0',
PFNUMERO INT(11) NOT NULL DEFAULT '0',
PFPRODUTO INT(11) NOT NULL DEFAULT '0',
PFCADASTRO INT(11) NOT NULL ...
Idéia inicial
CREATE TABLE IF NOT EXISTS JPPRECOFLEX (
IDPRECOFLEX INT(11) NOT NULL AUTO_INCREMENT,
PFTIPO INT(11) NOT NULL DEFAULT '0',
PFNUMERO INT(11) NOT NULL DEFAULT '0',
PFPRODUTO INT(11) NOT NULL DEFAULT '0',
PFCADASTRO INT(11) NOT NULL ...