[Access - Vb.Net - ADO.net] - Relazioni tabelle

[Veronica80]

Ciao ragazzi, vorrei sapere una curiosità...

Io sto sviluppando un software Vb.Net che si aggancia a un DB Access tramite ADO.NET.

Nel DB ci son 3 tabelle.

Siti
Stili
Categorie

le ultime 2 tabelle son relazionate alla prima con una realazione "Uno a molti".

Ho applicato anche l'integrita referenziale per le modifiche (ma nn per le eliminazioni visto che se elimino una categoria dalla tabella Categorie nn voglio che mi elimini il sito dalla tabella Siti).

Vorrei sapere...è possibile far si che inserendo il valore nel campo Categoria della tabella sito me lo aggiunga anche in qualla Categoria? O devo per forza farlo al contrario? (Cioè aggiungere nella tabella categoria e poi creare un record su siti con quella categoria già esistente)

Grazie...lo so nn si capisce nulla come mi spiego in ste cose

:*

[oregon]

Il modo giusto e' aggiungere su Categorie ...

[Veronica80]

Ok me ne farò una ragione!

E' solo che con Vb6 era tutto molto + facile. dichiaravo l'oggetto recordset e usavo sempre quello modificandone il source qui invece devo fare una variabile ogni volta che mi connetto...

tipo:

   'Connessione:-----------------------
        Dim PercorsoDB As String = miaCartella & "/proprietà.mdb"
        Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & PercorsoDB
        Dim Cn As New OleDbConnection(ConnString)
        Dim sql As String
        '----------------------------------
      
  sql = "SELECT * FROM categorie"
        If Cn.State = ConnectionState.Open Then
            Cn.Close()
        End If
        Cn.Open()
        Dim cmd0 As New OleDbCommand(sql, Cn)
        Dim dr0 As OleDbDataReader = cmd0.ExecuteReader
        While dr0.Read
            cmbCat.Items.Add(dr0.Item("categoria"))
        End While
        cmd0 = Nothing
        dr0.Close()
        dr0 = Nothing


sql = "SELECT * FROM stili"
        If Cn.State = ConnectionState.Open Then
            Cn.Close()
        End If
        Cn.Open()
        Dim cmd0 As New OleDbCommand(sql, Cn)
        Dim dr1 As OleDbDataReader = cmd0.ExecuteReader
        While dr1.Read
            cmbCat.Items.Add(d1.Item("stile"))
        End While
        cmd1 = Nothing
        dr1.Close()
        dr1 = Nothing

vedi dr0, dr1, cmd0, cmd1.....non posso usare sempre dr e cmd cambiandone il contenuto di volta in volta?

[Stoicenko]

e perchè no?

[Veronica80]

Perchè è una rottura mortale e soprattutto per far una stupidagine mi si sporca il codice di righe e righe...


non è possibile creare una funzione pubblica in un modulo e richiamarla ogni volta cambiando solo la stringa SQL (come facevo in Vb 6).

meno male che col vb.net doveva esserci meno codice xD

[oregon]

Con il VB.NET ci dovrebbero essere meno programmatori della domenica ...

qui invece devo fare una variabile ogni volta che mi connetto

Perche'?

[Veronica80]

-.-' ancora con sta storia? xD

dicevo....

Io con vb 6 mi facevo una funzione su un modulo (che so...popolaListBox) e la richiamavo passandole tutti i valori per eseguire il sql.

Qui ogni volta devo dichiarare variabili su variabili...tipo l'esempio su...dr (il dataReader) io ho usato dr0 e poi dr1 perchè se riuso dr0 per 2 volte anche se l'ho chiuso mi da errore...

[oregon]

Originariamente inviato da Veronica80
se riuso dr0 per 2 volte anche se l'ho chiuso mi da errore...

Probabilmente dovresti approfondire l'errore (a proposito, QUALE errore?) e cercare di capire quale possa essere la soluzione ...

[Stoicenko]

puoi riusare le variabili.. probabilmente fai degli errori nel riusarle.. posta il codice che ti da errore e l'errore

[Veronica80]

il codice è quello che vedi su.
però invece che dr0 e dr1 (ecc per tutte le DIM) metti sempre dr0.

mi da l'errore:

Errore 1 La variabile locale 'cmd0' è già dichiarata nel blocco corrente.