[khaled12345]

السلام عليكم اخوتي الاحباب

وعيدكم مبارك ان شاء الله

عندي مشكلة في هذا الكود لعمل تنقل بين السجلات

للاسف المشروع كبير ولم اتمكن من رفعه


لذلك  وضعت الكود بالاسفل

فالرجاء المساعدة
 

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

[سعود]

معذرة اخي الكريم
اما لم افهم السؤال او اني لم اجد بالكود شيء حول الــNavigation
ماذا تقصد بــNavigation
هل تقصد التنقل بين السجلات؟

[khaled12345]

(26-06-17, 01:54 PM)سعود كتب : معذرة اخي الكريم
اما لم افهم السؤال او اني لم اجد بالكود شيء حول الــNavigation
ماذا تقصد بــNavigation
هل تقصد التنقل بين السجلات؟

نعم

اقصد التنقل بين السجلات اخي سعود

[سعود]

طيب اكتب فقط الاكواد الخاصة بالــNavigation
حتى اقول لك المشكلة فين.

[khaled12345]

(26-06-17, 05:37 PM)سعود كتب : طيب اكتب فقط الاكواد الخاصة بالــNavigation
حتى اقول لك المشكلة فين.

السلام عليكم أخي سعود

انا علمت علي كل ما يخص التنقل بين السجلات باللون الاصفر في المرفقات

مع الشكر

[سعود]

PHP كود :

Imports System.Data.OleDb

Public Class Form1
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=db.accdb"
    Dim con As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim cmd As OleDbCommandBuilder
    Dim dt As DataTable
    Dim bs As BindingSource

    Private Sub gd()
        con = New OleDbConnection(str)
        da = New OleDbDataAdapter("select * from tb", con)
        cmd = New OleDbCommandBuilder(da)
        dt = New DataTable
        bs = New BindingSource
        da.Fill(dt)
        bs.DataSource = dt
        TextBox1.DataBindings.Add("text", bs, "tname")
    End Sub
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gd()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        bs.MoveLast()
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        bs.MoveNext()
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        bs.MovePrevious()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        bs.MoveFirst()
    End Sub
End Class 


شوف الكلاس سويته على السريع والتصفح تمام.

---

[silverlight]

أنا مش بأشتغل داتابير لكن مفهومي لكلمة Naviagteion انه عندك باتون عند الضغط عليه يقوم بقراءة التالي و الباتون الأخر يقوم بقراءة العنصر او العناصر السابقة في الداتا بيز
الفكرة انك يكون عندك عداد قيمته تزيد +1 في حالة Next و تقل بقيمة -1 في حالة السابق وتضيف قيمة العداد الي index الخاص بالعنصر الحالي و بناء علي تلك القيمة تختار العناصر المراد اظهارها في الفورم او في التكست بوكس

[khaled12345]

(26-06-17, 06:08 PM)silverlight كتب : أنا مش بأشتغل داتابير لكن مفهومي لكلمة Naviagteion انه عندك باتون عند الضغط عليه يقوم بقراءة التالي و الباتون الأخر يقوم بقراءة العنصر او العناصر السابقة في الداتا بيز
الفكرة انك يكون عندك عداد قيمته تزيد +1 في حالة Next و تقل بقيمة -1 في حالة السابق وتضيف قيمة العداد الي index الخاص بالعنصر الحالي و بناء علي تلك القيمة تختار العناصر المراد اظهارها في الفورم او في التكست بوكس

شكرا لكم الاخوة الاحباب علي اضافتكم الجميلة و المفيدة

[سعود]

(26-06-17, 06:33 PM)khaled12345 كتب :

(26-06-17, 06:08 PM)silverlight كتب : أنا مش بأشتغل داتابير لكن مفهومي لكلمة Naviagteion انه عندك باتون عند الضغط عليه يقوم بقراءة التالي و الباتون الأخر يقوم بقراءة العنصر او العناصر السابقة في الداتا بيز
الفكرة انك يكون عندك عداد قيمته تزيد +1 في حالة Next و تقل بقيمة -1 في حالة السابق وتضيف قيمة العداد الي index الخاص بالعنصر الحالي و بناء علي تلك القيمة تختار العناصر المراد اظهارها في الفورم او في التكست بوكس

شكرا لكم الاخوة الاحباب علي اضافتكم الجميلة و المفيدة

يارب تكون اتضحت لك الطريقة