Public Klasa Form1
Ćmić connetionString Sznurek
Ćmić związek Jako MySqlConnection
Ćmić adaptator Jako MySqlDataAdapter
Ćmić cmdBuilder Jako MySqlCommandBuilder
Ćmić ds Jako Nowy DataSet
Ćmić zmiana Jako DataSet
Ćmić sql Sznurek
Ćmić i Jako Int32
Intymny Okręt podwodny BekijkAllesToolStripMenuItem_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się BekijkAllesToolStripMenuItem.Click
Ćmić connetionString Jako Sznurek = ("Dane Source=site; Parafować Catalog=catalog; Użytkownik - id =id; Password=pw")
związek = Nowy MySqlConnection (connetionString)
sql = "wybiórka * od Herstellingen2"
Próba
związek. Otwierać ()
adaptator = Nowy MySqlDataAdapter (sql, związek)
adaptator. Pełnia (ds)
związek. Zamykać ()
Herstellingen.DataSource = ds. Stół ((0))
Chwyt wyjątek Jako Wyjątek
MsgBox (ex.ToString)
Końcówka Próba
Końcówka Okręt podwodny
Intymny Okręt podwodny SaveToolStripButton_Click (ByVal nadawca Jako System.Object, ByVal e Jako System.EventArgs) Obchodzić się SaveToolStripButton.Click
Próba
cmdBuilder = Nowy MySqlCommandBuilder (adaptator)
zmiana = ds.GetChanges ()
Jeżeli zmiana IsNot Nic Wtedy
adaptator. Aktualizacja (zmiana)
Kończyć Jeżeli
MsgBox ("Opgeslagen")
Chwyt wyjątek Jako Wyjątek
MsgBox (ex.ToString)
Końcówka Próba
|