تقييم الموضوع :
  • 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة فى التعديل salah mansour 7 100 15-10-18, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 48 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 37 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 92 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 224 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 212 09-10-18, 08:52 PM
آخر رد: ay.alhaj
  [سؤال] مشكلة في إرسال بيانات من الفيجوال الى الوورد سعود الشامان 7 354 08-10-18, 01:56 AM
آخر رد: عبد العزيز البسكري
  مشكلة الكرستال ريبورت DOX.1 1 45 07-10-18, 07:43 PM
آخر رد: rnmr
Photo [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 134 05-10-18, 12:26 PM
آخر رد: asemshahen5
  مشكلة شاشة التوقف المتألق9 3 87 30-09-18, 02:16 PM
آخر رد: المتألق9

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


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