Delphi Programming with SQL Server As Back End

[pro2003]

hi,
I have created an application with SQL Server as back end. Once I tried to save in a speciufic table it says "Conncetion Faliure". Where as in all other tables it saves fine. This is the code where the error occurs:

TADODataSet(Dataset).CommandText := Format('Select * From %s Where (%s=%d) and (%s=%d)',[TableName, IDFieldName, NoID, StoreIDFieldName, 0]);
      try
        Dataset.Open;// This is where error occurs....
      except
        ErrorMsg('Error Opening Table with Command: %s',[TADODataset(Dataset).CommandText]);
        raise;  // re-raise the exception

Thanks for your help in advance.

 

[GeppoDarkson]

Hi,
I usually use TAdoDataset.TableName
or
TAdoQuery.Active:=False;
TAdoQuery.Sql.Clear;
TAdoQuery.Sql.add('Select * From '+SomeTableName );
TAdoQuery.Sql.add('Where SomeField='''+SomeString+'''');
TAdoQuery.Active:=True;

and it works.

Ciao,
Geppo Darkson.

 

[davidchardonnet]

Hello Pro2003



I do something similar...


query:='SELECT * FROM '+TableName+' '+
'WHERE '+IDFieldName+'='+inttostr(NoID)+' '+
'AND '+StoreIDFieldName+'=0';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(query);
ADOQuery1.Open;

while (not ADOQuery1.Eof) do
begin
ListBox1.Add(ADOQuery1.Fields[0].AsString);
ADOQuery1.Next;
end;
ADOQuery1.Close;

David