Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
App. Visual Studio 6.0
Aiuto Visual asic 6.0
giovedì 13 settembre 2007 - 11.05
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
Tatasala
Profilo
| Newbie
10
messaggi | Data Invio:
gio 13 set 2007 - 11:05
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
137
messaggi | Data Invio:
gio 13 set 2007 - 17:26
Che errore ti dà precisamente?
Tatasala
Profilo
| Newbie
10
messaggi | Data Invio:
gio 13 set 2007 - 17:33
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
10
messaggi | Data Invio:
sab 15 set 2007 - 12:30
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
Torna su
Stanze Forum
Elenco Threads
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 !