|
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 34 35 36 37 38 39 40 41 42 |
Dim conn As New SqlConnection Dim cmd1 As New SqlCommand conn = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\ED-CARLOS\Documents\Visual Studio 2010\Projects\save\save\Info.mdf;Integrated Security=True;User Instance=True") conn.Open() sqlstr = "Delete from Details where IndexNumber = '" & TextBox1.Text & "'" cmd1 = New SqlCommand(sqlstr, conn) cmd1.ExecuteNonQuery() MsgBox("Deleted Successfully") conn.Close() 'reload Dim con As SqlConnection Dim cmd As SqlCommand Dim myDA As SqlDataAdapter Dim myDataSet As DataSet con = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\ED-CARLOS\Documents\Visual Studio 2010\Projects\save\save\Info.mdf;Integrated Security=True;User Instance=True") con.Open() cmd = New SqlCommand("Select * FROM Details", con) If con.State = ConnectionState.Closed Then con.Open() myDA = New SqlDataAdapter(cmd) myDataSet = New DataSet() myDA.Fill(myDataSet) DataGridView1.DataSource = myDataSet.Tables(0).DefaultView 'to inimize the column of a grid Dim dv As DataGridViewColumn = DataGridView1.Columns(3) dv.Width = 40 |
Leave a comment