• Viernes 26 de Abril de 2024, 13:58

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Temas - ioriyagami80

Páginas: [1]
1
Java / Consultar Dos Bases De Datos Diferentes
« en: Lunes 16 de Junio de 2008, 22:01 »
HOLA A TODOS LES MANDO UN SALUDO DESDE MEXICO Y RECURRO A USTEDES EN UN PROBLEMA QUE TENGO, UTILIZO DELPHI 7 Y ACCESS 2000, TENGO DOS MDB DIFERENTES Y BUENO MI CLIENTE ME PROPORCIONA ACTUALIZACION DE LOS REGISTROS DE CADA BASE, ASI COMO NUEVOS REGISTROS Y REGISTROS QUE TENGO QUE DAR DE BAJA, EL PROBLEMA ES QUE ME MANDA LOS DATOS DE AMBAS BASES JUNTOS, Y QUIERO HACER UNA CONSULTA DONDE PUEDA DECIR ESTOS REGISTROS SON DE LA BASE 1 Y ESTOS DE LA BASE 2 PARA ACTUALIZARLOS PERO NO SE COMO HACER ESA CONSULTA
LO INTENTE DE ESTA FORMA

ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Add('SELECT * FROM CLIENTES WHERE CUENTA IN (SELECT CUENTA FROM C:\BASE1\CLIENTES.MDB)');
ADOQUERY1.Open;

PERO NO ME MANDO NINGUN RESULTADO

ALGUIEN ME PODRIA DECIR COMO

DE ANTE MANO GRACIAS

2
Delphi / Error Al Cerrar Formularios Hijos
« en: Lunes 9 de Junio de 2008, 19:42 »
HOLA DE ANTE MANO AGRADESCO SU TIMPO PARA LEER ESTE PROBLEMA QUE ME SUCITO, BUENO PUES SE TRATA DE LO SIGUIENTE, TENGO UNA APLICACION EN DELHPI 7 Y ACCESS 2000, ES UNA APLICACION CON FORMULARIO PADRE Y VARIOS HIJOS, LOS FORMULARIOS HOJOS LOS MANDO LLAMAR DESEDE EL FORMULARIO PADRE O DESDE EL OTRO FORMULARIO HIJO Y LO HAGO DE LA SIGUIENTE FORMA

if not Assigned(FORM13) then
BEGIN
FORM13:= TFORM13.Create(Application);
END
ELSE
BEGIN
FORM13.SHOW;
FORM13.WindowState:=WSNORMAL;
END;

PARA QUE ME CREES EL FORMULARIO SI NO EXISTE Y DE LO CONTRARIO LO MUESTRE YA QUE PODRIA ESTAR MINIMIZADO, PARA CERRAR EL FORMULARIO HIJO LO HAGO DE LA SIGUIENTE FORMA

form13.Free;
form13:=nil;


EL PROBLEMA ES EL SIGUIENTE, SI ABRO EL FORMULARIO HIJO1 Y DE AHI ABRO EL FORMULARIO HIJO2 Y CERRANDO EL HIJO1 Y DESPUES EL HIJO 2 ME MANDA EL SIGUIENTE ERROR

RAISED EXCEPTION CLASS EACCESS, ACCESS VIOLATION AT ADDRESS 0048085A READ OF ADRESS 00D1952F

CERRANDOLOS EN ORDEN CONTRARIO ES DECIR HIJO2 Y DESPUES HIJO1, PUES LO HACE SIN PROBLEMAS, LES AGRADECERIA QUE ME AYUDARAB A RESOLVER ESTE PROBLEMA

3
Delphi / Crear Archivo .dat
« en: Viernes 11 de Abril de 2008, 02:14 »
hola a todos, recurro a ustedes por que en una aplicacion que estoy haciendo con delphi 7 me han pedido que crees un archivo .DAT con informacion de la base de datos, la base que utilizo es access, esto ya se hacia de la siquiente manera, desde mi aplicacion exporta los datos a excel y ahi un usuario lo que hace es darle un tamaño a las columnas de escel ya que deben tener una cierta longitud y despues  con msdos lo copia y pega con extion .DAT, asi es como hasta ahora se esta realizando, pero ahora me piden que este proceso se haga de manera automatica desde la aplicacion para que con solo dar un clic se cree este archivo, ojala me puedan ayudar, utilo componentes ado, con un adoquery saco la informacion a excel con el siguiente condigo
VAR S:STRING;
begin
S:=INPUTBOX('NOMBRE DEL ARCHIVO','NOMBRE','');
SAVEDIALOG1.FileName:=S;
SAVEDIALOG1.Execute;
CurrentFolder :=SAVEDIALOG1.InitialDir;
SAVEDIALOG1.FileName:=S;
ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Add('SELECT GESTIONTELEFONICA.CUENTA, GESTIONTELEFONICA.CAUSA, FORMAT( GESTIONTELEFONICA.FECHAGESTION,"YYYYMMDD") AS FEHCAGEST, FORMAT(GESTIONTELEFONICA.HORAGESTION,"HHNNSS") AS HORAGESTION,');
ADOQUERY1.SQL.Add('IIF(PAGOS22.FECHA1<>0,(Format(PAGOS22.FECHA1,"yyyymmdd")),RIGHT("00000000"+"0",8)) AS FECHADEPROMESA , IIf(PAGOS22.PAGO1<>0,RIGHT("00000000000000"+FORMAT(PAGO1),14),RIGHT("000000000000000"+"0",14)) AS MONTOPAGO');
ADOQUERY1.SQL.Add(',CLIENTES.NOMARCH, GESTIONTELEFONICA.GESTION40, "E" AS TIPOGEST INTO GESTIONTELEFONICA IN "' + CurrentFolder + '''' +S+ '''.xls" "Excel 8.0;"');
ADOQUERY1.SQL.Add('FROM (CLIENTES INNER JOIN GESTIONTELEFONICA ON CLIENTES.CUENTA = GESTIONTELEFONICA.CUENTA) INNER JOIN PAGOS22 ON CLIENTES.CUENTA = PAGOS22.CUENTA');
ADOQUERY1.SQL.Add('WHERE GESTIONTELEFONICA.FECHAGESTION >= :J AND GESTIONTELEFONICA.FECHAGESTION <= :F');
ADOQUERY1.Parameters.ParamByName('J').Value:=STRTODATE(EDIT1.Text);
ADOQUERY1.Parameters.ParamByName('F').Value:=STRTODATE(EDIT2.Text);
ADOQUERY1.ExecSQL;
FORM19.CLOSE;
end;

OJALA ME PUEDAN AYUDAR

4
Delphi / Error Stack Overflow En Reporte
« en: Miércoles 27 de Febrero de 2008, 01:20 »
ANTES QUE NADA ESPERO QUE TODOS ESTEN BIEN, Y BUENO RECURRO A USTEDES POR QUE TENGO UN PROBLEMA CON UN REPORTE DE QUICKREPORT Y DELPHI PUES ME MANDA EL SIGUIENTE ERROR

STACK OVERFLOW

ES UN FORMULARIO MIDI EN DONDE TENGA UN CHEKLISTBOX, AHI EL USUARIO SELECCION LOS VENDEDORES DE LOS CUALES QUIERE SABER LA VENTA POR UN RAGO DE FECHAS AL SELECCIONAR LOS VENDEDORES, ESCRIBE LAS FECHAS EN DOS MASKEDIT Y LUEGO AL DAR CLIC EN EL BOTON MANDO LOS VENDEDORES SELECIONADOS A UN LISTBOX Y DE AHI LOS TOMO PARA AGREGARLOS EN LA CONSUTLA QUE DA LOS DATOS AL REPORTE, USO ACCESS COMO BASE DE DATOS Y BUENO AL PRIMER INTENTO NO HAY PROBLEMA TODO SALE BIEN PERO SI QUIERO ALGUN OTRO REPORTE DE OTROS VENDEDORES ES CUANDO ME MANDA EL ERROR, CABE SEÑALAR QUE EN EL REPORTE TENGO UN ADOQUERY Y QRTCHAR PARA UNA GRAFICA TIPO PYE
ESTE ES MI CODIGO DE COMO LE DOY VALORES AL CHECKLISTBOS DE AHI AL LISTBOX Y DE AHI AL REPORTE

CON EL SUIGNETE CODIGO

var
 fmtWhere:STRING;
 Elemento:INTEGER;
I:INTEGER;
 X:INTEGER;
VAR1:STRING;
  Form22: TForm22;

implementation

uses PAGXGEST;

{$R *.dfm}

procedure TForm22.FormCreate(Sender: TObject);
begin
ADOQUERY1.Close;
ADOQUERY1.SQL.Clear;
ADOQUERY1.SQL.Add('SELECT GESTINT FROM CLIENTES GROUP BY GESTINT');
ADOQUERY1.Open;
   CHECKLISTBOX1.Items.Clear;
   While not ADOQUERY1.Eof do
   begin
      CHECKLISTbox1.Items.Add(ADOQUERY1.Fields[0].Text);
ADOQUERY1.Next;
   end;
end;

procedure TForm22.SpeedButton1Click(Sender: TObject);
begin
 fmtWhere:='"%S"';
LISTBOX1.Items.Clear;
FOR Elemento:=0 TO CheckListBox1.Items.Count -1 DO
BEGIN
IF CheckListBox1.Checked[Elemento] THEN
BEGIN
LISTBOX1.Items.Add(CheckListBox1.Items.Strings[Elemento]);
end;
END;
VAR1:='';
 for I := 0 to ListBox1.Items.Count - 1 do
 BEGIN
    if VAR1 = ''    then
    BEGIN
    VAR1 := Format(fmtWhere,[ListBox1.Items]);
    END
    else
    BEGIN
     VAR1 := VAR1 + ',' +Format(fmtWhere,[ListBox1.Items]);
    END;
    END;
REPPAGXGEST.ADOQuery1.Close;
REPPAGXGEST.ADOQuery1.SQL.Clear;
REPPAGXGEST.ADOQuery1.SQL.Add('SELECT SUM(PAGO) AS PAGO, GESTOR FROM REPORTEREC');
REPPAGXGEST.ADOQuery1.SQL.Add('WHERE GESTOR IN ( '+VAR1+') AND FPAG>=:LO AND FPAG<=:LA');
REPPAGXGEST.ADOQuery1.SQL.Add('GROUP BY GESTOR ORDER BY SUM(PAGO) DESC');
REPPAGXGEST.ADOQUERY1.Parameters.ParamByName('LO').Value:=STRTODATE(MASKEDIT1.TEXT);
REPPAGXGEST.ADOQUERY1.Parameters.ParamByName('LA').Value:=STRTODATE(MASKEDIT2.TEXT);
REPPAGXGEST.ADOQuery1.Open;
REPPAGXGEST.QRLabel5.Caption:=MASKEDIT1.Text;
REPPAGXGEST.QRLabel8.Caption:=MASKEDIT2.Text;
REPPAGXGEST.Preview;
FORM22.Close;
end;

OJALA PUEDAN AYUDARME, MIL GRACIAS A TODOS

5
Delphi / Qrchart
« en: Viernes 22 de Febrero de 2008, 17:35 »
HOLA ANTES QUE  NADA UN SALUDO A TODOS, Y RECURRO A USTEDES POR QUE TENGO UN PEQUEÑO PROBLEMA, ESTOY REALIZANDO UN REPORTE CON QUICKREPORTE EN DELPHI 7 Y MI BASE DE DATOS ES ACCESS 2000, EN UNO DE LOS REPORTE QUIERO PONER UNA GRAFICA TIPO PIE CON DATOS DE UNA TABLA QUE SE LLAMA DETALLE Y AHI ESTA LAS VENTAS DE CADA VENDEDOT, EN UNA CONSULTA USANDO ADOQUERY TENGO LO SIGUIENTE
SELECT SUM(PAGO) AS PAGO, VENDEDORES.VENDEDOR FROM DETALLE INNER JOIN VENDEDORES ON DETALLE.ID = VENDEDORES.ID
Y BUENO AL PASARLE LOS DATOS AL QRCHART SOLO ME MUESTRA EL CAMPO PAGO Y NO ME MUESTRA EL CAMPO VENDEDOR QUE SON LAS ETIQUETAS O DIVISIONES DEL PIE, ALGUIEN ME PUEDE AYUDAR

6
Delphi / Problemas Al Exportar Dbgrid A Excel
« en: Jueves 3 de Enero de 2008, 23:34 »
hola a todos le pido su ayuda
en mi aplicacion estoy exportando datos de un dbgrid a excel uso el siguiente codigo
procedure TForm1.Button1Click(Sender: TObject);
var
excel:Variant;
fila, columna:Integer;
begin
with adoquery1, adoquery1.SQL do
begin
Close;
Open;
if IsEmpty then
begin
MessageDlg('No existen datos que reportar!', mtWarning,[mbOk], 0);
Exit;
end;
TRY
excel := CreateOleObject('Excel.Application');
EXCEPT
ShowMessage('Excel no se pudo iniciar.');
exit;
END;
excel.Visible := VISIBLE;
First;
fila := 1;
excel.Workbooks.Add;
EXCEL.CELLS.COLUMNWIDTH:=15;
//Poner los títulos
for columna := 0 to DbGrid1.Columns.Count-1 do
excel.Cells[fila,columna + 1].Value:= DbGrid1.Columns[columna].Title.Caption;
fila:=3;
//Desengachar controles para agilizar
DisableControls;
TRY
while not(eof) do
begin
for columna := 0 to DbGrid1.Columns.Count-1 do
excel.Cells[fila,columna + 1].Value := FieldByName(DbGrid1.Columns[columna].FieldName).asSTRING;
Next;
inc(fila);
end;
EXCEPT
ShowMessage('Atención, se produjo un error en la transmisión.');
END;

me abre perfectamente y pasa los datos a excepcion de mi campo cuenta el cual es de tipo widestring y se llama cuenta en el estan los numeros de cuenta del cliente un ejemplo de un dato es 4207130000099992

pero el archivo de excel aparece asi
4.20713E+15

al dar formato texto en excel me deja esto
4207130000099990

cuando deberia ser
4207130000099992

alguien me puede ayudar para que me deje el dato tal y como es?
gracias a todos
EnableControls;
end;
end;

7
Delphi / Erroe La Consulta Es Medasiado Compleja
« en: Miércoles 21 de Noviembre de 2007, 00:32 »
tengo una aplicacion en delhpi 7 y access 2000, me pasa lo siguiente:
en mi tabla tengo 130 campos, agrego registros sin problemas, el error es cuando intento editarlas o borrar algun registro, me dice que la consulta es demasiado compleja, hice pruebas con esa misma tabla pero con menos de 60 campos  y trabaja perfectamente, asi que el error se debe a que son demasiados campos, alguien me podria decir como solucionar esto?
uso los siguientes componentes: adoquery y adoconnection

8
MS Access / Referencias Cruzadas
« en: Viernes 9 de Noviembre de 2007, 19:34 »
OJALA ME PUEDAN AYUDAR, QUISIERA SABER SI HAY ALGUNA FORMA DE UNIR DOS TABLAS DE REFERENCIAS CRUZADAS YA QUE TENGO 5 CON EL MISMO TIPO DE DATOS Y EL MISMO NUMERO DE CAMPOS OJALA ME PUEDAN AYUDAR, TAMBIEN QUIERA PEDIR SU AYUDA PARA OTRO PROBLEMA, TENGO UNA TABLA CON UN CAMPO QUE ES FECHA DE ASIGNACION Y AHI MISMO OTRO CAMPO QUE ES COTACTO, QUIERO HACER UNA TABLA DE REFERENCIAS CRUZADAS PARA QUE ME DIGA EN CADA CLIENTES EL TOTAL DE CONTACTOS QUE HEMOS TENIDO CON EL PERO TOMANDO COMO CAMPOS DE COLUMNA LA FECHA DE ASIGNACION ES DECIR SI TIENES UNA FECHA DE 01/03/2007 LA SIGUIENTE COLUMNA SEA 8/03/2007 Y LA SIGUIENTE 15/03/2007 COMO PODRIA LOGRAR ESTO?

9
MS Access / Referencias Cruzadas
« en: Viernes 9 de Noviembre de 2007, 19:33 »
OJALA ME PUEDAN AYUDAR, QUISIERA SABER SI HAY ALGUNA FORMA DE UNIR DOS TABLAS DE REFERENCIAS CRUZADAS YA QUE TENGO 5 CON EL MISMO TIPO DE DATOS Y EL MISMO NUMERO DE CAMPOS OJALA ME PUEDAN AYUDAR, TAMBIEN QUIERA PEDIR SU AYUDA PARA OTRO PROBLEMA, TENGO UNA TABLA CON UN CAMPO QUE ES FECHA DE ASIGNACION Y AHI MISMO OTRO CAMPO QUE ES COTACTO, QUIERO HACER UNA TABLA DE REFERENCIAS CRUZADAS PARA QUE ME DIGA EN CADA CLIENTES EL TOTAL DE CONTACTOS QUE HEMOS TENIDO CON EL PERO TOMANDO COMO CAMPOS DE COLUMNA LA FECHA DE ASIGNACION ES DECIR SI TIENES UNA FECHA DE 01/03/2007 LA SIGUIENTE COLUMNA SEA 8/03/2007 Y LA SIGUIENTE 15/03/2007 COMO PODRIA LOGRAR ESTO?

10
MS Access / Saber La Semana Del Mes
« en: Viernes 9 de Noviembre de 2007, 03:46 »
HOLA  A TODOS, OJALA ME PUEDAN AYUDAR, MI PROBLEMA ES EL SIGUIENTE, QUIERO SABER QUE SEMANA DEL MES CORRESPONDEA A UNA FECHA DADA, ES DECIR QUE SI TENGO 10/01/2007 ME DEVUELVA 2 QUE ME ESTA DIENDO QUE ES LA SEGUANDA SEMANA DEL MES DE ENERO, OTRO EJEMPLO SERIA 12/04/2007 Y ME DEVUELVA 2 POR QUE ESA FECHA CORRESPONDE A LA SEGUNDA SEMANA DE ABRIL, OJALA ME PUEDAN AYUDAR TODO ESTO LO QUIERO SABER EN UNA CONSULTA SE PODRA?

11
Delphi / Edicion En Registros
« en: Jueves 1 de Noviembre de 2007, 04:37 »
hola a todos, ojala me puedan ayudar, diseñe una aplicacion con delphi 7 y access 2000 y me pasa lo siguiente.
uso componentes adoquery con los cuales traigo los datos que maneja el usuario, si el usuario hace una modificacion en algun registro no se edita al menos que se cambie de registro, es decir si yo cambio una fecha y me muevo de registro para lo cual tengo un dbnavigator este cambio se efectua, pero si yo en lugar de moverme busco otro registro lo cual hago con locate pues al regresar al registro que modifique pues no aplica la edicion que hice, me deja el registro como si no hubiera hecho nada, alguien me podria decir como evitar esto y que la edicion se automatica, es decir que haga lo que haga se guarde la edicion

12
Delphi / Problema Con Registros Duplicados
« en: Lunes 3 de Septiembre de 2007, 18:26 »
estoy realizando una aplicacion en delphi y access 2000 uso los adoquery's y tengo una consulta que dice asi
SELECT CUENTA  FROM CLIENTES WHERE CUENTA IN (SELECT CUENTA  FROM GESTIONTELEFONICA WHERE DATEDIFF('D',FECHAGESTION,NOW())>7 AND CUENTA IN (SELECT CUENTA FROM GESTION TELEFONICA WHERE DATEDIFF('D',FECHAGESTION,NOW())<7));   ESTO FUNCIONA BIEN,
EN LA TABAL GESTION TELEFONICA TENGO MUCHOS REGISTROS DEPLICADOS POR QUE LO QUE CAMBIA ES SU FECHA EN EL CAMPO FECHAGESTION, LO QUE QUIERO SABER ES QUE REGISTROS DE CLIENTES TIENES REGISTROS EN GESTION TELEFONICA CON UNA DIFERENCIA MAYOR A 7 DIAS PERO QUE NO TENGAN REGISTROS DUPLICADOS CON UNA DIFERENCIA MENOR A 7 DIAS, ALGUIEN PODRIA AYUDARME

13
MS Access / Problema Con Registros Duplicados
« en: Lunes 3 de Septiembre de 2007, 18:09 »
tengo una base de datos con mas de 20 mil registros varios registros estan duplicados en mi tabla tendo id y fecha los registros se duplican en id pero la fecha es diferente quiero saber como realizar una consulta en la que me de los registros que tiene mas de 7 dias de direncia con la fecha actual, usa la funcion datediff de sql y los obtengo pero varios de los registros que me regresa al ser deplicados pues tambien tienen una fecha con diferencia menor de 7 dias, lo que quiero es saber que registros tienes mas de 7 dias pero que no tenga duplicados que tengan menos de 7 dias alguien podria ayudarme, se los agradeceria mucho

Páginas: [1]