[VB2008 express] Query che non lavora come deve

[Stoicenko]

e la stessa query su access ovviamente da i risultati corretti

[Neo996sps]

si. la query su access funziona

[Neo996sps]

a forza di modifiche stò diventando matto. Riposto il codice per vedere dove cavolo è l'errore:

Dim qr_ricercaragionesociale As String = "SELECT * FROM tblClienti WHERE [tblClienti.ragione_sociale] = '" & txtRicercaRagioneSociale.Text & "'"
'Dim qr_ricercaragionesociale As String = "SELECT * FROM tblClienti"      
Dim Cn As New OleDbConnection(connectionString)         
Dim cmd As New OleDbCommand(qr_ricercaragionesociale, Cn)         'MsgBox(qr_ricercaragionesociale)         
Try             
    Cn.Open()             
    Me.TblClientiDataGridView.DataSource = cmd.ExecuteReader             
    Cn.Close()         
Catch ex As Exception             
MsgBox(Err.Description)          
End Try

può dipendere dal fatto che ho dichiarato la stringa di connessione globale al posto che in locale?

--- EDIT ---

tanto per provare ho portato tutto dentro alla Sub ma non cambia nulla....

[Stoicenko]

1) ragione_sociale è un campo varchar o di testo nel db?
2) provato a fare un refresh della datagrid dopo aver associato il datasource?

[Neo996sps]

ragione sociale è di tipo testo. Per quanto riguarda l'update ho trasformato il codice così:

Private Sub btnRicercaRagioneSociale_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRicercaRagioneSociale.Click
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bellerofonte.mdb "
        Dim qr_ricercaragionesociale As String = "SELECT * FROM tblClienti WHERE [tblClienti.ragione_sociale] = '" & txtRicercaRagioneSociale.Text & "'"
        Dim Cn As New OleDbConnection(connectionString)
        Dim cmd As New OleDbCommand(qr_ricercaragionesociale, Cn)
        Cn.Open()
        Try
            Me.TblClientiDataGridView.DataSource = cmd.ExecuteReader
            Me.TblClientiTableAdapter.Fill(Me.BellerofonteDataSet.tblClienti)
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
        Cn.Close()
    End Sub

[Stoicenko]

e funziona?

[Neo996sps]

niente, ho provato con varie combinazioni di codice ma non c'è verso. A questo punto mi viene il dubbio che con il .NET non sia cambiata la sintassi delle query

[Neo996sps]

ciao a tutti, porto un aggiornamento ai miei problemi.... ho fatto una ricerca in MSDN per vedere se era cambiato qualcosa con la gestione delle query ed ecco cosa ho trovato:

Dim allNumbers = From number In numbers Select number

adesso provo ad applicare sto maledetto codice e vediamo se funziona....


--- EDIT ---

il codice riportato sopra non va!

[optime]

Originariamente inviato da Neo996sps
ciao a tutti, porto un aggiornamento ai miei problemi.... ho fatto una ricerca in MSDN per vedere se era cambiato qualcosa con la gestione delle query ed ecco cosa ho trovato:

Dim allNumbers = From number In numbers Select number

adesso provo ad applicare sto maledetto codice e vediamo se funziona....

a orecchio quello è LINQ. Le query in SQL (ci mancherebbe!) non sono cambiate

[Neo996sps]

niente da fare. Ma non è che usando il VB2008 sono obbligato ad utilizzare LINQ? Perchè su MSDN è nominato solamente quello e gli esempi sono tutti come quelli che ho postato.