Acesso Exclusivo a uma tabela via ADO

Question

Como fa�o para obter acesso Exclusivo a uma tabela via ADO?Via BDE � tb.Exclusive. Qual seria um comando similar para ADO, ou o que posso fazer?Obrigada. Sandra....

Sarnhold · Answer

Acesso Exclusivo me refiro a somente poder apagar todos registros de uma tabela.

Via BDE, tenho por exemplo a seguinte rotina:

dm.tbProgramas.close;
dm.tbProgramas.Exclusive:=true;
if Dm.TbProgramas.State in [dsinactive] then dm.TbProgramas.Open;
dm.tbProgramas.EmptyTable;
while not tbProg.eof do begin
dm.tbProgramas.Append;
dm.tbProgramas.FieldByName(�CODIGO�).Value := ctCod;
dm.tbProgramas.FieldByName(�DESCRICAO�).Value := dm.tbProgramas.Post;

Gostaria de saber como fa�o via ADO, pois neste caso n�o tem o m�todo exclusive e nem o m�todo Empty para limpar a tabela.

Algu�m sabe como posso fazer?

Obrigada.

Quadrado · Answer

Voce configura nas propriedades da conex�o, dependendo do provedor de acesso que voce est� usando para a sua conex�o. Por exemplo se for MS Jet para BD Access :

   ConnStr := �Provider=Microsoft.Jet.OLEDB.4.0;�+
              �Password="";�+
              �User ID=Admin;�+
              �Data Source=�+cNomeBD+�;�+
              �Mode=Share Deny None;�+
              �Extended Properties="";�+
              �Locale Identifier=1033;�+
              �Jet OLEDB:System database="";�+
              �Jet OLEDB:Registry Path="";�+
              �Jet OLEDB:Database Password="";�+
              �Jet OLEDB:Engine Type=4;�+
              �Jet OLEDB:Database Locking Mode=0;�+
              �Jet OLEDB:Global Partial Bulk Ops=2;�+
              �Jet OLEDB:Global Bulk Transactions=1;�+
              �Jet OLEDB:New Database Password="";�+
              �Jet OLEDB:Create System Database=False;�+
              �Jet OLEDB:Encrypt Database=False;�+
              �Jet OLEDB:Compact Without Replica Repair=False;�+
              �Jet OLEDB:SFP=False;�;

Onde na propriedade �Mode�, voce escolhe o acesso �Share Exclusive�.

Para acessar estas propriedades, basta clicar 2x sobre o componente TADOConnection, depois no bot�o �Build� e depois na orelha �Todas�

Boa sorte

Quadrado