Server Has Not Yet Been Opened

[Guest - fernando -]

After to execute the last command occurs the following error: to "Server has not yet been opened". Already I looked at documentation, I downloaded packs of the crystal report and continues this error. Somebody knows as to correct?

CrReport := application1.NewReport;

cn := TADOConnection.Create(nil);

cn.Close;

cn.ConnectionString:= 'DSN=SEVEN; uid=SEVEN; pwd=SEVEN';

cn.Open;

comando := TADOCommand.Create(nil);

comando.Connection := cn;

comando.CommandText := 'SELECT * FROM BANCO';

CrReport.Database.AddADOCommand(OleVariant (cn.ConnectionObject), OleVariant(Comando.CommandObject));

[Corposemalma]

Althought I can fully understand English I dont understand why you used it here in a brazilian forum...

Dont know what these components are, so I guess that before you open the report (if it is conect with a database query component) you should make the query after the SELECT statement...

Like:

cn.Open or

cn.Execute

(Dont really know if this will solve you problem, because I use Dbisam, and dont know others Databases)

Espero que tenha ajudado! Inté....