[VB SQL Server] Esecuzione Query

[gcadmin]

Ciao a tutti,

sto implementando un piccolo programma che si interfacci con un database SQL Server 2008
ed adesso, dopo aver effettuato la connessioneal db, mi trovo a dover fare la prima query
che risulta essere una select

strsql = "select max(number)"
strsql = strsql & "from dbo.Documents"
strsql = strsql & "where ((projectName = '" & proj & "') AND "
strsql = strsql & "(documentType = '" & docType & "') AND "
strsql = strsql & "(date = '" & dat & "'))"
objcomm = New OleDbCommand(strsql, FormGen.objconn)
Try
      ris = objcomm.ExecuteScalar
      If ris = 1 Then
          MsgBox("Query OK")
      End If
Catch es As Exception
          MsgBox("Errore")
End Try

Il codice appena postato mi ritorna sempre il messaggio "Errore" qualcuno può aiutarmi a capire come mai, mi sembra che la query sia scritta bene.

Grazie in anticipo

[sspintux]

Originariamente inviato da gcadmin
....
Il codice appena postato mi ritorna sempre il messaggio "Errore" qualcuno può aiutarmi a capire come mai, mi sembra che la query sia scritta bene.

il messaggio contenuto nella exception fornisce sicuramente informazioni
più illiminanti del sul tipo di errore occorso.

[gcadmin]

Infatti, grazie per il suggerimento

ho modificato il catch codice come segue fermo restando la query come postato nel precedente post

Catch es As Exception
          errorMess = es.Message
          MsgBox(errorMess)

E mi viene visualizzato il seguente errore "Incorrect syntax near '='"

Secondo voi da cosa dipende?

Grazie

[Pirelli72]

hai scritto:

dopo aver effettuato la connessioneal db.

Quindi presumo che tu abbia omesso intenzionalmente le righe nel codice che hai postato relative alla connessione?

Ti consiglio, anche se non ha a che fare con l'errore di cui parli, di strutturare sempre una stringa concatenando gli elementi sulla stessa riga, ovvero:

Dim myString as string
myString = "mario" & " " & "è sposato con" & " " & "maria"

e non con:

Dim myString as string
myString = "mario" 
myString &= " "
myString &= "è sposato con"
myString &= " "
myString &="maria"

Venendo al tuo problema non hai specificato il tipo di eccezione che si verifica.

Guardando la tua query vedo qualche parentesi di troppo:

strsql = "SELECT max(number) from dbo.Documents WHERE projectName = '" & proj & "' AND documentType = '" & docType & "' AND date = '" & dat & "'

I parametri sono nel formato corretto i campi sono corretti?

[sspintux]

Originariamente inviato da gcadmin
.....
mi viene visualizzato il seguente errore "Incorrect syntax near '='"

Secondo voi da cosa dipende?

Grazie

mostra la query risultante ( cioè quello che contiene la variabile strsql)

P.S.
puoi provare ad eseguirla anche tu nel SSMS e probabilmente
ti renderei conto da solo del problema

[Pirelli72]

mi viene visualizzato il seguente errore "Incorrect syntax near '='"

Secondo voi da cosa dipende?

Vuol dire che la sintassi della query è sbagliata.

[gcadmin]

Per Pirelli72

1 si ho intenzionalmente omesso le righe di codice relative alla connessione al db che dopo vari test funziona correttamente

2 Grazie per il consiglio sulle stringhe

3 Provo a strutturare la query senza parentesi come da suggerimento

4 I campi sono corretti

Grazie


Per SSpintux
Per quanto riguarda la visualizzazione della query l'ho stampata in msgbox e risulta corretta, infatti la stessa query l'ho provata in SQL Server e funziona correttamente


Ho provato a mettere i vostri consigli in pratica ma il risultato è sempre lo stesso

Sono in attesa di un vostro ulteriore cortese suggerimento

[sspintux]

Originariamente inviato da gcadmin
.....
Per quanto riguarda la visualizzazione della query l'ho stampata in msgbox e risulta corretta, infatti la stessa query l'ho provata in SQL Server e funziona correttamente

mi sembra strano ...mostra la query

[Pirelli72]

nfatti la stessa query l'ho provata in SQL Server e funziona correttamente

In che senso scusa ?

[gcadmin]

Ho Capito l'errore visualizzando la query ritornata

L'errore era che non lasciavo uno spazio tra i campi della select e la parola riservata FORM e tra la tabella della form e la parola riservata WHERE

Grazie a tutti.

Adesso però ho un altro problema come faccio a gestire il valore o i valori ritornati dalla query? Nel mio caso voglio poter incrementare dall'applicativo il valore massimo che la query mi ritorna

Grazie in anticipo

Riposto il codice corretto

strsql = "select max(number) from dbo.Documents where ((projectName = '" & proj & "') AND (documentType = '" & docType & "') AND (date = '" & dat & "'))"
MsgBox(strsql)
objcomm = New OleDbCommand(strsql, FormGen.objconn)
Try
   ris = objcomm.ExecuteNonQuery
   If ris = 1 Then
      MsgBox("Query OK")
   End If
Catch es As Exception
   errorMess = es.Message
   MsgBox(errorMess)
End Try