VB6 e query con ado

[gyonny]

helo raga
in un form ho una datacombo collegata tramite dataenvironment al database che seleziona l'ID di una tabella, e due text.
ora vorrei che ad ogni cambio di Id nelle text riporti i campi fornitore e destinatario.

ho composto il seguente codice, ma devo aver fatto un casino, chi può sistemarlo un attimino?

Private Sub DataCombo1_Validate(Cancel As Boolean)

Dim rs As DataEnvironment1.Recordset
Dim MSql As String
MSql = "select [idfornitore] from Fornitori where [nomefornitore]_& [destinazione] = '" & DataCombo1.Text & "'"
If DataCombo1.Text = True Then
rs.Open sSql
Text1.Text = nomefornitore
Text2.Text = destinazione
rs.Close
End If
End Sub

by
gyonny

[xegallo]

ma sul dataenvironement hai creato un command che punta alla tebella in questione?

[gyonny]

xe
sul dataenvironment ho creato un command chiamato fornitori, il command funziona perfettamente, in quanto la datacombo è connessa per rowsource a datenvir.. e per rowmember a fornitori, e mi legge le id, è la query che non va.

by
gyonny

[xegallo]

hai provato con
dataenvironement1.rsFornitori.open "testo della query"

[gyonny]

non ho messo dataenvironement1.rsFornitori.open
perchè pensavo che la connessione venisse aperta dalla datacombo collegata in lettura allo stesso command.

cosa intendi per "testo della query"?

by gyonny

[xegallo]

Originariamente inviato da gyonny
non ho messo dataenvironement1.rsFornitori.open
perchè pensavo che la connessione venisse aperta dalla datacombo collegata in lettura allo stesso command.

cosa intendi per "testo della query"?

by gyonny

"select [nome dei campi] from [nomi delle tabelle] where [criteri]"