1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33:
Imports System.Data Importe System.Configuration Importe System.Data.SqlClient Allgemeine Kategorie ViewClientNames Schwaches sqlConn als neues SqlConnection Privates mySQLConnection als neues SqlConnection Privates mySQLDataAdapter als SqlDataAdapter Privates mySQLCommandBuilder als SqlCommandBuilder Privates myDataTable als neues DataTable Privates RowPosition als ganze Zahl Private VorViewClientNames_FormClosed (ByVal Absender als Gegenstand, ByVal e als System.Windows.Forms.FormClosedEventArgs) Handgriffe Me.FormClosed mySQLConnection.Close () mySQLConnection.Dispose () Enden-Unterseeboot Private VorViewClientNames_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs) Handgriffe MyBase.Load mySQLConnection.ConnectionString = „Datenquelle =VISTA-ON-MAC \ SQLEXPRESS; AnfangsCatalog=WriterDemo; Weiter bestehen Sicherheit Info=True; Benutzernummer =sa; Password=peter; Timeout=30 anschließen“ mySQLConnection.Open () mySQLDataAdapter = neues SqlDataAdapter („AUSERWÄHLTE Anmerkung VON ClientNames“, mySQLConnection) mySQLCommandBuilder = neues SqlCommandBuilder (mySQLDataAdapter) mySQLDataAdapter.Fill (myDataTable) Me.ShowCurrentRecord () Enden-Unterseeboot Privates VorShowCurrentRecord () Wenn myDataTable.Rows.Count = 0 dann txtNotes.Text = "" Unterseeboot herausnehmen Beenden wenn txtNotes.Rtf = myDataTable.Rows (RowPosition) („ClientName“) .ToString () Enden-Unterseeboot