AdoDataset

Question

Oi Galera,Alguem sabe como usar o componente AdoDataset? Alguem poderia enviar um exemplo?...

Bon Jovi · Answer

//para querys... TADODataSet:
ADODataSet1.Close;
ADODataSet1.Connection := ADOConnection1;
ADODataSet1.CommandText := �SELECT...�;
ADODataSet1.Open;

//para comandos de manutencao de dados... TADOCommand
ADOCommand1.CommandText := �INSERT INTO... ou UPDATE... ou DELETE... �;
ADOCommand1.Connection := ADOConnection1;
ADOCommand1.Execute;

Vinicius2k · Answer

Bon Jovi,Aproveitando o assunto... costumo desenvolver pequenos softwares (pequenos mesmo) usando bancos access e tbm desenvolvi um para gerenciar cadastros num site ASP/SQLServer... sempre usei TADODataSet, mas outro dia, tentando ajudar um colega aqui no f�rum, me depararei com uma situa��o estranha : O CommandText do TADODataset n�o aceita instru��es SQL de tamanho suporior a 255 chars... o que tem de estranho � o fato de que a propriedade est� definida como WideString... desde ent�o passei a utilizar mais a ADOQuery...  Este erro/defici�ncia realmente existe? T+...

Bon Jovi · Answer

J� vi comentarem esse tipo de limita��o no ADO em VB... Mas em Delphi nunca tive esse problema.

Esse exemplo funciona:

  ADODataSet1.Close; 
  ADODataSet1.Connection := ADOConnection1;
  ADODataSet1.CommandText :=
    �SELECT NOME � +
    �FROM CLIENTE � +
    �WHERE ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +                
    �AND ID_CLIENTE = 1 � +
    �UNION ALL � + 
    �SELECT NOME � +
    �FROM CLIENTE � +
    �WHERE ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +
    �AND ID_CLIENTE = 1 � +                
    �AND ID_CLIENTE = 1 �;
  ADODataSet1.Open;

Comodelphi · Answer

Quando vc for mudar a propriedade CommandText em tempo de execu��o fa�a o TypeCasting para WideString. Toda sequ�ncia �...ssss...� � uma string para o delphi e o seu tamanho maximo � 255.

Ex.:

CommandText := WideString(�....string�o.......�);

F�rum AdoDataset #232196