Visto che sei così gentleman ne approfitto!!
Di seguito ti metto il codice di una sub che fino allo stacco che ho lasciato funziona benissimo, poi mi da il seguente errore : "Errore di sintassi vicino a "=" ".
A dire il vero ci ho dato solo un'occhiata. Ma visto che di sicuro risponderai domani, ho un giorno per guardarci più attentamente.
Se non ti dispiace, c daresti un'occhiata? Tu che sei esperto magari lo noti al volo un errore.
Grazie mille ancora per l'assistenza
Private Sub CaricaCliente()
Dim myConn As SqlClient.SqlConnection
Dim myStr As String
Dim myCmd As SqlClient.SqlCommand
Dim mySql As String
Dim myDR As SqlClient.SqlDataReader
Dim mySql2 As String
mySql = "SELECT codmateriale FROM tabMatClienti ORDER BY codmateriale"
mySql2 = "SELECT descrizione FROM tabMatClienti WHERE codmateriale = " & cmbCodice.SelectedItem & " "
myCmd = New SqlClient.SqlCommand
Try
myStr = buildCS()
myConn = New SqlClient.SqlConnection
myConn.ConnectionString = myStr
myConn.Open()
myCmd.Connection = myConn
myCmd.CommandType = CommandType.Text
myCmd.CommandText = mySql
myDR = myCmd.ExecuteReader()
cmbCodice.Items.Clear()
Do While myDR.Read
cmbCodice.Items.Add(myDR.Item("codmateriale"))
Loop
myDR.Close()
myCmd.CommandText = mySql2
myDR = myCmd.ExecuteReader()
cmbDescrizione.Items.Clear()
Do While myDR.Read
cmbDescrizione.Items.Add(myDR.Item("descrizione"))
Loop
myConn.Close()
Catch ex As Exception
myConn.Close()
MessageBox.Show(ex.Message, "Caricamento descrizione clienti")
End Try
End Sub