Ciao ragazzi ho un problemino.Nel mio progetto ho due Form, uno dove visualizzo i dati del database con una listview ed uno dove aggiungo i dati al mio database.Il problema è questo, quando aggiungo i dati dal secondo Form e poi chiudendolo richiamo il Form di Visualizzazione il record che ho aggiunto non viene visualizzato, per farlo devo uscire e poi rientrare.come posso fare aiutatemi vi pregoQuesto è il codice che ho usato per il Form di visualizzazione:
Private Sub Form_Load()
Dim itmX As ListItem
Dim DB As Database
Dim sQL As String
ListView1.ListItems.Clear
sQL = "select * from Rubrica where [DataChiusura] is null "
Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
Do Until RS.EOF
Set itmX = ListView1.ListItems.Add()
With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("OraApertura")
RS.MoveNext
End With
Loop
End Sub
Questo è il codice che ho usato per il Form di aggiornamento:
Private Sub Command2_Click()
Dim DB As ADODB.Connection
Dim T As ADODB.Recordset
Dim strCnn As String
Set DB = New ADODB.Connection
strCnn = "" _
& "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "/Agenda.mdb"
' & "Persist Security Info=False"
DB.Open strCnn
Set T = New ADODB.Recordset
T.LockType = adLockOptimistic
T.Open "Rubrica", DB, , , adCmdTable
T.AddNew
T("O_F") = txtLast.Text
T("Piano") = txtTitle.Text
T("Call_Center") = txtDisp.Text
T("Operatore_SIT") = txtNick.Text
T("DataApertura") = txtEmail.Text
T("OraApertura") = DTPicker1.Value
T.Update
T.Close
DB.Close
Unload Me
Form1.Show
End Sub
Rispondi quotando
