Devo applicare questa query dinamica a secondo del valore selezionato del combobox ma mi restituisce l'errore:
Errore di sintassi Operatore mancante
codice:Private Sub Command1_Click() Dim Eli As String If cmbSeleziona.Text = "" Then ' VERIFICO CHE SIA SELEZIONATO UN RECORD REALE, NON VUOTO lblMessaggio.Caption = "Selezionare un Utente valido" Else lblMessaggio.Caption = "" Eli = cmbSeleziona.Text Set cn = New ADODB.Connection Set rs = New ADODB.Recordset ' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE IL RECORD SELEZIONATO cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\elipiazzola\Elisup.mdb" rs.Open "SELECT * FROM T_AnElisup WHERE nome like " & Eli, cn, 3 ' RIEMPIO I CAMPI DELLA FORM CON I VALORI ESTRATTI DAL DATABASE txtNome.Text = rs("nome").Value rs.Close cn.Close End If End Sub

Rispondi quotando