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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة صغير ب geckofx 60 الطابعة sva 4 83 منذ 11 ساعة مضت
آخر رد: sva
  مشكلة اتصال kaiser3D 0 28 أمس, 07:56 AM
آخر رد: kaiser3D
  مشكلة الفورم فى الخلف new_programer 1 45 11-12-18, 05:58 AM
آخر رد: rmnr
  مشكلة عند الضغط على زر التخزين nooralcown 1 42 10-12-18, 03:10 PM
آخر رد: elgokr
  مشكلة فى وضع كود جلب معلومات قاعدة البينات Mohamed Magdy 6 109 09-12-18, 08:14 AM
آخر رد: asemshahen5
  مشكلة ال common items غير ظاهر new_programer 6 140 08-12-18, 03:48 AM
آخر رد: asemshahen5
  مشكلة الشراء باسعار مختلفه نبيل كونكت 8 822 07-12-18, 07:13 AM
آخر رد: atef_020
  مشكلة مع كريستال ريبورت kaiser_noori 0 40 06-12-18, 12:52 PM
آخر رد: kaiser_noori
  مشكلة فى نصوص متغيره ابو روضة 0 48 06-12-18, 09:33 AM
آخر رد: ابو روضة
  الاخوة الذين يواجهون مشكلة الحفظ في قاعدة بيانات اكسسس abo ragab 0 107 04-12-18, 11:52 PM
آخر رد: abo ragab

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


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