[VB.NET] Problema Fill DB Access

[SigAlexey]

Ciao a tutti!
Ho un problema nel accedere al database per fare una semplicissima select
al database sono connesso perchè inserendo una DtataGridView riesco a vedere i dati.
Adesso vi metto il codice che mi da problemi e l'errore

        Form1.ApriConnessione()        Dim comm2 As OleDb.OleDbCommand = New OleDb.OleDbCommand("select ID From Vernice Where Nome = Rosso")
        Dim dr2 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm2)
        Dim dt2 As Data.DataTable = New Data.DataTable()
        dr2.Fill(dt2)
        Form1.ChiudiConnessione()

l'errore me lo indica sulla riga del Fill e da quanto ho capito dice che non ho inizializzato dt2

Questo è l'errore

Fill: SelectCommand.Connection property has not been initialized.

Avete delle idee??
Grazie


P.S.: probabilmente è un problema nelle impostazioni perchè in un altro programma che ho fatto mooooooooooooooooolto tempo fa (di cui mi sono dimenticato molte cose non utilizzando più il linguaggio) funziona.

[SirJo]

Se tu riportassi l'errore completo sarebbe più facile aiutarti,
comunque così, a colpo d'occhio, direi che la query è sbagliata, mancano gli apici per delimitare la stringa di ricerca.
Cambiala in

select ID From Vernice Where Nome = 'Rosso'

Sergio

[SigAlexey]

Si scusami!
Ti faccio uno screen?

Comunque ho messo gli apici e non è quello l'errore

[miky_2]

al DataAdapter devi passare anche la connessione oltre che la query... lo dice anche l'errore

[SigAlexey]

Quindi cosa devo fare? xD

[SigAlexey]

Qualcuno riuscirebbe cortesemente a darmi una risposta? Grazue

[SirJo]

Devi, prima di fare la query, aprire la connessione al database, e poi quando esegui la query (o meglio, quando crei il Command), devi dirgli a quale connessione deve fare riferimento.

Ma la procedura Form1.ApriConnessione() cosa fa ??

Sergio

[SigAlexey]

è questa qua:

Metto anche chiudi connessione

 Public Sub ApriConnessione()
        Me.objconn = New OleDbConnection(Me.stringaconn)
        Me.objcomm = New OleDbCommand(Me.stringasql, Me.objconn)
        Me.objconn.Open()
    End Sub


    Public Sub ChiudiConnessione()
        Me.objconn.Close()
    End Sub

[SigAlexey]

In questo modo??
Perchè non funziona comunque

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click


        'VERNICI
        Dim stringa As String = "select ID From Vernici Where Nome = 'Rosso'"
        Form1.ApriConnessione()
        Dim comm2 As OleDb.OleDbCommand = New OleDb.OleDbCommand(stringa, Form1.objconn)
        Dim dr2 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm2)
        Dim dt2 As Data.DataTable = New Data.DataTable()
        dr2.Fill(dt2)
        Form1.ChiudiConnessione()






    End Sub

Non so se può essere utile, ma l'inserimento riesco a farlo... quindi è proprio un problema nella select

[miky_2]

devi passare l'oggetto OleDBConnection al Command

comm2.Connection= **tua connessione**

oppure passarla al dataadapter, come paramtetro oltre alla query

Dim dr2 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm2, **tua connessione**)