Salve a tutti voi.
Vi pongo il seguente problema. Sto creando un'applicazione che utilizza un database creato con mysql; è formata, al momento, da due form: nel primo vi è un datagrid che mostra tutti i dati inseriti, nel secondo ci sono due textbox dove inserisco i dati e un pulsante di inserimento dati. Una volta inseriti i dati vado nel form1 per vedere i dati inseriti ma nel datagrid non compare la tabella; solo uscendo dall'applicazione e rientrando si vedono i dati aggiornati. Perchè? Dove si trova il mio errore?
Vi ringrazio in anticipo per il vostro aiuto.
Neriton
Allego il codice dei due form
Imports MySql.Data.MySqlClient
Public Class Form1
Dim connetti As MySqlConnection
Dim comando As New MySqlCommand
Dim adatta As New MySqlDataAdapter
Dim archivio As New DataTable
Dim domanda As String
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
connetti = New MySqlConnection
connetti.ConnectionString = "server = localhost;user id= root; password = 12345; database = rubrica"
connetti.Open()
domanda = "select * from telefoni;"
comando.Connection = connetti
comando.CommandText = domanda
adatta.SelectCommand = comando
adatta.Fill(archivio)
DataGridView1.DataSource = archivio
End Sub
Private Sub cmdVaiForm2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdVaiForm2.Click
Me.Hide()
Form2.Show()
End Sub
End Class
Imports MySql.Data.MySqlClient
Public Class Form2
Dim connetti As MySqlConnection
Dim comando As New MySqlCommand
Dim adatta As New MySqlDataAdapter
Dim archivio As New DataTable
Dim domanda As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
connetti = New MySqlConnection
connetti.ConnectionString = "server = localhost; user id = root;password = 12345;database = rubrica"
connetti.Open()
domanda = "insert into telefoni values (null,'" & TextBox1.Text & " ','" & TextBox2.Text & "');"
comando.Connection = connetti
comando.CommandText = domanda
adatta.SelectCommand = comando
adatta.Fill(archivio)
Form1.DataGridView1.DataSource = archivio
End Sub
End Class
|