26-06-17, 06:34 AM
السلام عليكم اخوتي الاحباب
وعيدكم مبارك ان شاء الله
عندي مشكلة في هذا الكود لعمل تنقل بين السجلات
للاسف المشروع كبير ولم اتمكن من رفعه
لذلك وضعت الكود بالاسفل
فالرجاء المساعدة
[align=left]Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As[size=small][size=small][font=Consolas] System.[/si
وعيدكم مبارك ان شاء الله
عندي مشكلة في هذا الكود لعمل تنقل بين السجلات
للاسف المشروع كبير ولم اتمكن من رفعه
لذلك وضعت الكود بالاسفل
فالرجاء المساعدة
Imports System.Data.OleDb
Public Class MW_Details
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\MW_Details.accdb")
Dim da As New OleDbDataAdapter '
Dim dt As New DataTable '
Dim sql As String = "SELECT * FROM [MW_Details]"
Dim R As New ResizeControls()
Dim WithEvents BindingSource1 As New BindingSource
Sub Load_Data()
dt.Clear()
' تغير اسم الجدول هنا اسمه
da = New OleDbDataAdapter("Select * From MW_Details", con)
da.Fill(dt)
End Sub
Sub save_Data()
Dim save As New OleDbCommandBuilder(da)
save.QuotePrefix = "["
save.QuoteSuffix = "]"
da.Update(dt)
dt.AcceptChanges()
End Sub
' ============================================================================================================
Private Sub MW_Details_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Load_Data()
DataGridView1.DataSource = dt
TextBox2.Text = DataGridView1.Rows.Count - 1
TextBox2.Text = DataGridView1.Rows.Count - 1
ResizeControls.SubResize(Me, 100, 120)
Me.StartPosition = FormStartPosition.CenterScreen
Me.CenterToScreen()
Me.WindowState = FormWindowState.Normal
End Sub
Private Sub Form1_HandleCreated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.HandleCreated
R.Container = Me
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.StartPosition = FormStartPosition.CenterScreen
R.ResizeControls()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
Dim query As String = "Select * From MW_Details where 1 = 1"
Dim w As New List(Of String)
' البحث بال Region
If ComboBox1.Text <> "" Then
query = query & " AND region = '" & ComboBox1.Text & "'"
End If
' البحث بال Area
If ComboBox2.Text <> "" Then
query = query & " AND Area = '" & ComboBox2.Text & "'"
End If
' احتيار ال Category
If ComboBox3.Text <> "" Then
query = query & " AND Link_status = '" & ComboBox3.Text & "'"
End If
' احتيار ال Root_Cause
If ComboBox4.Text <> "" Then
query = query & " AND Link_Config = '" & ComboBox4.Text & "'"
End If
' احتيار ال BSC_RNC_MME
If ComboBox5.Text <> "" Then
query = query & " AND IDU_A = '" & ComboBox5.Text & "'"
End If
' احتيار ال Responsibility
If ComboBox6.Text <> "" Then
query = query & " AND ODU_A = '" & ComboBox6.Text & "'"
End If
If ComboBox7.Text <> "" Then
query = query & " AND Fabricator = '" & ComboBox7.Text & "'"
End If
If ComboBox8.Text <> "" Then
query = query & " AND FON = '" & ComboBox8.Text & "'"
End If
Dim cmd As New OleDbCommand(query, con)
da = New OleDbDataAdapter(cmd)
dt = New DataTable("MW_Details")
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt
TextBox1.Text = DataGridView1.Rows.Count - 1
End Sub
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
Using da As New OleDbDataAdapter("Select * From MW_Details", con)
Dim dt As New DataTable
da.Fill(dt)
Me.DataGridView1.DataSource = dt
End Using
ComboBox1.Text = ("")
ComboBox2.Text = ("")
ComboBox3.Text = ("")
ComboBox4.Text = ("")
ComboBox5.Text = ("")
ComboBox6.Text = ("")
ComboBox7.Text = ("")
ComboBox8.Text = ("")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RichTextBox1.Clear()
Load_Data()
TextBox1.Text = DataGridView1.Rows.Count - 1
End Sub
[align=left]Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As[size=small][size=small][font=Consolas] System.[/si
