مشكلة في كود الاضافة والحذف

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

عندي مشروع استخدمت فيه الداتا بيس SQL  وهي ملفات خارجية

وانا بصراحة معلوماتي بسيطة في استخدام ال SQL

وعندي مشكلة في كود الاضافة والحذف

فبرجاء فحص الكود مع الشكر


Imports System.Data.Sql

Imports System.Data.SqlClient

Public Class Form1

Dim connSQLServer As New SqlConnection("Data source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\DataBase\SMS.mdf;Integrated Security=True;User Instance=True")

Dim da As SqlDataAdapter

Dim dt As New DataTable

'da= new SqlDataAdapter ("Select * From Table1",connSQLServer)

'===============================================================================================

Sub Load_Data()

dt.Clear()

' تغير اسم الجدول هنا اسمه table1

da = New SqlDataAdapter("Select * From ALU_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

'====================================================================================================

' كود عرض السطر اللي واقفين عليه في الداتا جريد فيو في التكست بوكس

Private Sub DataGridView1_SelectionChanged_1(sender As System.Object, e As System.EventArgs) Handles DataGridView1.SelectionChanged

Try

Dim pos As String = BindingContext(dt).Position

TextIDText.Text = dt.Rows(pos).Item(0)

Site_RegionText.Text = dt.Rows(pos).Item(1)

Site_KeyText.Text = dt.Rows(pos).Item(2)

Node_NameText.Text = dt.Rows(pos).Item(3)

SystemText.Text = dt.Rows(pos).Item(4)

TechnologyText.Text = dt.Rows(pos).Item(5)

Cabinet_TypeText.Text = dt.Rows(pos).Item(6)

Site_ActivityText.Text = dt.Rows(pos).Item(7)

ConfigurationText.Text = dt.Rows(pos).Item(8)

StatusText.Text = dt.Rows(pos).Item(9)

DateTimePicker1.Value = dt.Rows(pos).Item(10)

LAC_TACText.Text = dt.Rows(pos).Item(11)

ParentsText.Text = dt.Rows(pos).Item(12)

PriorityText.Text = dt.Rows(pos).Item(13)

PhaseText.Text = dt.Rows(pos).Item(14)

FON_IDText.Text = dt.Rows(pos).Item(15)

BH_TypeText.Text = dt.Rows(pos).Item(16)

Catch ex As Exception

End Try

End Sub

 

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 Button12_Click(sender As System.Object, e As System.EventArgs) Handles Button12.Click

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()

dt.Rows.Add()

Dim pos As String = dt.Rows.Count - 1

DataGridView1.Focus()

Dim MaxRows As Integer = dt.Rows.Count

BindingContext(dt).Position = MaxRows

dt.Rows(pos).Item(1) = Site_RegionText.Text

dt.Rows(pos).Item(2) = Site_KeyText.Text

dt.Rows(pos).Item(3) = Node_NameText.Text

dt.Rows(pos).Item(4) = SystemText.Text

dt.Rows(pos).Item(5) = TechnologyText.Text

dt.Rows(pos).Item(6) = Cabinet_TypeText.Text

dt.Rows(pos).Item(7) = Site_ActivityText.Text

dt.Rows(pos).Item(8) = ConfigurationText.Text

dt.Rows(pos).Item(9) = StatusText.Text

dt.Rows(pos).Item(10) = DateTimePicker1.Value

dt.Rows(pos).Item(11) = LAC_TACText.Text

dt.Rows(pos).Item(12) = ParentsText.Text

dt.Rows(pos).Item(13) = PriorityText.Text

dt.Rows(pos).Item(14) = PhaseText.Text

dt.Rows(pos).Item(15) = FON_IDText.Text

dt.Rows(pos).Item(16) = BH_TypeText.Text

End Sub

 

'كود(التخزين)

Private Sub Button11_Click(sender As System.Object, e As System.EventArgs) Handles Button11.Click



MsgBox("Are you Sure ?")

Dim pos As String = BindingContext(dt).Position

dt.Rows(pos).Item(1) = Site_RegionText.Text

dt.Rows(pos).Item(2) = Site_KeyText.Text

dt.Rows(pos).Item(3) = Node_NameText.Text

dt.Rows(pos).Item(4) = SystemText.Text

dt.Rows(pos).Item(5) = TechnologyText.Text

dt.Rows(pos).Item(6) = Cabinet_TypeText.Text

dt.Rows(pos).Item(7) = Site_ActivityText.Text

dt.Rows(pos).Item(8) = ConfigurationText.Text

dt.Rows(pos).Item(9) = StatusText.Text

dt.Rows(pos).Item(10) = DateTimePicker1.Value

dt.Rows(pos).Item(11) = LAC_TACText.Text

dt.Rows(pos).Item(12) = ParentsText.Text

dt.Rows(pos).Item(13) = PriorityText.Text

dt.Rows(pos).Item(14) = PhaseText.Text

dt.Rows(pos).Item(15) = FON_IDText.Text

dt.Rows(pos).Item(16) = BH_TypeText.Text

save_Data()

MsgBox("Already Saved")

clear()

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

' كود مفتاح الحذف

Private Sub Button9_Click(sender As System.Object, e As System.EventArgs) Handles Button9.Click

 

If TextIDText.Text = "" Then

MsgBox("لم يتم اختيار سجل لحذفه")

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)

'cmd.Connection = conn

connSQLServer.Open()

'cmd.sqlcommandExecuteNonQuery()

connSQLServer.Close()

dt.Clear()

Load_Data()

BindingContext(dt).Position = pos

MsgBox("تم الحذف")

Else

Return

End If

Load_Data()

clear()

End Sub

Private Sub Button10_Click(sender As System.Object, e As System.EventArgs) Handles Button10.Click

Me.Close()

End Sub

Private Sub First_Btn_Click(sender As System.Object, e As System.EventArgs) Handles First_Btn.Click

BindingContext(dt).Position = 0

End Sub

Private Sub Prev_Btn_Click(sender As System.Object, e As System.EventArgs) Handles Prev_Btn.Click

BindingContext(dt).Position -= 1

End Sub

Private Sub Next_Btn_Click(sender As System.Object, e As System.EventArgs) Handles Next_Btn.Click

BindingContext(dt).Position += 1

End Sub

Private Sub Last_btn_Click(sender As System.Object, e As System.EventArgs) Handles Last_btn.Click

Dim MaxRows As Integer = dt.Rows.Count

BindingContext(dt).Position = MaxRows - 1

End Sub

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند اعداد الملف الى setup mostafa hasanein 6 43 منذ 10 ساعة مضت
آخر رد: elgokr
Photo عندى مشكلة واريد حلها mostafa hasanein 9 145 11-08-18, 10:05 AM
آخر رد: mostafa hasanein
  مشكلة في تصدير بيانات جريد فيو الى ملف الاكسل Marwan9990 9 83 10-08-18, 10:51 PM
آخر رد: Marwan9990
Exclamation مشكلة في البرامج التي لها علاقة ل OpenFileDialog YousefOkasha 3 49 10-08-18, 07:52 PM
آخر رد: elgokr
  مشكلة في كريستال ريبورت اللورد محمود 3 48 10-08-18, 07:49 PM
آخر رد: elgokr
Exclamation مشكلة في ربط المشروع بقاعدة بيانات YousefOkasha 3 70 10-08-18, 07:10 PM
آخر رد: elgokr
  مشكلة في تعبئة TreeView ببيانات من ثلاث جداول SQL princelovelorn 3 47 10-08-18, 10:00 AM
آخر رد: elgokr
  [VB.NET] مشكلة في الكريستال ريبورد في اضهار الريبورت 0theghost0 1 49 05-08-18, 07:34 PM
آخر رد: elgokr
  مساعدة في حل sqlite add datetime مشكلة annaba2015 9 93 04-08-18, 08:55 AM
آخر رد: elgokr
  مشكلة عند حفظ الملف الفيجول بيسك abo fars 2 56 29-07-18, 05:47 PM
آخر رد: elgokr

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


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