Ввозы System.Data
Ввозы System.Configuration
Ввозы System.Data.SqlClient
Общественный тип ViewSQLClient
Тусклое sqlConn как новое SqlConnection
Приватное mySQLConnection как новое SqlConnection
Приватное mySQLDataAdapter как SqlDataAdapter
Приватное mySQLCommandBuilder как SqlCommandBuilder
Приватное myDataTable как новое DataTable
Приватное RowPosition как интежер
Приватное Sub ViewSQLClient_FormClosed (прислужник ByVal как предмет, ByVal e как System.Windows.Forms.FormClosedEventArgs) регулирует Me.FormClosed
mySQLConnection.Close ()
mySQLConnection.Dispose ()
Подводная лодка конца
Приватное Sub ViewSQLClient_Load (прислужник ByVal как System.Object, ByVal e как System.EventArgs) регулирует MyBase.Load
mySQLConnection.ConnectionString = «данные Source=SMARTCHEATER \ sqlexpress; Первоначально Catalog=cricket; Интегрированный Security=True»
mySQLConnection.Open ()
mySQLDataAdapter = новое SqlDataAdapter («ОТБОРНОЕ имя ОТ стран», mySQLConnection)
mySQLCommandBuilder = новое SqlCommandBuilder (mySQLDataAdapter)
'Кодий в следующей линии дает ошибку
'Ошибка Messag: e свойство ConnectionString не был выступлен с иничиативой
mySQLDataAdapter.Fill (myDataTable)
Me.ShowCurrentRecord ()
Подводная лодка конца
Приватное Sub ShowCurrentRecord ()
Если myDataTable.Rows.Count = 0 после этого
txtNotes.Text = ""
Выходите подводная лодка
Закончитесь если
txtNotes.Text = myDataTable.Rows (RowPosition) («имя») .ToString ()
Подводная лодка конца
Тип конца
|