Aiuto Visual asic 6.0

giovedì 13 settembre 2007 - 11.05

Tatasala Profilo | Newbie

Ciao a tutti, ho realizzato un database in access costituito da una sola tabella contenente dei campi. Voglio creare un'interfaccia in V 6.0 che mi permetta di effettuare una ricerca inserimento il valore da cercare in una textbox e che mi visualizzi i dati ricercati in una seconda texbox. Ho elaborato questo codice, ma mi da errore, mi potete dire dove sbaglio?

Private Sub Command1_Click()

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

cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=database.mdb"
rs.Open "SELECT Titolo FROM film WHERE Titolo = '" & Text1.Text & "' "

Text2.Text = rs("Titolo").Value

rs.Close
cn.Close

End Sub

erongis Profilo | Junior Member

Che errore ti dà precisamente?

Tatasala Profilo | Newbie

Ho trovato l'errore, alla fine della select:

rs.Open "SELECT Titolo, Cd FROM film WHERE Titolo = '" & Text1.Text & "' "

non ho aggiunto , cn, 1 e mi dava il seguente errore:

Run-time error '3709'.

Ho risolto il problema. Vorrei poter visualizzare i risultati della mia ricerca in una datagrid invece che in una textbox, come faccio???

Tatasala Profilo | Newbie

Sono riuscito a visualizzare i risultati della ricerca in una datagrid, posto il codice per chi ne avesse bisogno:

Private Sub Form_Load()

Dim Cn As New ADODB.Connection
Dim Rs As New ADODB.Recordset

Cn.CursorLocation = adUseClient
Cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\cartella\miodatabase.mdb"

Rs.Open "Select * from tabella", Cn, adOpenStatic, adLockOptimistic

Set DataGrid1.DataSource = Rs


End Sub
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5