Experts Exchange always has the answer, or at the least points me in the correct direction! It is like having another employee that is extremely experienced.
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.
Connect with Certified Experts to gain insight and support on specific technology challenges including:
We've partnered with two important charities to provide clean water and computer science education to those who need it most. READ MORE
Imports System.Data Imports System.Configuration Imports System.Data.SqlClient Public Class ViewClientNames Dim sqlConn As New SqlConnection Private mySQLConnection As New SqlConnection Private mySQLDataAdapter As SqlDataAdapter Private mySQLCommandBuilder As SqlCommandBuilder Private myDataTable As New DataTable Private RowPosition As Integer Private Sub ViewClientNames_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed mySQLConnection.Close() mySQLConnection.Dispose() End Sub Private Sub ViewClientNames_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load mySQLConnection.ConnectionString = "Data Source=VISTA-ON-MAC\SQLEXPRESS;Initial Catalog=WriterDemo;Persist Security Info=True;User ID=sa;Password=peter;Connect Timeout=30" mySQLConnection.Open() mySQLDataAdapter = New SqlDataAdapter("SELECT note FROM ClientNames", mySQLConnection) mySQLCommandBuilder = New SqlCommandBuilder(mySQLDataAdapter) mySQLDataAdapter.Fill(myDataTable) Me.ShowCurrentRecord() End Sub Private Sub ShowCurrentRecord() If myDataTable.Rows.Count = 0 Then txtNotes.Text = "" Exit Sub End If txtNotes.Rtf = myDataTable.Rows(RowPosition)("ClientName").ToString() End Sub