Ver Mensaje Individual
  #1  
Antiguo 20-04-2005
kryna kryna is offline
Miembro
 
Registrado: mar 2005
Posts: 46
Reputación: 0
kryna Va por buen camino
de paradox a mysql

Hola a Todos?

Mi pregunta es la siguiente.....

Tengo una aplicacion en delphi 7... y mi gestor es paradox 7...

Ahora debo cambiar el gestor de Paradox a Mysql... tengo la ventaja qlas tablas las puedo vaciar...

La razon por la que quiero cambiar es que me genera algunos errores la busqueda...
1) Cuando coloco en la aplicacion el campo de busqueda (codigo) no me toma en cuenta el ultimo registro...
la busqueda la estoy haciendo con un query y tengo una opcion EOF..
son tres tablas

Código:
  if  editorcod.text <> nil then
begin
	qrycod.Close;
	qrycod.ParamByName('Codigo').AsInteger := StrToInt(editorcod.text);
	Dscod.dataset := qrycod;
	qrycod.Open;
. 
.
.
if qrycod.EOF then
	  ShowMessage('No encontré ningún Registro!');
	  end;	*)
y el sql
Código:
SELECT especialidad.Cod_especialidad, especialidad.Descripcion_especialidad, especialidad.Orden, especialidad.Nota, concepto.Cod_especialidad, concepto.Cod_concepto, concepto.Descripcion_concepto, costos.Cod_concepto, costos.Fecha, costos.Costo
FROM especialidad, concepto, costos WHERE (especialidad.Cod_especialidad = concepto.Cod_especialidad) AND (concepto.Cod_concepto = costos.Cod_concepto) AND concepto.Cod_concepto = :Codigo
codigo es un parametro de tipo entero, requestlive = true, active = true.

2) cuando incluyo un registro.. me lo incluye dos veces , sin embargo al incluir el proximo se borra el primero y solo me queda uno...osea me sobreescribe el primer registo...
osea mi tabla tiene estos valores en el parametro codigo
cod_con 1,2,6,8,8

ahora le voy a incluir un registro cod_con cuyo valor es 16.. me va ha quedar ahora mi tabla asi.. cod_con 1,2,6,8,16,16

Código:
if  codigo_con <> nil then
	qrybus.Close;
	qrybus.ParamByName('Codigo').AsInteger := StrToInt(codigo_con.text);
	databus.dataset := qrybus;
	qrybus.open;
	  if qrybus.EOF then
	  begin
Tbconcepto.Insert;
Tbconcepto.FieldByName('cod_concepto').AsString := clave2;
Tbconcepto.FieldByName('cod_especialidad').AsString := Clave;
Tbconcepto.Post;
Tbconcepto.Next;
Tbconcepto.FlushBuffers;
Tbconcepto.Close;

no se que pasa si es error de codigo o debe cambiar mi gestor y lo que sucede es que nunca he usado mysql y soy una novata en delphi... y realmente no se como puedo hacerlo...

ojala haya podido explicarme bien
gracias karina

Última edición por kryna fecha: 20-04-2005 a las 22:16:20.
Responder Con Cita