Página 5 de 31. A exibir 307 resultados (0.289 segundos)
Exemplo de criação e abertura
("GETTEMPNAME="+cTmpID) conout("Nome Real no SGDB : "+cTmpName) DBUseArea(.T., "TOPCONN", cTmpID, "TMP", .F., .F.) // Temporária tradicional faz abertura com o nome usado … ="+cTmpID) conout("Nome real no SGDB : "+cTmpName) DBUseArea(.T., "TOPCONN", cTmpName, "TMP", .T., .F.) // Temporária compartilhada faz abertura com o nome REALDBCreateIndex (New)
() CreateTable() // Criação de Indice na Tabela DBUseArea(.F., 'TOPCONN', cT2, (cT2), .F., .F.) (cT2)->(DBCreateIndex('T2_IND', 'FIELD_NAME', { || 'FIELD_NAME … de Indice na View DBUseArea(.F., 'TOPCONN', cView1, (cView1), .F., .F.) TCSetVIdx( .T. ) (cView1)->(DBCreateIndex('VIEW1_IND', 'FIELD_NAME')) TCSetVIdx( .FDBSelectArea
DBUseArea( .T., cRDD, cTable1, (cTable1), .F., .T. ) // Abre a tabela 2 em modo exclusivo para leitura criando uma área de trabalho DBUseArea( .T., cRDD, cTable2 … ) // Desconecta TCUnlink( nHandle1 ) return Veja também DBUseArea SelectDBChangeAlias
a tabela 1 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable1, (cTable1), .F., .F. ) // Abre a tabela 2 em modo exclusivo criando uma área de trabalho DBUseArea( .T., cRDD, cTable2, (cTable2), .F., .F. ) // Vai exibir .F., pois cNewAlias contém um nome inválido cNewAlias := "OLDComando USE
, este comando será traduzido internamente para chamar a função DbUseArea() Recomendamos fortemente, como uma boa prática de programação, utilizar o comando USE … para a função DBUseArea(), acesse a documentação da mesma para verificar os demais comportamentos e informações adicionais da função. Exemplos // ExemploDBCreateIndex
:= "T2" Local cView1 := "VIEW1" TCLink() CreateTable() // Criação de Indice na Tabela DBUseArea(.F., 'TOPCONN', cT2, (cT2), .F., .F.) (cT2 … e índice existem DBCloseArea() // Criação de Indice na View DBUseArea(.F., 'TOPCONN', cView1, (cView1), .F., .F.) TCSetVIdx( .T. ) (cView1ORVW02E2 - Customização dos Valores de Entrada por Transferência do PPA
+= "SBM.BM_GRUPO='"+(cAliasSD1)->D1_GRUPO+"' AND " cQuery += "SBM.D_E_L_E_T_=' ' ORDER BY SBM.BM_GRUPO" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery … += "VE4.D_E_L_E_T_=' ' ORDER BY VE4.VE4_PREFAB" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVE4, .T., .T. ) If Select(cAliasSB1) > 0 ( cAliasSB1DBRUnlock
cTable := "MYTABLE" Local cRDD := "TOPCONN" Local lRet := .F. // Abre a tabela em modo compartilhado DBUseArea( .T., cRDD, cTable, (cTable), .T., .F … " Local lRet := .F. // Abre a tabela em modo compartilhado DBUseArea( .T., cRDD, cTable, (cTable), .T., .F. ) // Vai para o registro 100 DBGoTo( 100TCGenQry2
}, ; {"CPOC2", "C", 10, 0}}, "TOPCONN") DBUseArea(.T., "TOPCONN", cTable1, (cTable1), .F., .F. ) (cTable1)->( DBAppend( .F. ) ) (cTable1)->CPOC1 := "JOHN" (cTable1)->CPOC2 := "PESSOA" (cTable1)->( DBCommit() ) DBCloseArea() DBUseArea(.T., "TOPCONN", TCGenQry2(NIL,NIL,cQry, { "PESSOA" } ), (cAlias) , .F., .TVA340RR - Opção Resumo de Renda na Base de Clientes
VMK.VMK_ANO = '"cAno"' AND VMK.VMK_CODCLI = '"SA1->A1_COD"' AND " cQuery += "VMK.D_E_L_E_T_=' '" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVMK, .T … += "VML.D_E_L_E_T_=' '" dbUseArea( .T., "TOPCONN", TcGenQry(,,cQuery), cAliasVML, .T., .T. ) Do While !( cAliasVML )->( Eof() ) M_RENAGR += ( (( cAliasVML