Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-04-2005
kryna kryna is offline
Miembro
 
Registrado: mar 2005
Posts: 46
Poder: 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
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 12:49:20.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi