Access e SQL com VB

[marciadona]

Ho creato un database in access.
Da Visual Basic creo, con Visual Data Manager , un form per inserire, modificare e cancellare i record delle tabelle.
Il problema è che per aggiungere e/o modificare mi da il seguente errore: Errore run-time "3027" - Impossibile aggiornare: Database o oggetto di sola lettura.
Però il databese non ha l'attributo di sola lettura.
Chi mi può aiutare?????

[LMondi]

Posto il seguenti esempio che prevede:Inserisci,Elimina e Salva.
spero che possa esserti utile.

Private Sub CmndInserisciNuovo_Click() ' Inserisce un nuovo Campo Fax
LblFax.Visible = True
TxtFax.Visible = True

Dim Connes As New ADODB.Connection
Dim RST As New ADODB.Command

'Esegue la connessione con il DataBase:
If Connes.State = False Then
Connes.ConnectionString = StringaConnessione
Connes.CommandTimeout = 15
Connes.Open
End If

RST.ActiveConnection = Connes
RST.CommandType = adCmdText
RST.CommandText = "Alter Table TblDatiPersonali ADD Fax Number Null"
RST.Execute

'Chiude la connessione:
Connes.Close
Set Connes = Nothing

CmndInserisciNuovo.Visible = False
End Sub
Private Sub CmndEliminaFax_Click() 'Elimina Campo Fax

Dim Connes As New ADODB.Connection
Dim RST As New ADODB.Command

'Esegue la connessione con il DataBase:
If Connes.State = False Then
Connes.ConnectionString = StringaConnessione
Connes.CommandTimeout = 15
Connes.Open
End If

RST.ActiveConnection = Connes
RST.CommandType = adCmdText
RST.CommandText = "Alter Table TblDatiPersonali Drop Fax;"
RST.Execute

'Chiude la connessione:
Connes.Close
Set Connes = Nothing

CmndInserisciNuovo.Visible = True
End Sub
Private Sub CmndSalva_Click() 'Salva i dati inseriti nelle TextBox
On Error Resume Next
Dim Oggetto As New ADODB.Command
Dim ConnesInserimento As New ADODB.Connection

'Esegue la connessione con il DataBase:
If ConnesInserimento.State = False Then
ConnesInserimento.ConnectionString = StringaConnessione
ConnesInserimento.CommandTimeout = 15
ConnesInserimento.Open
End If

Oggetto.ActiveConnection = ConnesInserimento
Oggetto.CommandType = adCmdText

'Prima di salvare Elimina i vecchi records dalla tabella - TblInvestimenti:
Oggetto.CommandText = "Delete * From TblDatiPersonali"
Oggetto.Execute

'Salva i dati inseriti nelle TextBox:
Oggetto.CommandText = "insert into TblDatiPersonali(Titolo, Nome, Cognome, Via, Città, CAP, Telefono)" _
& "values ('" & Replace(FrmRubrica.TxtTitolo.Text, "'", "''") & "', '" & FrmRubrica.TxtNome.Text & "', '" & FrmRubrica.TxtCognome.Text & "', '" & FrmRubrica.TxtVia.Text & "', '" & FrmRubrica.TxtCitta.Text & "', '" & FrmRubrica.TxtCap.Text & "', '" & FrmRubrica.TxtTelef.Text & "');"
Oggetto.Execute


'Chiude la connessione:
ConnesInserimento.Close
Set ConnesInserimento = Nothing

End Sub

Cordialità LM

[xegallo]

Originariamente inviato da LMondi


Cordialità LM

ehm non è proprio cordiale scrivere il codice così sformattato la prox volta usa i tag code*


* istruzioni nel regolamento

[marciadona]

Originariamente inviato da xegallo
ehm non è proprio cordiale scrivere il codice così sformattato la prox volta usa i tag code*


* istruzioni nel regolamento

che vuoi dire usa i tag code?

[ciro78]

che il codice va scritto all'intreno dei tag code

che sarebbero code e /code tra parentesi quadre


cioè :

codice

[marciadona]

Originariamente inviato da ciro78
che il codice va scritto all'intreno dei tag code

che sarebbero code e /code tra parentesi quadre


cioè :

codice

NON FUNZIONA

[GaRo73]

Per quello che ho capito io MARCIADONA, non voleva modificare i campi, ma semplicemente si riferiva ai records del DB di access.

Comunque il code di LMondi e molto utile GRAZIE.