+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة في كود الحذف مع استخدام Sql 2008 (/showthread.php?tid=22509)
مشكلة في كود الحذف مع استخدام Sql 2008 - khaled12345 - 12-11-17
السلام عليكم الاخوة الاعزاء
برجاء المساعدة في كود الحذف في هذا المشروع
انا استخدم Sql server 2008 R2
مع الشكر
Imports
System.Data.SqlClientPublic
Class ERC_2G
' جملة الربط
Public connSQLServer As New SqlConnection("Data Source= DELL-PC\omar;Initial Catalog= Ericsson;Integrated Security=True")
Dim da As SqlDataAdapter
Dim dt As New DataTable
Sub Load_Data()
dt.Clear()
' تغير اسم الجدول هنا اسمه table1da =
New SqlDataAdapter("Select * From ERC_2G", connSQLServer)
da.Fill(dt)
End Sub
Sub save_Data()
Dim save As New SqlCommandBuilder(da)save.QuotePrefix =
"["save.QuoteSuffix =
"]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Public Function Max_ID_From_dt()
Dim Number As Integer
Try
Dim cmd As New SqlDataAdapter("Select Max(ID) From dt", connSQLServer)
connSQLServer.Open()
' Number = cmd.ExecuteScalar
connSQLServer.Close()
Catch
Number = 0
connSQLServer.Close()
End Try
Return Number
End Function
' Clear Function
Private Sub clear()
TextIDText.Clear()
Site_RegionText.Clear()
Site_KeyText.Clear()
Node_NameText.Clear()
SystemText.Clear()
TechnologyText.Clear()
Cabinet_TypeText.Clear()
Site_ActivityText.Clear()
ConfigurationText.Clear()
StatusText.Clear()
DateTimePicker1.Value = Now
LAC_TACText.Clear()
ParentsText.Clear()
PriorityText.Clear()
PhaseText.Clear()
FON_IDText.Clear()
BH_TypeText.Clear()
End Sub
'================================================================================================================================================================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Load_Data()
DataGridView1.DataSource = dt
End Sub
' كود مفتاح الحذف
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
If TextIDText.Text = "" ThenMsgBox(
"لم يتم اختيار سجل لحذفه")
Exit Sub
End If
Dim bc As Integer = BindingContext(dt).Position
Dim pos As Integer = DataGridView1.CurrentRow.Index
Dim posNm = DataGridView1.Rows(pos).Cells("Site_Region").Value
Dim posID = DataGridView1.Rows(pos).Cells("ID").Value
If MsgBox("هل تريد الحذف فعلاً " & posNm, MsgBoxStyle.Question + vbYesNo, Title:="تحذير") = vbYes Then
Dim cmd As New SqlDataAdapter("DELETE FROM ERC_2G WHERE ID =" & TextIDText.Text, connSQLServer)
connSQLServer.Open()
connSQLServer.Close()
dt.Clear()
Load_Data()
BindingContext(dt).Position = pos
MsgBox(
"تم الحذف")
Else
Return
End If
save_Data()
Load_Data()
clear()
End Sub
End
Class
System.Data.SqlClientPublic
Class ERC_2G
' جملة الربط
Public connSQLServer As New SqlConnection("Data Source= DELL-PC\omar;Initial Catalog= Ericsson;Integrated Security=True")
Dim da As SqlDataAdapter
Dim dt As New DataTable
Sub Load_Data()
dt.Clear()
' تغير اسم الجدول هنا اسمه table1da =
New SqlDataAdapter("Select * From ERC_2G", connSQLServer)
da.Fill(dt)
End Sub
Sub save_Data()
Dim save As New SqlCommandBuilder(da)save.QuotePrefix =
"["save.QuoteSuffix =
"]"
da.Update(dt)
dt.AcceptChanges()
End Sub
Public Function Max_ID_From_dt()
Dim Number As Integer
Try
Dim cmd As New SqlDataAdapter("Select Max(ID) From dt", connSQLServer)
connSQLServer.Open()
' Number = cmd.ExecuteScalar
connSQLServer.Close()
Catch
Number = 0
connSQLServer.Close()
End Try
Return Number
End Function
' Clear Function
Private Sub clear()
TextIDText.Clear()
Site_RegionText.Clear()
Site_KeyText.Clear()
Node_NameText.Clear()
SystemText.Clear()
TechnologyText.Clear()
Cabinet_TypeText.Clear()
Site_ActivityText.Clear()
ConfigurationText.Clear()
StatusText.Clear()
DateTimePicker1.Value = Now
LAC_TACText.Clear()
ParentsText.Clear()
PriorityText.Clear()
PhaseText.Clear()
FON_IDText.Clear()
BH_TypeText.Clear()
End Sub
'================================================================================================================================================================
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Load_Data()
DataGridView1.DataSource = dt
End Sub
' كود مفتاح الحذف
Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click
If TextIDText.Text = "" ThenMsgBox(
"لم يتم اختيار سجل لحذفه")
Exit Sub
End If
Dim bc As Integer = BindingContext(dt).Position
Dim pos As Integer = DataGridView1.CurrentRow.Index
Dim posNm = DataGridView1.Rows(pos).Cells("Site_Region").Value
Dim posID = DataGridView1.Rows(pos).Cells("ID").Value
If MsgBox("هل تريد الحذف فعلاً " & posNm, MsgBoxStyle.Question + vbYesNo, Title:="تحذير") = vbYes Then
Dim cmd As New SqlDataAdapter("DELETE FROM ERC_2G WHERE ID =" & TextIDText.Text, connSQLServer)
connSQLServer.Open()
connSQLServer.Close()
dt.Clear()
Load_Data()
BindingContext(dt).Position = pos
MsgBox(
"تم الحذف")
Else
Return
End If
save_Data()
Load_Data()
clear()
End Sub
End
Class
RE: مشكلة في كود الحذف مع استخدام Sql 2008 - a.ahmed - 12-11-17
PHP كود :
Imports System.Data.SqlClient
Public Class Form1
' جملة الربط
Public connSQLServer As New SqlConnection("Data Source= DELL-PC\omar;Initial Catalog= Ericsson;Integrated Security=True")
Dim da As New SqlDataAdapter("Select * From ERC_2G", connSQLServer)
Dim dt As New DataTable
Dim binding As New BindingSource
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
binding.DataSource = dt
da.Fill(dt)
TextIDText.DataBindings.Add("Text", binding, "ID")
Site_RegionText.DataBindings.Add("Text", binding, "Site_Region")
Site_KeyText.DataBindings.Add("Text", binding, "Site_Key")
Node_NameText.DataBindings.Add("Text", binding, "Node_Name")
SystemText.DataBindings.Add("Text", binding, "System")
TechnologyText.DataBindings.Add("Text", binding, "Technology")
Cabinet_TypeText.DataBindings.Add("Text", binding, "Cabinet_Type")
Site_ActivityText.DataBindings.Add("Text", binding, "Site_Activity")
ConfigurationText.DataBindings.Add("Text", binding, "Configuration")
StatusText.DataBindings.Add("Text", binding, "Status")
DateTimePicker1.DataBindings.Add("Value", binding, "mbate")
LAC_TACText.DataBindings.Add("Text", binding, "LAC_TAC")
ParentsText.DataBindings.Add("Text", binding, "Parents")
PriorityText.DataBindings.Add("Text", binding, "Priority")
PhaseText.DataBindings.Add("Text", binding, "Phase")
FON_IDText.DataBindings.Add("Text", binding, "FON_ID")
BH_TypeText.DataBindings.Add("Text", binding, "BH_Type")
DataGridView1.DataSource = binding
End Sub
' كود مفتاح الحذف
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextIDText.Text = "" Then
MsgBox("لم يتم اختيار سجل لحذفه")
Exit Sub
End If
If MsgBox("هل تريد الحذف فعلاً ", MsgBoxStyle.Question + vbYesNo, Title:="تحذير") = vbYes Then
binding.RemoveCurrent()
Dim builder As New SqlCommandBuilder(da)
da.Update(dt)
MsgBox("تم الحذف")
End If
End Sub
Public Function Max_ID_From_dt()
Dim Number As Integer
Try
Dim cmd As New SqlCommand("Select Max(ID) From dt", connSQLServer)
connSQLServer.Open()
Number = cmd.ExecuteScalar
connSQLServer.Close()
Catch
Number = 0
connSQLServer.Close()
End Try
Return Number
End Function
End Class
RE: مشكلة في كود الحذف مع استخدام Sql 2008 - khaled12345 - 12-11-17
(12-11-17, 07:51 AM)a.ahmed كتب :PHP كود :
Imports System.Data.SqlClient
Public Class Form1
' جملة الربط
Public connSQLServer As New SqlConnection("Data Source= DELL-PC\omar;Initial Catalog= Ericsson;Integrated Security=True")
Dim da As New SqlDataAdapter("Select * From ERC_2G", connSQLServer)
Dim dt As New DataTable
Dim binding As New BindingSource
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
binding.DataSource = dt
da.Fill(dt)
TextIDText.DataBindings.Add("Text", binding, "ID")
Site_RegionText.DataBindings.Add("Text", binding, "Site_Region")
Site_KeyText.DataBindings.Add("Text", binding, "Site_Key")
Node_NameText.DataBindings.Add("Text", binding, "Node_Name")
SystemText.DataBindings.Add("Text", binding, "System")
TechnologyText.DataBindings.Add("Text", binding, "Technology")
Cabinet_TypeText.DataBindings.Add("Text", binding, "Cabinet_Type")
Site_ActivityText.DataBindings.Add("Text", binding, "Site_Activity")
ConfigurationText.DataBindings.Add("Text", binding, "Configuration")
StatusText.DataBindings.Add("Text", binding, "Status")
DateTimePicker1.DataBindings.Add("Value", binding, "mbate")
LAC_TACText.DataBindings.Add("Text", binding, "LAC_TAC")
ParentsText.DataBindings.Add("Text", binding, "Parents")
PriorityText.DataBindings.Add("Text", binding, "Priority")
PhaseText.DataBindings.Add("Text", binding, "Phase")
FON_IDText.DataBindings.Add("Text", binding, "FON_ID")
BH_TypeText.DataBindings.Add("Text", binding, "BH_Type")
DataGridView1.DataSource = binding
End Sub
' كود مفتاح الحذف
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If TextIDText.Text = "" Then
MsgBox("لم يتم اختيار سجل لحذفه")
Exit Sub
End If
If MsgBox("هل تريد الحذف فعلاً ", MsgBoxStyle.Question + vbYesNo, Title:="تحذير") = vbYes Then
binding.RemoveCurrent()
Dim builder As New SqlCommandBuilder(da)
da.Update(dt)
MsgBox("تم الحذف")
End If
End Sub
Public Function Max_ID_From_dt()
Dim Number As Integer
Try
Dim cmd As New SqlCommand("Select Max(ID) From dt", connSQLServer)
connSQLServer.Open()
Number = cmd.ExecuteScalar
connSQLServer.Close()
Catch
Number = 0
connSQLServer.Close()
End Try
Return Number
End Function
End Class
بارك الله فيك يا هندسة
والف مليون شكر لدعم حضرتك الدائم
الكود تمام
