[VB6] Ricerca record nel database

[bluenite]

Salve, ho scritto del codice x ricercare i record in un data base, ma soltando che non mi funziona.
Potete controllarlo voi?

--------------------
Private Sub Command1_Click()


Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=\\Nicola\Rubrica\Agenda.mdb"
rs.Open " SELECT * FROM utenti where id = &txtricerca "


nome = rs("nome").Value
MsgBox nome

rs.Close
cn.Close

End Sub

----------------

GRAZIE

[MMarzia]

per VB c'è un apposito subforum: ti sposto lì
ricorda di includere il codice nell'apposito tag [*CODE] ... [*/CODE] (senza asterischi)

[MMarzia]

tornando al problema: puoi essere più preciso? in che senso "non funziona"?

intanto modifica l'istruzione di apertura del recordset così:

rs.Open "SELECT * FROM utenti where id =" &  txtricerca, cn  [, CursorType, LockType]

sarebbe meglio aggiungere anche un controllo sul recordset prima di leggere il valore:

If Not (rs.BOF And rs.EOF) Then ...

[bluenite]

Grazie per la risposta.

Ora funziona in questo modo:

rs.Open "SELECT * FROM utenti where id =" & txtricerca, cn

Ma soltando se metto un valore numero, se io voglio un valore testuale come dovrei fare?

[MMarzia]

beh, prima di tutto il campo non deve essere numerico

rs.Open "SELECT * FROM utenti where NomeCampo ='" & txtricerca & "'", cn

[bluenite]

Grazie ho risolto.

Ora siccome ho complicato un po la cosa, perchè con questo tipo la ricerca nn me la fa?

tiponome = Option4.Value
tipocognome = Option3.Value
tiposociale = Option2.Value
tipotutto = Option1.Value

If tiponome = "Vero" Then
tipo = "nome"
End If
        Set cn = New ADODB.Connection
        Set rs = New ADODB.Recordset
txtricerca = txtricerca.Text
        ' APRO LA CONNESSIONE E LANCIO LA QUERY PER RECUPERARE IL RECORD SELEZIONATO
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=C:\Documents and Settings\Nicola\Desktop\Rubrica\Agenda.mdb"
rs.Open "SELECT * FROM utenti where '" & tipo & "' like '" & txtricerca & "'", cn

[MMarzia]

Originariamente inviato da bluenite
Ora siccome ho complicato un po la cosa, perchè con questo tipo la ricerca nn me la fa?

cerca di essere più preciso: cosa significa "non me la fa"?

descrizione dell'errore?
istruzione che la genera? ...


comunque dando un'occhiata veloce già la stringa di apertura del recordset non è corretta

tipo è il nome del campo o una variabile?
inoltre con l'operatore like devi utilizzare il carattere jolly * (solo per ACCESS, altrimenti con il sql standard si utilizza %)

[bluenite]

Ho risolto...

GRAZIE lo stesso.

il problema era questo:
invece di mettere

where '" & tipo & "'

ho messo

" & tipo & "

ed ho risolto.

GRAZIE DI TUTTO

[bluenite]

senti ti vorrei chiedere un'altre cosa visto che sei così preparata!!! (COMPLIMENTI)

Posso passare un determinato valore da una form ad un'altra?

Se si come?

Oppure che alternativi ci sono?

GRAZIE

[Cozza]

Originariamente inviato da bluenite
senti ti vorrei chiedere un'altre cosa visto che sei così preparata!!! (COMPLIMENTI)

Posso passare un determinato valore da una form ad un'altra?

Se si come?

Oppure che alternativi ci sono?

GRAZIE

si che puoi

se in form2 ti serve il valore di una textbox di form1 lo recuperi
così

miavariabile = form1.textbox1.text

se invece devi recuperare una variabile è la stessa cosa solo che la devi dichiarare come public in form1

public var1 as string

e in form2

miavariabile = form1.var1