05-01-24, 04:34 AM
أنسخ هذا الكود بدلاً من الكود الذي لديك في المشروع :
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Public Conne As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Ace.OLEDB.12.0;Data Source=|Datadirectory|\DataBase1.Accdb;")
Public pConn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "data source=" & Application.StartupPath & "\DataBase1.accdb")
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DataGridView1.DataSource = fDataTable("Select * from Table1 Order By Id Asc")
DataGridView2.DataSource = fDataTable("Select * from Table2 Order By Id Asc")
End Sub
Private Sub DataGridView1_SelectionChanged(sender As Object, e As EventArgs) Handles DataGridView1.SelectionChanged
Try
With DataGridView1
Me.TextBox1.Text = .CurrentRow.Cells(1).Value.ToString()
End With
Catch ex As Exception
End Try
End Sub
'=========================================================================================
Public Function Existing_Value(sSQLSelect As String) As Boolean ' للتحقق من وجود سجل
If pConn.State <> ConnectionState.Open Then pConn.Open()
'---------------------------------------------------------
Dim fCmd As New OleDb.OleDbCommand(sSQLSelect, pConn)
Dim fDt As New DataTable
fDt.Load(fCmd.ExecuteReader())
'---------------------------------------------------------
If pConn.State <> ConnectionState.Closed Then pConn.Close()
'---------------------------------------------------------
If fDt.Rows.Count > 0 Then
Return True
Else
Return False
End If
'---------------------------------------------------------
End Function
Public Function fDataTable(sSQLSelect As String) As DataTable ' لتعبئة جدول من قاعدة البيانات ضمن داتاتيبل
If pConn.State <> ConnectionState.Open Then pConn.Open()
'---------------------------------------------------------
Dim fCmd As New OleDb.OleDbCommand(sSQLSelect, pConn)
Dim fDt As New DataTable
fDt.Load(fCmd.ExecuteReader())
'---------------------------------------------------------
If pConn.State <> ConnectionState.Closed Then pConn.Close()
'---------------------------------------------------------
If fDt.Rows.Count > 0 Then
Return fDt
Else
Return Nothing
End If
'---------------------------------------------------------
End Function
Public Function fDataTable2(sSQLSelect As String) As DataTable ' لتعبئة جدول من قاعدة البيانات ضمن داتاتيبل
If pConn.State <> ConnectionState.Open Then pConn.Open()
'---------------------------------------------------------
Dim fCmd As New OleDb.OleDbCommand(sSQLSelect, pConn)
Dim fDt As New DataTable
fDt.Load(fCmd.ExecuteReader())
'---------------------------------------------------------
If pConn.State <> ConnectionState.Closed Then pConn.Close()
'---------------------------------------------------------
If fDt.Rows.Count > 0 Then
Return fDt
Else
Return Nothing
End If
'---------------------------------------------------------
End Function
Public Sub RunCommand(strSqlCommand As String) ' لتنفيذ أمر ما (حذف، إضافة، تعديل) اا
If pConn.State <> ConnectionState.Open Then pConn.Open()
'---------------------------------------------------------
Dim cmd As New OleDbCommand(strSqlCommand, pConn)
cmd.ExecuteNonQuery()
pConn.Close()
'---------------------------------------------------------
If pConn.State <> ConnectionState.Closed Then pConn.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Existing_Value("Select * from Table2 Where [MyName]='" & TextBox1.Text.Trim & "'") Then
MsgBox("هذا السجل مرتبط بسجلات أخرى، لا يمكنك حذفه أو ....")
Exit Sub
End If
RunCommand("Delete From Table1 Where Name ='" & TextBox1.Text.Trim & "'")
MsgBox("تم الحذف بنجاح")
DataGridView1.DataSource = fDataTable("Select * From Table1 Order By ID")
End Sub
End Class
قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».