تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة في كود الحذف مع استخدام Sql 2008
#1
  السلام عليكم الاخوة الاعزاء

برجاء المساعدة في كود الحذف في هذا المشروع


انا استخدم 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















































الرد
تم الشكر بواسطة:
#2
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.ObjectByVal e As System.EventArgsHandles Button9.Click

        
If TextIDText.Text "" Then
            MsgBox
("لم يتم اختيار سجل لحذفه")
            Exit 
Sub
        End 
If

        If 
MsgBox("هل تريد الحذف فعلاً "MsgBoxStyle.Question vbYesNoTitle:="تحذير") = 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 
الرد
تم الشكر بواسطة: Amir_Alzubidy , Amir_Alzubidy
#3
(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.ObjectByVal e As System.EventArgsHandles Button9.Click

        If TextIDText
.Text "" Then
            MsgBox
("لم يتم اختيار سجل لحذفه")
 
           Exit Sub
        End 
If

 
       If MsgBox("هل تريد الحذف فعلاً "MsgBoxStyle.Question vbYesNoTitle:="تحذير") = 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 

بارك الله فيك يا هندسة


والف مليون شكر لدعم حضرتك الدائم

الكود تمامSmile
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم