Tabela Paradox temporária
Alguém sabe se existe uma maneira de criar uma tabela temporária no paradox?
SQL server é assim, mais no paradox isso não funciona
Create Table #TabelaTemp {
ID int,
Nome char(50)
}
SQL server é assim, mais no paradox isso não funciona
Create Table #TabelaTemp {
ID int,
Nome char(50)
}
Herivelto
Curtidas 1
Melhor post
Macario
22/04/2004
Ola programador, beleza?
com um TTable e um TDataSource, no form no qual quer usar a tabela
em algum evento utilize
para criar a tabela
cTemp := ´C:\Temp\´;
para deletar a tabela
espero ter ajudado[/url]
com um TTable e um TDataSource, no form no qual quer usar a tabela
em algum evento utilize
para criar a tabela
cTemp := ´C:\Temp\´;
tblTemp.Close;
tblTemp.DataBaseName := cTemp;
tbltemp.TableType := ttParadox;
tblTemp.TableName := ´PCPT0000´;
With Tbltemp.FieldDefs do
Begin
Clear;
Add( ´Primario´ , ftAutoInc, 00, True);
Add( ´CODPRO´, ftString, 16, False);
Add( ´DESPro´, ftString, 60, False);
Add( ´QTE´, ftFloat, 00, False);
End;
tblTemp.IndexDefs.Clear;
tblTemp.IndexDefs.Add( ´IPRIMARIO´, ´PRIMARIO´, [ixPrimary] );
tblTemp.IndexDefs.Add( ´idxCODPRO´, ´CODPRO´, [ixCaseInsensitive] );
tblTemp.CreateTable;
tblTemp.Open;
tblTemp.IndexName := ´idXCODPRO´;
para deletar a tabela
tblTemp.Close;
Deletefile( cTemp + Copy( tblTemp.TableName,1, 8 ) + ´.Db´ );
Deletefile( cTemp + Copy( tblTemp.TableName,1, 8 ) +´.Val´ );
Deletefile( cTemp + Copy( tblTemp.TableName,1, 8 ) +´.px´ );
Deletefile( cTemp + Copy( tblTemp.TableName,1, 8 ) +´.xg0´ );
espero ter ajudado[/url]
GOSTEI 1