Ho dei problemi da elencarvi che non sono riuscito a risolvere!
Il primo è il fatto che io stampo dei contenuti di un database in una Text Box, mentre li vorrei stampare dentro una List Box...ma mi da degli errori. Questo è il codice con la text box.
Private Sub Form_Load()
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & "**************"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open stringa
rs.Open "SELECT * FROM utenti ORDER BY nome", cn, 1
If rs.EOF Then
txtUtenti.Text = "Nessun contatto presente"
Else
While rs.EOF = False
txtUtenti.Text = txtUtenti.Text _
& rs("nome") & " " _
& rs("cognome") & " - " _
& rs("telefono") & vbCrLf
rs.MoveNext
Wend
End If
Set cn = Nothing
Set rs = Nothing
End Sub
Poi un altra cosa che vorrei fare ma non ci sono riuscito, è quella di poter cancellare i dati dal database.
Grazie
Rispondi quotando
