[vb6] spiegazione su codice (era: problemi con il codice !)

[LuigiFiordelisi]

Non riesco proprio a capire la logica di questo codice che devo correggere! Come funzione, qualcuno può aiutarmi?

Public Sub subCreaTabelle()
    
    On Error GoTo subCreaTabelle

    i = 0
    ' Crea nuova tabella
    Set rs = New Recordset
    rs.Open " CREATE TABLE tbTabella_" & i & " (Riga int, CodProdotto nvarchar (15), Referenza nvarchar(15)) ", db, adOpenStatic, adLockOptimistic 
 
Exit Sub
subCreaTabelle:
    Select Case Err.Number
        Case Is = -2147217900
            If i <= 500 Then
                i = i + 1
                Resume 0
            Else
                MsgBox "Error!!! " & Str$(Err.Number) & " " & Err.Description, vbInformation
            End If
        Case Else
            MsgBox "Error!!! " & Str$(Err.Number) & " " & Err.Description, vbInformation
    End Select
End Sub

[MMarzia]

come da regolamento:

specificare linguaggio e versione
usare titoli significativi

[LuigiFiordelisi]

up

[secan]

Da quel che mi sembra di capire, il codice non dovrebbe fare altro che creare una serie di tabelle uguali, con lo stesso nome seguito da un numero progressivo da 0 a 500... il problema è che, a quel che mi risulta (ho appena iniziato a programmare), l'oggetto recordset serve ad immagazzinare il risultato di un'istruzione DML (Data Manipulation Language) come SELECT, mentre l'istruzione CREATE fa parte del DDL (Data Definition Language): secondo me dovresti utilizzare un oggetto di tipo Command.
Inoltre hai detto che devi correggere il codice: cos'è che non funziona? Quali messaggi restituisce il debugger?

Secan

[vonkranz]

    rs.Open " CREATE TABLE tbTabella_" & trim(str(i)) & " (Riga int, CodProdotto nvarchar (15), Referenza nvarchar(15)) ", db, adOpenStatic, adLockOptimistic

...gia' solo in questa riga ci sono almeno 2 errori:

-Per lanciare quella sql devi usare il metodo EXECUTE della connection e non il metodo open del recordset
-ti ho messo la correzione in rosso per il secondo problema

in piu', la label della gestione degli errori deve avere un nome diverso rispetto al nome della funzione/sub (mi pare strano che questa cosa abbia superato la compilazione).