VB6 (32 BIT - 1998) BŁĄD 3061 - WINDOWS 7 - DOSTĘP 2007 - EXCEL 2007

Napisałem program VB6, który wyodrębnia rekordy z bazy danych ACCESS 2007 i zapisuje je w arkuszu EXCEL 2007.

Program działał bez zarzutu i używałem exe przez kilka miesięcy. Potem nastąpił chaos. Nowy 1 GB HD, który zainstalowałem jako „C”, popełnił samobójstwo i spowodował stały błąd. Mój drugorzędny 2 GB „D” również wywołał stały błąd. System pa pa.

Udało mi się wszystko odzyskać. Włóż nowe dyski twarde (gwarancja zapewniła im). Ponownie zainstalowano W7, ACCESS 2007, EXCEL 2007 i VB6, wszystkie z CD.

Teraz, gdy uruchamiam mój VB exe, daje mi błąd wykonania 3061 - zbyt mało parametrów - oczekiwano przynajmniej 1.

Sprawcą jest wybór:

Set rs = db.OpenRecordset(Select_str)

WYBIERZ ZAWIERA:

SELECT
    HORA,
    ARL,
    ARL_ECON,
    ESTADO_OPE,
    EST_REMUN,
    ENERGIA,
    POT_DISP,
    POT_RECORTADA,
    PIND,
    PINDFORZ,
    CGN,
    CGO,
    CFO,
    CCM,
    PRECIO_NODO,
    PR_REM_ENERGIA,
    SCTD,
    SCO,
    COSTO_406,
    COMPRA_SPOT,
    POT_DISP_RESERVA,
    POT_DISP_GAS,
    GAS_NOMINADO,
    REM_ADICIONAL,
    REM_ADIC_TOTAL,
    DESP_ECON,
    PGENE_COMP_446,
    REM_ADIC_COMP_446,
    REM_GAS_6866,
    REMUN_ADIC_6866,
    POT_DISP_ACD
FROM VALORES_GENERADORES
WHERE GRUPO = "XXXXXX"

Wybieram ten wybór w ten sposób:

BeguinSelectString$ = "SELECT HORA, "
DE$ = " FROM "
Donde$ = " WHERE GRUPO = " + Chr(34)
FinDelSelect$ = Chr(34) + " "

Select_str = ""

„ZBUDUJĘ TEN WYBÓR ZA POMOCĄ / NASTĘPNIE, ABY WYKAZYĆ WSZYSTKIE POLA I STOSOWAĆ W WYBORZE.

Select_str = BeguinSelectString$

For i = 0 To (Max_Index_de_Records_1 - 1)

    Select_str = Select_str + Nombres_de_Campos_1(i) + ", "

Next i

    Select_str = Select_str + Nombres_de_Campos_1(Max_Index_de_Records_1) ' I INSERT THE LAST FIELD WITHOUT THE COMMA, ELSE IT GIVES AN ERROR

    Select_str = Select_str + _
             DE$ + _
             Tabla + _
             Donde$ + _
             sNombre_del_Grupo + _
             FinDelSelect$

REFERENCJE PROJEKTU SĄ, w tej kolejności:

Visual Basic dla aplikacjiObiekty i procedury środowiska wykonawczego Visual BasicObiekty i procedury Visual BasicKontrola ActiveBarBiblioteka typu ActiveExMicrosoft DAO 3.6 Object LibraryBiblioteka obiektów programu Microsoft Excel 12.0Biblioteka obiektów programu Microsoft Access 12.0Biblioteka obiektów Microsoft Office 12.0