Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stringa As String
stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
stringa = stringa & Application.StartupPath & "\" & "Registrazione.mdb;Jet OLEDBatabase Password=jh432gt65fr9p2ls6;"
cn = New ADODB.Connection
rs = New ADODB.Recordset
cn.Open(stringa)
rs.Open("SELECT * FROM Dati", cn, 1)
If (rs.BOF = True) Then
Me.Close()
frmAnagrafica.Show()
Else
Produttore = rs("Produttore") /*errore
Indirizzo = rs("Indirizzo") /*errore
Ncivico = rs("Ncivico")/*errore
Città = rs("Città")/*errore
Cap = rs("Cap")/*errore
Provincia = rs("Provincia")/*errore
Nazione = rs("Nazione")/*errore
Telefono = rs("Telefono")/*errore
EMail = rs("Email")/*errore
End If
cn = Nothing
rs = Nothing
End Sub
End Class
/*errore l'ho scritto da parte alle righe che danno errore
Testo errore: La proprietà Item è ReadOnly
Non riesco a scrivere i dati sul database db.
Come si fa a cambiare la proprietà Item??
