Hallo Forum
Ich habe folgendes Problem:
Ich habe in Access einen SQL gemacht, mit welchem ich Daten aus verschiedenen DBF Tabellen ind eine ACCESS-MDB schreiben kann, welche ich in einem Tool nutzen will.
Ein Formular konnte ich im Visual Basic erstellen, nun möchte ich per Knopfdruck den SQL den ich im Access nutze im Formular nutzen.
der SQL lautet wie folgt:
INSERT INTO PROGNOSE ( ART_CODE, TOTMENGE, START, ENDE, ANZAHL, INTERVALL, STUECKZAHL, PR_DATUM, PR_MENGE, STATUS, NAME1, L_BESTAND ) IN 'K:\KWAG.MDB'SELECT LR_HIST.ART_CODE, Sum(LR_HIST.MENGE) AS TOTMENGE, First(LR_HIST.DATUM) AS START, Last(LR_HIST.DATUM) AS ENDE, Count(LR_HIST.DATUM) AS ANZAHL, Int((Last([DATUM])-First([DATUM]))/Count([DATUM])) AS INTERVALL, Int(Sum([MENGE])/Count([DATUM])) AS STUECKZAHL, Last([DATUM])+Int((Last([DATUM])-First([DATUM]))/Count([DATUM])) AS PR_DATUM, Int((Last([MENGE])+Int(Sum([MENGE])/Count([DATUM])))/2) AS PR_MENGE, IIf(Int((Last([MENGE])+Int(Sum([MENGE])/Count([DATUM])))/2)<[L_BESTAND],"ab Lager",IIf((Last([DATUM])+Int((Last([DATUM])-First([DATUM]))/Count([DATUM])))<Date(),"Sofort",IIf((Last([DATUM])+Int((Last([DATUM])-First([DATUM]))/Count([DATUM])))<(Date()+7),"Dringend","Planung"))) AS STATUS, ARTIKEL.NAME1, BESTAND.L_BESTANDFROM ((dBASE III;DATABASE=K:\BAS\;username=SP;password=spedi) ARTIKEL LEFT JOIN (dBASE III;DATABASE=K:\BAS\;username=SP;password=spedi) LR_HIST ON ARTIKEL.CODE = LR_HIST.ART_CODE) LEFT JOIN (dBASE III;DATABASE=K:\BAS\;username=SP;password=spedi) BESTAND ON ARTIKEL.CODE = BESTAND.ART_CODEWHERE (((ARTIKEL.BEST_NR) Like "APPENDIX") AND ((LR_HIST.DATUM)>Date()-720) AND ((LR_HIST.DOK_CODE) Like "L*"))GROUP BY LR_HIST.ART_CODE, ARTIKEL.NAME1, BESTAND.L_BESTANDORDER BY LR_HIST.ART_CODE;
Ich bin absoluter neueinsteiger in VB... also ned zuviel erwarten. Access hatte ich im Griff, aber das ziel ist eine eigenständige EXE-Datei, damit wir nicht auf jedem PC ein Access benötigen.
Hoffe mal, es kann jemand helfen.
Mit der suche habe ich leider nichts gefunden, wahrscheindlich suche ich falsch.....
Ich habe folgendes Problem:
Ich habe in Access einen SQL gemacht, mit welchem ich Daten aus verschiedenen DBF Tabellen ind eine ACCESS-MDB schreiben kann, welche ich in einem Tool nutzen will.
Ein Formular konnte ich im Visual Basic erstellen, nun möchte ich per Knopfdruck den SQL den ich im Access nutze im Formular nutzen.
der SQL lautet wie folgt:
INSERT INTO PROGNOSE ( ART_CODE, TOTMENGE, START, ENDE, ANZAHL, INTERVALL, STUECKZAHL, PR_DATUM, PR_MENGE, STATUS, NAME1, L_BESTAND ) IN 'K:\KWAG.MDB'SELECT LR_HIST.ART_CODE, Sum(LR_HIST.MENGE) AS TOTMENGE, First(LR_HIST.DATUM) AS START, Last(LR_HIST.DATUM) AS ENDE, Count(LR_HIST.DATUM) AS ANZAHL, Int((Last([DATUM])-First([DATUM]))/Count([DATUM])) AS INTERVALL, Int(Sum([MENGE])/Count([DATUM])) AS STUECKZAHL, Last([DATUM])+Int((Last([DATUM])-First([DATUM]))/Count([DATUM])) AS PR_DATUM, Int((Last([MENGE])+Int(Sum([MENGE])/Count([DATUM])))/2) AS PR_MENGE, IIf(Int((Last([MENGE])+Int(Sum([MENGE])/Count([DATUM])))/2)<[L_BESTAND],"ab Lager",IIf((Last([DATUM])+Int((Last([DATUM])-First([DATUM]))/Count([DATUM])))<Date(),"Sofort",IIf((Last([DATUM])+Int((Last([DATUM])-First([DATUM]))/Count([DATUM])))<(Date()+7),"Dringend","Planung"))) AS STATUS, ARTIKEL.NAME1, BESTAND.L_BESTANDFROM ((dBASE III;DATABASE=K:\BAS\;username=SP;password=spedi) ARTIKEL LEFT JOIN (dBASE III;DATABASE=K:\BAS\;username=SP;password=spedi) LR_HIST ON ARTIKEL.CODE = LR_HIST.ART_CODE) LEFT JOIN (dBASE III;DATABASE=K:\BAS\;username=SP;password=spedi) BESTAND ON ARTIKEL.CODE = BESTAND.ART_CODEWHERE (((ARTIKEL.BEST_NR) Like "APPENDIX") AND ((LR_HIST.DATUM)>Date()-720) AND ((LR_HIST.DOK_CODE) Like "L*"))GROUP BY LR_HIST.ART_CODE, ARTIKEL.NAME1, BESTAND.L_BESTANDORDER BY LR_HIST.ART_CODE;
Ich bin absoluter neueinsteiger in VB... also ned zuviel erwarten. Access hatte ich im Griff, aber das ziel ist eine eigenständige EXE-Datei, damit wir nicht auf jedem PC ein Access benötigen.
Hoffe mal, es kann jemand helfen.
Mit der suche habe ich leider nichts gefunden, wahrscheindlich suche ich falsch.....
Am lernen...