Imports System.Data
Importe System.Configuration
Importe System.Data.SqlClient
Allgemeine Kategorie ViewNotes
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
Privates VorViewBookCode_FormClosed (ByVal Absender als Gegenstand, ByVal e als System.Windows.Forms.FormClosedEventArgs) behandelt Me.FormClosed
mySQLConnection.Close ()
mySQLConnection.Dispose ()
Enden-Unterseeboot
Privates VorViewBookCode_Load (ByVal Absender als System.Object, ByVal e als System.EventArgs) behandelt MyBase.Load
mySQLConnection.ConnectionString = „Datenquelle =VISTA-ON-MAC \ SQLEXPRESS; AnfangsCatalog=WriterDemo; Bestehen Sicherheit Info=True weiter; Benutzernummer =sa; Password=peter; Timeout=30 anschließen“
Customer_id als ganze Zahl verdunkeln
customer_id = 1
mySQLConnection.Open ()
mySQLDataAdapter = neues SqlDataAdapter („* von den t_notes VORWÄHLEN, WO customer_id =“ u. customer_id, sqlConn)
mySQLDataAdapter = neues SqlDataAdapter
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.Text = myDataTable.Rows (RowPosition) („Anmerkung“) .ToString ()
Enden-Unterseeboot
Enden-Kategorie
|