FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; *) 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 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. |
|
|
|