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