+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة في عمل ال Navigation (/showthread.php?tid=20841)
مشكلة في عمل ال Navigation - khaled12345 - 26-06-17
السلام عليكم اخوتي الاحباب
وعيدكم مبارك ان شاء الله
عندي مشكلة في هذا الكود لعمل تنقل بين السجلات
للاسف المشروع كبير ولم اتمكن من رفعه
لذلك وضعت الكود بالاسفل
فالرجاء المساعدة
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
RE: مشكلة في عمل ال Navigation - سعود - 26-06-17
معذرة اخي الكريم
اما لم افهم السؤال او اني لم اجد بالكود شيء حول الــNavigation
ماذا تقصد بــNavigation
هل تقصد التنقل بين السجلات؟
RE: مشكلة في عمل ال Navigation - khaled12345 - 26-06-17
(26-06-17, 01:54 PM)سعود كتب : معذرة اخي الكريم
اما لم افهم السؤال او اني لم اجد بالكود شيء حول الــNavigation
ماذا تقصد بــNavigation
هل تقصد التنقل بين السجلات؟
نعم
اقصد التنقل بين السجلات اخي سعود
RE: مشكلة في عمل ال Navigation - سعود - 26-06-17
طيب اكتب فقط الاكواد الخاصة بالــNavigation
حتى اقول لك المشكلة فين.
RE: مشكلة في عمل ال Navigation - khaled12345 - 26-06-17
(26-06-17, 05:37 PM)سعود كتب : طيب اكتب فقط الاكواد الخاصة بالــNavigation
حتى اقول لك المشكلة فين.
السلام عليكم أخي سعود
انا علمت علي كل ما يخص التنقل بين السجلات باللون الاصفر في المرفقات
مع الشكر
RE: مشكلة في عمل ال Navigation - سعود - 26-06-17
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
RE: مشكلة في عمل ال Navigation - silverlight - 26-06-17
أنا مش بأشتغل داتابير لكن مفهومي لكلمة Naviagteion انه عندك باتون عند الضغط عليه يقوم بقراءة التالي و الباتون الأخر يقوم بقراءة العنصر او العناصر السابقة في الداتا بيز
الفكرة انك يكون عندك عداد قيمته تزيد +1 في حالة Next و تقل بقيمة -1 في حالة السابق وتضيف قيمة العداد الي index الخاص بالعنصر الحالي و بناء علي تلك القيمة تختار العناصر المراد اظهارها في الفورم او في التكست بوكس
RE: مشكلة في عمل ال Navigation - khaled12345 - 26-06-17
(26-06-17, 06:08 PM)silverlight كتب : أنا مش بأشتغل داتابير لكن مفهومي لكلمة Naviagteion انه عندك باتون عند الضغط عليه يقوم بقراءة التالي و الباتون الأخر يقوم بقراءة العنصر او العناصر السابقة في الداتا بيز
الفكرة انك يكون عندك عداد قيمته تزيد +1 في حالة Next و تقل بقيمة -1 في حالة السابق وتضيف قيمة العداد الي index الخاص بالعنصر الحالي و بناء علي تلك القيمة تختار العناصر المراد اظهارها في الفورم او في التكست بوكس
شكرا لكم الاخوة الاحباب علي اضافتكم الجميلة و المفيدة
RE: مشكلة في عمل ال Navigation - سعود - 27-06-17
(26-06-17, 06:33 PM)khaled12345 كتب :(26-06-17, 06:08 PM)silverlight كتب : أنا مش بأشتغل داتابير لكن مفهومي لكلمة Naviagteion انه عندك باتون عند الضغط عليه يقوم بقراءة التالي و الباتون الأخر يقوم بقراءة العنصر او العناصر السابقة في الداتا بيز
الفكرة انك يكون عندك عداد قيمته تزيد +1 في حالة Next و تقل بقيمة -1 في حالة السابق وتضيف قيمة العداد الي index الخاص بالعنصر الحالي و بناء علي تلك القيمة تختار العناصر المراد اظهارها في الفورم او في التكست بوكس
شكرا لكم الاخوة الاحباب علي اضافتكم الجميلة و المفيدة
يارب تكون اتضحت لك الطريقة
