[VB] ricerca nel database con ADO

[ragno75]

sto imparando ad usare VB e vorrei sapere come si effettuano le ricerce in un database con il controllo ADODC mi sembra che il metodo Find serva proprio a questo ma non so come si usa chi mi sa aiutare?

[ragno75]

scusate ragazzi ma una rispostina anche veloce me la potreste dare no?

[ngs]

v

[DarCas]

query = "testo da ricercare"
sql = "SELECT * FROM tabella WHERE Campo LIKE '%" & query & "%'"

[ragno75]

scusa ma non sono pratico come faccio ad implementare adodc con sql

[DarCas]

Posta come ti colleghi al DB

[ragno75]

scusa il ritardo per la risposta ma ero fuori per lavoro,
mi collego utilizzando il controllo ADODC e le sue proprietà nella finestra delle proprietà.

[Johnny_Depp]

premetto che non conosco ADODC!!!

ma se utilizzi un DSN di sistema e ADODB puoi fare così:
p.s. se non utilizzi un DSN si sistema basta che sostituisci
la riga evidenziata, quella con la stringa di connessione.

Dim i as Integer
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=MSDASQL; Data Source=MIO_DSN; Database=MIO_DSN; User Id=; Password=; Security Info=True"
cn.Open
Set rs = cn.Execute("SELECT * FROM  MIA_TABELLA WHERE cognome = '" & var_cognome &"'" & ")
rs.MoveFirst
i=0                
While Not rs.EOF
    Mia_ListBox.AddItem rs.Fields(i).value
    rs.MoveNext
Wend

Ciao