[VB6] Connessione DB2, query su tabelle, invio risultati a grafico

[bobovieri]

Ciao a tutti!!!!!!

Vado subito al dunque...dal titolo spero possa essere chiaro il mio problema: ho un DB DB2 sul quale devo eseguire una query con intervallo di date e spedire il risultato ad un grafico.

Al momento sto cercando di creare la connessione al DB in questo modo

Private Sub Command1_Click()
Dim SQL As Integer
Dim objconn As New Connection
Dim objRS As Integer
    objconn.Open "MYDB", "Admin", "XXX"

    SQL = "SELECT OUT_DEV_TIMESTAMP, DEVELOPED_FOOTAGE, DEVELOPER_LOCATION, LEADER"
    SQL = SQL & "FROM DEVELOPER_LOG"
    SQL = SQL & "WHERE OUT_DEV_TIMESTAMP >= Data1.value )"
    SQL = SQL & "OUT_DEV_TIMESTAMP < Data2.VALUE )"
    SQL = SQL & "AND DEVELOPER_LOCATION in ( SELECT NAME)"
                                             SQL = SQL & "FROM DEVELOPING_MACHINE"
                                             SQL = SQL & "WHERE GAUGE_35 = 'Y' )"
                                             SQL = SQL & "TYPE = 'POS'"
    SQL = SQL & "ORDER BY DEVELOPER_LOCATION ASC, OUT_DEV_TIMESTAMP ASC"
    Set objRS = objconn.Execute(SQL)
End Sub

Mi da errore sul

Set objRS...

mi dice:
NECESSARIO OGGETTO

Chi mi può gentilmente aiutare a capire??? E' la prima volta che faccio una cosa del genere; di solito per i collegamenti coi DB uso ADO, ma in quel caso i DB sono Access.

Grazie mille a tutti!!!

A presto!!!

[Brainjar]

Devi Dichiarare objRS come ADODB.RecordSet se usi ADO.
dovrebbe essere lo stesso per oggetti Access.

' Dim objRS As Integer
Dim objRS As New ADODB.RecordSet  
' ---------------------------------------------------
' oppure,  (o l'uno (sopra) o l'altro (sotto))
' ---------------------------------------------------
Dim objRS As New RecordSet

[bobovieri]

ed infatti dopo che ho postato ho continuato la ricerca nel forum e ho trovato la dichiarazione che mi hai segnalato tu. Grazie mille!!!

Ora mi da problema con USERNAME o PASSWORD errati!!! Stranissimo!!!!

Intanto continuo a lavorarci, se a qualcuno venisse in mente di aiutarmi ad inviare le info al grafico, tutto ben accetto!!!!

Grazie mille ancora a tutti!!!

[bobovieri]

Ariciao a tutti!!!!

Come promesso rieccomi qui. Ho ricominciato a lavorare a questa cosetta.

Risolto il problema di USERNAME e PASSWORD (I'm stupid!!!), ora mi da errore sulla query SQL. Posto il codice:

Dim SQL As Integer
    Dim objconn As New Connection
    Dim objRS As New ADODB.Recordset
        objconn.Open "RFL3", "USERID", "DOORWAY"
        
        SQL = "SELECT OUT_DEV_TIMESTAMP, DEVELOPED_FOOTAGE, DEVELOPED_LOCATION, LEADER"
        SQL = SQL & "FROM DEVELOPER_LOG"
        SQL = SQL & "WHERE OUT_DEV_TIMESTAMP>=Data1.value)"
        SQL = SQL & "OUT_DEV_TIMESTAMP < Data2.value)"
        SQL = SQL & "AND DEVELOPER_LOCATION in (SELECT NAME)"
                                                SQL = SQL & "FROM DEVELOPING_MACHINE"
                                                SQL = SQL & "WHERE GAUGE_35 = 'Y')"
                                                SQL = SQL & "TYPE = 'POS'"
        SQL = SQL & "ORDER BY DEVELOPER_LOCATION ASC, OUT_DEV_TIMESTAMP ASC"
        Set objRS = objconn.Execute(SQL)

Mi dice:
TIPO NON CORRISPONDENTE.

Perchè???

Mi aiutate gentilmente a capire come fare???

Grazie ragazzi e a presto!!!

[jinglejill]

Controlla le parentesi

[girobai]

hai dichiarato la variabile SQL come integer.........

ciao

[alka]

Originariamente inviato da jinglejill
Controlla le parentesi

Non risollevare discussioni concluse da mesi: chi ha iniziato la discussione potrebbe non essere più interessato alla risposta, o potrebbe aver già risolto il problema, e il rilievo sposta verso il basso le discussioni più recenti nel forum.