09-11-17, 07:58 PM
الاخوة الاعزاء السلام عليكم ورحمة الله وبركاته
عندي مشروع استخدمت فيه الداتا بيس SQL وهي ملفات خارجية
وانا بصراحة معلوماتي بسيطة في استخدام ال SQL
وعندي مشكلة في كود الاضافة والحذف
فبرجاء فحص الكود مع الشكر
عندي مشروع استخدمت فيه الداتا بيس 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