Visualizzazione dei risultati da 1 a 7 su 7

Discussione: Access e SQL com VB

  1. #1

    Access e SQL com VB

    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?????

  2. #2
    Utente di HTML.it L'avatar di LMondi
    Registrato dal
    Sep 2004
    Messaggi
    1,291
    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
    LM

  3. #3
    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
    Vascello fantasma dei mentecatti nonchè baronetto della scara corona alcolica, piccolo spuccello di pezza dislessico e ubriaco- Colui che ha modificato l'orribile scritta - Gran Evacuatore Mentecatto - Tristo Mietitore Mentecatto chi usa uTonter danneggia anche te

  4. #4
    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?

  5. #5
    Moderatore di Javascript L'avatar di ciro78
    Registrato dal
    Sep 2000
    residenza
    Napoli
    Messaggi
    8,514
    che il codice va scritto all'intreno dei tag code

    che sarebbero code e /code tra parentesi quadre


    cioè :

    codice:
    codice
    Ciro Marotta - Programmatore JAVA - PHP
    Preferisco un fallimento alle mie condizioni che un successo alle condizioni altrui.


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

    che sarebbero code e /code tra parentesi quadre


    cioè :

    codice:
    codice
    NON FUNZIONA

  7. #7
    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.

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.