من براي select اين كد را نوشتم .
Sub fill()
If con.State = ConnectionState.Closed Then
con.Open()
End If
cmd.CommandText = select * from tb_phone
cmd.ExecuteNonQuery()
con.Close()
End Sub
و براي ورود اطلاعات به ديتابيس موقع اضافه كردن و ويرايش و حذف ازش استفاده مي كنم .مثلا براي ويرايش در اينجا استفاده مي كنم :
ElseIf virayesh Then
If con.State = ConnectionState.Closed Then
con.Open()
End If
cmd.CommandText = update tb_phone set name= + txt_name.Text + , family= + txt_family.Text + , company= + txt_company.Text + , mobile= + txt_mobile.Text + ,tel= + txt_tel.Text + ,email= + txt_address.Text + where id= + txt_id.Text +
cmd.ExecuteNonQuery()
con.Close()
MessageBox.Show(اطلاعات ويرايش شد .)
fill()
virayesh = False
groupBox1.Enabled = False
DataGridView1.Enabled = False
btn_save.Enabled = False
btn_new.Enabled = True
btn_del.Enabled = True
btn_edit.Enabled = True
btn_serch.Enabled = True
btn_save.Text = ذخيره تغييرات
txt_name.Clear()
txt_family.Clear()
txt_company.Clear()
txt_mobile.Clear()
txt_tel.Clear()
txt_address.Clear()
End If
فقط موضوعي كه هست موقع اجرا ، در همون لحظه عمل نمي كنه . بايد يك بار برنامه رو ببندم و دوباره باز كنم تا اضافه كردن يا حذف يا ويرايش را انجام داده باشه .
چي بايد به اين كد اضافه كنم كه در همون لحظه كه برنامه بازه نتيجه اجراي عمليات رو ببينم ؟