RaouL_BennetH
20-03-2005, 13:11
Ho un problema nell'inserimento dei dati in un db.
Questo è il codice:
Option Explicit
Enum TextBoxes
txtCognome = 0
txtNome = 1
txtAzienda = 2
txtOccupazione = 3
txtIndirizzo = 4
txtCitta = 5
txtCap = 6
txtProv = 7
txtMail = 8
txtWeb = 9
txtTelUff = 10
txtTelCasa = 11
txtTelCell = 12
txtTelFax = 13
txtnote = 14
End Enum
Dim I As Integer
Dim x As TextBoxes
'sul form ci sono 15 matrici di controlli, quindi numerate da 0 a 14 come Index
'questo è il codice di inserimento nel db:
Case 2
If TextBox(0).Text = "" Then
MsgBox "Inserire almeno il Cognome!!", vbCritical
Else
insert = ""
insert = insert & "INSERT INTO tblRubrica(Cognome, Nome, Azienda, Occupazione, Indirizzo, Citta, CAP, prov, email, web, telufficio, telcasa, telcellulare, telfax, note)" & vbCrLf
insert = insert & "VALUES('" & TextBox(x).Text & "')" & vbCrLf
Set rs = cn.Execute(insert)
cn.Close
MsgBox "Dati inseriti correttamente", vbOKOnly
Toolbar1.Buttons.Item(2).Visible = False
Toolbar1.Buttons.Item(1).Visible = True
For x = txtCognome To txtnote
TextBox(x).Enabled = False
TextBox(x).Text = ""
Next x
End If
N.B.: per risparmiare spazio nel post ho messo:
insert TextBox(x).Text per non scriverle tutte
Bene, il problema che ho è che mi dice che la matrice di controllo 15 non esiste!!
Questo è il codice:
Option Explicit
Enum TextBoxes
txtCognome = 0
txtNome = 1
txtAzienda = 2
txtOccupazione = 3
txtIndirizzo = 4
txtCitta = 5
txtCap = 6
txtProv = 7
txtMail = 8
txtWeb = 9
txtTelUff = 10
txtTelCasa = 11
txtTelCell = 12
txtTelFax = 13
txtnote = 14
End Enum
Dim I As Integer
Dim x As TextBoxes
'sul form ci sono 15 matrici di controlli, quindi numerate da 0 a 14 come Index
'questo è il codice di inserimento nel db:
Case 2
If TextBox(0).Text = "" Then
MsgBox "Inserire almeno il Cognome!!", vbCritical
Else
insert = ""
insert = insert & "INSERT INTO tblRubrica(Cognome, Nome, Azienda, Occupazione, Indirizzo, Citta, CAP, prov, email, web, telufficio, telcasa, telcellulare, telfax, note)" & vbCrLf
insert = insert & "VALUES('" & TextBox(x).Text & "')" & vbCrLf
Set rs = cn.Execute(insert)
cn.Close
MsgBox "Dati inseriti correttamente", vbOKOnly
Toolbar1.Buttons.Item(2).Visible = False
Toolbar1.Buttons.Item(1).Visible = True
For x = txtCognome To txtnote
TextBox(x).Enabled = False
TextBox(x).Text = ""
Next x
End If
N.B.: per risparmiare spazio nel post ho messo:
insert TextBox(x).Text per non scriverle tutte
Bene, il problema che ho è che mi dice che la matrice di controllo 15 non esiste!!