Foros Club Delphi - Error 'SQLQuery1: Cursor not returned from query'.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- MySQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=21)

- - Error 'SQLQuery1: Cursor not returned from query'. (https://www.clubdelphi.com/foros/showthread.php?t=52156)

grandmasterdari

11-01-2008 21:31:48

Error 'SQLQuery1: Cursor not returned from query'.

:eek:
bueno este es el codigo

Código:

SQLQuery1->SQL->Clear();

SQLQuery1->SQL->Add("show tables");

SQLQuery1->Open();

TBookmarkStr BM= SQLQuery1->Bookmark;

SQLQuery1->First();

 while((!SQLQuery1->Eof)&&((SQLQuery1->FieldByName("Database")->AsString)!="basededatos"))

            SQLQuery1->Next();

SQLQuery1->Refresh();

ClientDataSet1->UpdateCursorPos();

SQLQuery1->Bookmark=BM;

SQLQuery1->Close();

SQLQuery1->SQL->Clear();

SQLQuery1->SQL->Add("use basededatos;");

SQLQuery1->Open();

//use el bookmark como ahora pero no hay cambios

jachguate

11-01-2008 21:48:45

Hola.

En primer lugar, bienvenid@ al clubdelphi. Te invito a leer la guía de estilo y tamibén el hilo de la calidad de las preguntas.

Con respecto de tu pregunta concreta, hará falta saber cual es el motor de base de datos que usas y la línea en concreto donde salta el error.

En lo particular, no me parece que estes introduciendo SQL válido para ningún motor.

Hasta luego.

;)

pd. He editado tu mensaje original para añadir la etiqueta [ code ], te invito a aprender a usarla, al igual que la etiqueta delphi y sql

grandmasterdari

11-01-2008 22:09:08

Aclaracion 01

:D:D:D:D:D:D:D:D
gracias.
bueno con respecto al motor de base de datos estoy utilizando mysql 5.0
con borland developer studio 2006 en c++,
tambien tengo los nuevos drivers de mysql ya que el que trae el compilador es para una version anterior del motor de db. (si alguien lo quiere no duden en pedir, ya ke lleva tiempo encontrarlos)

creo que ya saben como es la historia, utilizo esos 2 componentes para consultas:
. . sqlconnection1 -----> sqlquery1
donde sql connection1 ya lo configuro en la vcl y se conecta sin ningun problema respetando el nuevo driver, esto seria en codigo, pues yo hice lo mismo en grafico

Código:

      Connection := TSQLConnection.Create(nil);

      Connection.DriverName := 'dbxmysql';

      Connection.GetDriverFunc := 'getSQLDriverMYSQL50';

      Connection.LibraryName := 'dbxopenmysql50.dll';

      Connection.VendorLib := 'libmysql.dll';

      Connection.Params.Append('Database=NAME_OF_DATABASE);

      Connection.Params.Append('User_Name=NAME_OF_USER');

      Connection.Params.Append('Password=PASSWORD');

      Connection.Params.Append('HostName=localhost');

para realizar comandos sql necesito el tsqlquery instanciado por defecto SQLQuery1

tengo ke pasarle lo que quiero que haga

Código:

SQLQuery1->SQL->add("show databases");

y las respuestas se quedan almacenadas en ese objeto ¿ como hago para saber que recibio mi objeto?
bueno, aparentemente se encuentra en SQLQuery1->Field tipo de dato TField y como es una especie de tabla lo ke recibo como respuesta realizo una busqueda del campo que me interesa de la siguiente forma

Código:

        while((!SQLQuery1->Eof)&&((SQLQuery1->FieldByName("Database")->AsString)!="basededatos"))

            SQLQuery1->Next();

salgo de esa iteracion cuando, o termina de recorrer y no hay coincidencias, o cuando encuentro la coincidencia.
hasta ahora vamos bien, pero ahora a mi objeto SQLQuery1 quiero hacerle otra consulta por ejemplo

Código:

SQLQuery1->SQL->add("show tables");

pero antes debo borrar la consulta anterior con este comando

Código:

SQLQuery1->SQL->Clear();

y para poder ejecutar mi consulta de show tables hago esta linea

Código:

SQLQuery1->Open();

<- Y ahi esta!!!... esa es la linea, no puedo hacer otras consultas sea cual sea despeus de haber recorride de la forma en la que hice

Código:

SQLQuery1->SQL->Clear();

SQLQuery1->SQL->Add("show tables");

SQLQuery1->Open();

TBookmarkStr BM= SQLQuery1->Bookmark;

SQLQuery1->First();

 while((!SQLQuery1->Eof)&&((SQLQuery1->FieldByName("Database")->AsString)!="basededatos"))

            SQLQuery1->Next();

SQLQuery1->Refresh();

ClientDataSet1->UpdateCursorPos();

SQLQuery1->Bookmark=BM;

SQLQuery1->Close();

SQLQuery1->SQL->Clear();

SQLQuery1->SQL->Add("use basededatos;");  

SQLQuery1->Open(); //el error sale en esta linea

bueno espero haberme expresado bien
no tengo problemas si hay ejemplos en delphi (caral)

Caral

11-01-2008 22:14:13

Hola
Ahora me acuerdo por que no me gusta c++
Lo que se podria hacer con un par de lineas en Delphi se complica en c.
Por lo menos a mi me parece, nunca he necesitado crear el objeto Bases de datos, para que ?
Bueno, solo opinion de Novato.
Saludos

jachguate

11-01-2008 22:25:05

Muevo el hilo del foro SQL al foro de mySQL, pues el problema está relacionado con esa base de datos y no con el lenguaje SQL en si.

Insisto en el uso de etiquetas, solo que esta vez, te toca a vos editar el mensaje y ponerlas. :)

Finalmente, siempre he creido que mySQL tiene un dialecto muy extraño. ¿Estas seguro que la instrucción show tables es un SQL válido para ese motor?

Hasta luego.

;)

jachguate

11-01-2008 22:30:22

Cita:

Empezado por Caral (Mensaje 257599)

Ahora me acuerdo por que no me gusta c++
Lo que se podria hacer con un par de lineas en Delphi se complica en c.
Por lo menos a mi me parece, nunca he necesitado crear el objeto Bases de datos, para que ?

Caral: c++ builder es muy parecido a delphi, la misma VCL disponible en delphi lo está en c++ builder, el IDE tiene prácticamente la misma funcionalidad.

De esa cuenta que sería posible tamibén en c++ builder realizar una aplicación sin crear la base de datos por código, de la misma manera que sería en Delphi posible realizar una aplicación donde esta se realice de esa manera. De hecho, yo he hecho algunas.

Por ejemplo, una que en tiempo de corrida se conectaba a una cantidad configurable de bases de datos, para replicar información entre ellas.

Hasta luego.

;)

grandmasterdari

11-01-2008 22:34:01

mysql

show tables ejemplo

click

jachguate

11-01-2008 22:40:04

El que la herramienta lo acepte, no significa que sea un query válido para el motor.

El mismo comando existe, por ejemplo, en isql de firebird, pero es esta herramienta quien la traduce en el query adecuado. En ese caso podría ser:

Código SQL [-]select rdb$relation_name table_name
  from rdb$relations
 where rdb$system_flag = 0

Esto lo digo para afirmar mi postura que pueda no ser un sql válido. Realmente desconozco si lo sea o no en el caso de mysql.

Hasta luego.

;)

grandmasterdari

11-01-2008 23:06:44

Aclaracion 02

no conozco el isql de firebird, tambien esos comandos son desconocidos para mi, para darle fuerza a mi codigo tengo un ejemplo en esta pagina
pagina

en el cual tiene un codigo (dentro de un zip) que realiza lo mismo que yo
****codigo bajado de otra pagina****

Código:

#include <vcl.h>

#pragma hdrstop



#include "mydbexprForm.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

  : TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::ButtonOpenClick(TObject *Sender)

{

  ClientDataSet1->Close();

  ClientDataSet1->Open();

}

//---------------------------------------------------------------------------



void __fastcall TForm1::Button1Click(TObject *Sender)

{

  SQLQuery1->SQL->Clear();

  SQLQuery1->SQL->AddStrings( MemoQuerySQL->Lines);

  SQLQuery1->Open(); //     --- aqui  ---

}

//---------------------------------------------------------------------------



void __fastcall TForm1::Button2Click(TObject *Sender)

{

 ClientDataSet1->ApplyUpdates(0);

}

donde "MemoQuerySQL->Lines" contiene el codigo sql a ejecutar.
aparentemente hay que retornar el cursor antes de realizar otro "open()" del SQLQuery1, la pregunta es ¿cómo?

jachguate

11-01-2008 23:28:47

No hay que retornar nada. Si está abierto, lo cerras con close y luego lo abris con open.

He visto un mensaje de error similar al tuyo, en otros motores.

Ocurre cuando el query no retorna un cursor (según dice el propio mensaje) :D, que es cuando el query contiene instrucciones como insert/update/delete. En ese caso, en lugar de open (que "abre el query", es decir, procesa el cursor devuelto), se utiliza el método ExecSQL, que ejecuta la sentencia pero no espera obtener un cursor a cambio.

Espero haberme explicado y que de alguna ayuda te sirva.

Hasta luego.

;)

grandmasterdari

11-01-2008 23:32:35

Aclaracion 03

claro al ocupar el "SQLQuery1->ExecSQL()", ejecuta la instruccion sql que esta en el atributo SQLQuery1->Text, pero e de aqui, que yo necesito los resultados de la consulta, para poder trabajar con esta,:)

keyboy

12-01-2008 00:53:37

En el código que pones no cierras la primera consulta antes de abrir la segunda. No me parece muy lógico, pero puede ser que por ahí esté el problema, aunque más parece ser problema del driver en cuestión. Y confirmo que "show tables" sí es una consulta SQL válida para MySQL y, similar al SELECT, regresa un cursor, esto es, un conjunto de registros, que para el Dataset debe ser exactamente lo mismo. Por ello es que pienso que se trata de un driver defectuoso.

Bye

grandmasterdari

12-01-2008 02:19:14

Aclaracion 04

keyboy, tu duda sobre el driver reforzo mi duda sobre el driver y me puse a buscar otro, probe con uno de "core lab" el cual es pago, me baje la version trial y tambien me da el mismo error, asique lo doy por descartado

jachguate

12-01-2008 02:37:21

Creo que solo estamos adivinando. Desde mi primera intervención te pregunté en que línea salta el error. Mientras no lo sepamos... menos clara tendremos la idea, y en ese estado podremos cambiar de driver, de motor de base de datos, de sistema operativo o de herramienta de programación, y probablemente el problema persista.

:D:D:D

grandmasterdari

12-01-2008 02:45:06

Aclaracion 05

la linea del error ya fue marcada, es en el segundo "SQLQuery1->Open()"

egostar

12-01-2008 02:50:05

Veamos, hay algo que no entiendo, estas usando un bookmark de otra consulta para usarlo en una diferente????

Código:

SQLQuery1->SQL->Clear();

SQLQuery1->SQL->Add("show tables");

SQLQuery1->Open();

TBookmarkStr BM= SQLQuery1->Bookmark;  //????????????

SQLQuery1->First();

 while((!SQLQuery1->Eof)&&((SQLQuery1->FieldByName("Database")->AsString)!="sircdb"))

            SQLQuery1->Next();

SQLQuery1->Refresh();

ClientDataSet1->UpdateCursorPos(); //?????????????

SQLQuery1->Bookmark=BM; //????????????

SQLQuery1->Close();

SQLQuery1->SQL->Clear();

SQLQuery1->SQL->Add("use basededatos;");  

SQLQuery1->Open(); //el error sale en esta linea

No se, yo creo que por ahi esta el problema.

Salud OS

grandmasterdari

12-01-2008 02:53:50

Aclaracion 06

egostar, lo de los bookmarks es un intento desesperado, en realidad no deberia ir ningun bookmark

consegui un ejemplo en su idioma

Código:

 procedure TFormTryMySQL.ConnectButtonClick(Sender: TObject);

 begin

   // Prüfen, ob wir eine aktive Verbindung haben. Falls ja, schliessen wir sie.

   if MySQLConnection1.Connected then CloseConnection(Sender);

   // Die Verbindungsparameter setzen.

   MySQLConnection1.HostName := HostEdit.Text;

   MySQLConnection1.UserName := UserEdit.Text;

   MySQLConnection1.Password := PasswdEdit.Text;

   MySQLConnection1.DatabaseName := 'mysql'; // MySQL ist immer vorhanden!

   ShowString('Opening a connection to server: ' + HostEdit.Text);

   MySQLConnection1.Open;

   // Zuerst eine Liste der verfügbaren Datenbanken abfragen.

   if MySQLConnection1.Connected then begin

     ShowString('Connected to server: ' + HostEdit.Text);

     ShowString('Retrieving list of available databases.');

     SQLQuery1.SQL.Text := 'show databases';

     SQLQuery1.Open;

     while not SQLQuery1.EOF do begin

       DatabaseComboBox.Items.Add(SQLQuery1.Fields[0].AsString);

       SQLQuery1.Next;

     end;

     SQLQuery1.Close;

     ShowString('List of databases received!');

   end;

 end;

es identico a lo que tengo, pero en c++, ahora... este chico solo usa un "open" y claro... con uno solo cualquiera lo hace

fuente -> aqui

jachguate

12-01-2008 03:12:52

Cita:

Empezado por grandmasterdari (Mensaje 257679)

la linea del error ya fue marcada, es en el segundo "SQLQuery1->Open()"

Bueno... la verdad desconozco si en mySQL es un query válido eso de use basededatos;, pero si lo es, dudo que devuelva un cursor. ¿estas seguro de eso?

En segundo lugar, en este mensaje dijiste que se trata de un open, pero nunca aclaraste que se tratase del segundo. Desde el inicio era obvio que era un Open el que originaba el error... no me imagino a otra instrucción provocando un error como este.

La solución que te he dado (si es que es esto), estoy seguro que si hubieses intentado al menos comprender lo que ya te he dicho antes, pudiste alcanzarla por vos mismo.

Hasta luego.

;)

grandmasterdari

12-01-2008 03:20:14

Aclaracion 07

"use basededatos;" bueno "basededatos" es el nombre de mi base de datos. tambien podriamos llamarla negocio, por lo tanto quedaria asi "use negocio".
Cuando iniciamos sql, el no sabe que base de datos vamos a ocupar (varia segun usuario) entonces hay que decirle cual queremos usar con el famoso "use".
Entonces "basededatos" es una abstraccion del nombre de la base de datos ke vamos a ocupar.
Bueno, el error esta en el segundo OPEN, porque aparentemente ya ocupe el OPEN antes.

grandmasterdari

12-01-2008 03:35:29

Solucionado

antes que nada sepan disculpar mi estupidez, y gracias por su tiempo.

la idea era esta:
1) que el programa (al iniciar) compruebe la conexion con el motor de base de datos
2) que compruebe (al iniciar) si existe la base de datos con la que vamos a trabajar
3) que compruebe si estan todas las tablas que vamos a utilizar

este es una parte del codigo para comprobar, conexion, base de datos y tablas,

Código:

void __fastcall TForm1::FormCreate(TObject *Sender)//se ejecuta cuando se crea el formulario principal

{



        //comprobacion de conexion

        SQLConnection1->Connected=true;

        if(SQLConnection1->Connected==false){

                MessageBox(NULL,"No se puede establecer la conexion con la base de datos","Error",MB_OK);



                //bloquear botones

                Button8->Enabled=false;  //boton login



        }

        else{

                //comprobacion de base de datos

                SQLQuery1->SQL->Clear();

                SQLQuery1->SQL->Add(codec("show databases");

                SQLQuery1->Open();

                while((!SQLQuery1->Eof)&&((SQLQuery1->FieldByName("Database")->AsString)!="sircdb"))

                        SQLQuery1->Next();

                if(SQLQuery1->Eof==true){

                        MessageBox(NULL,"No se encuentra la base de datos sircdb","Error",MB_OK);



                        //bloquear botones del formulario principal, por ahora tengo 1 nomas

                        Button8->Enabled=false;  //boton login

                        SQLQuery1->Close();//cierro por las dudas, no se si hace falta ya que el programa solo da la opcion para cerrarse

                }

                else{

                        //uso de la base de datos, que ya se que existe

                        SQLQuery1->Close();

                        SQLQuery1->Open();

                        SQLQuery1->SQL->Clear();

                        SQLQuery1->SQL->Add("use sircdb;");

                        SQLQuery1->ExecSQL(true);//para poder ejecutar el comando

                        //en esta parte empiezo a contralar si estan todas las tablas

                        SQLQuery1->SQL->Clear();

                        SQLQuery1->SQL->Add("show tables;");

                        SQLQuery1->Open();//jejeje. no hay error.

                        //y aqui deberiamos hacer el mismo recorrido anterior (while(!SQLQuery1->Eof  bla bla))

                        //con los condicionales necesarios para la comprobacion de todas las tablas





                }//cierro el else de db

        }//cierro el else de conexion

        SQLQuery1->Close();

}

encontre el error gracias a jachguate porque dijo esto
"Bueno... la verdad desconozco si en mySQL es un query válido eso de use basededatos;, pero si lo es, dudo que devuelva un cursor"
y es verdad, realice un "use basededatos" (en mi codigo "use sircdb"), y esto no devuelve un cursor por eso no se puede realizar el metodo "SQLQuery1->Open()", solo se puede el "SQLQuery1->ExecSQL()"

gracias a jachguate, caral, keyboy y egostar por ayudar

La franja horaria es GMT +2. Ahora son las 20:21:07.