تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] برمجة أزرار التنقل بين السجلات
#1
Heart 
السلام عليكم أيها المبرمجون العباقرة الكرام

بداية أسبوع سعيدة وموفقة عليكم جميعًا إن شاء الله .



مرفق لكم مشروع بسيط جدًا فقط ينقصه برمجة أزرار التنقل بين السجلات

First , Next , previous , Last



أرجو من فضلكم أن تعطوني من وقتكم الثمين الغالي لمساعدتي في برمجة الأزرار الأربعة المسكـSmileـينة 


رابط الملف :
https://top4top.io/downloadf-2193fz35w1-rar.html


وتقبلوا مني خالص التحية والمحبة الكبيـــــــــــــــــــرة


الملفات المرفقة
.rar   MyWorld.rar (الحجم : 78.6 ك ب / التحميلات : 90)
الرد }}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#2
التعديل تم بالموديول عن طريق نقل الاكواد من الفورم لود اليه
PHP كود :
Imports System.Data.OleDb

Module Module1
    Public ConStr 
As String "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" Application.StartupPath "\Gulf.accdb;User ID=Admin;jet oledb:database password=123;"
 
   Public Con As New OleDbConnection(ConStr)
 
   Public DR_Buldan As OleDb.OleDbDataReader
    Public Cmd 
As New OleDb.OleDbCommand
    Public DTS_Buldan 
As New DataTable
    Public MySqlSreach 
As String
End Module 
والاجراء التالي تم تعديله:
PHP كود :
Private Sub MyFeilds()
 
       txtDawlah.DataBindings.Clear()
 
       txtAsimah.DataBindings.Clear()
 
       txtDawlah.DataBindings.Add("text"DTS_Buldan"Dawlah")
 
       txtAsimah.DataBindings.Add("text"DTS_Buldan"Asimah")
 
   End Sub 
و الازرار كالتالي:
PHP كود :
Private Sub btnFirst_Click(sender As ObjectAs EventArgsHandles btnFirst.Click
        BindingContext
(DTS_Buldan).Position 0
    End Sub

    Private Sub btnLast_Click
(sender As ObjectAs EventArgsHandles btnLast.Click
        BindingContext
(DTS_Buldan).Position BindingContext(DTS_Buldan).Count 1
    End Sub

    Private Sub btnNext_Click
(sender As ObjectAs EventArgsHandles btnNext.Click
        BindingContext
(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click
(sender As ObjectAs EventArgsHandles btnPrevious.Click
        BindingContext
(DTS_Buldan).Position -= 1
    End Sub 
الرد }}
تم الشكر بواسطة: عبد العزيز البسكري , asemshahen5
#3
(02-01-22, 09:53 PM)سعود كتب : التعديل تم بالموديول عن طريق نقل الاكواد من الفورم لود اليه
PHP كود :
Imports System.Data.OleDb

Module Module1
    Public ConStr 
As String "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source =" Application.StartupPath "\Gulf.accdb;User ID=Admin;jet oledb:database password=123;"
 
   Public Con As New OleDbConnection(ConStr)
 
   Public DR_Buldan As OleDb.OleDbDataReader
    Public Cmd 
As New OleDb.OleDbCommand
    Public DTS_Buldan 
As New DataTable
    Public MySqlSreach 
As String
End Module 
والاجراء التالي تم تعديله:
PHP كود :
Private Sub MyFeilds()
 
       txtDawlah.DataBindings.Clear()
 
       txtAsimah.DataBindings.Clear()
 
       txtDawlah.DataBindings.Add("text"DTS_Buldan"Dawlah")
 
       txtAsimah.DataBindings.Add("text"DTS_Buldan"Asimah")
 
   End Sub 
و الازرار كالتالي:
PHP كود :
Private Sub btnFirst_Click(sender As ObjectAs EventArgsHandles btnFirst.Click
        BindingContext
(DTS_Buldan).Position 0
    End Sub

    Private Sub btnLast_Click
(sender As ObjectAs EventArgsHandles btnLast.Click
        BindingContext
(DTS_Buldan).Position BindingContext(DTS_Buldan).Count 1
    End Sub

    Private Sub btnNext_Click
(sender As ObjectAs EventArgsHandles btnNext.Click
        BindingContext
(DTS_Buldan).Position += 1
    End Sub

    Private Sub btnPrevious_Click
(sender As ObjectAs EventArgsHandles btnPrevious.Click
        BindingContext
(DTS_Buldan).Position -= 1
    End Sub 


ما شاء الله عليك أستاذ سعود أنت مبدع ومتألق كعادتك دائما
يعجز اللسان عن شكرك ، والكلمات لا تفي بحقك أستاذي
بارك الله فيك ، وألف شكر لك ، ما قصرت بصراحـة .
البرنامج الآن شغال 100% بعد أن قمت بعمل التعديلات التي وجهتني إليها حضرتك .
لك التحية والمحبة الدااااااائـمة Heart
الرد }}
تم الشكر بواسطة: سعود , asemshahen5
#4
(03-01-22, 12:20 AM)أبو خالد الشكري كتب : ما شاء الله عليك أستاذ سعود أنت مبدع ومتألق كعادتك دائما
يعجز اللسان عن شكرك ، والكلمات لا تفي بحقك أستاذي
بارك الله فيك ، وألف شكر لك ، ما قصرت بصراحـة .
البرنامج الآن شغال 100% بعد أن قمت بعمل التعديلات التي وجهتني إليها حضرتك .
لك التحية والمحبة الدااااااائـمة Heart

الحمدلله هذا من فضل الله.
كلنا اخوة يساعد بعضنا بعضا قدر الامكان.
الرد }}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] محتاج كود لاضافة 3 أزرار للجريد dr.programming 2 289 28-05-22, 02:12 AM
آخر رد: DR.YASER
  طلب كود مسح السجلات في قاعدة البيانات hafid33 8 984 02-04-22, 07:52 PM
آخر رد: hafid33
  سؤال عن طريق حساب السجلات المعبئة وغير المعبئة في قاعدة بيانات اكسيس برمجيا ب VB bilgacim 2 814 01-02-22, 11:24 AM
آخر رد: a7med saba
Wink كيف برمجة برنامج منع مواقع الاباحية mond 5 2,490 05-12-21, 10:08 PM
آخر رد: asemshahen5
  كود ايقاف صوت المعالج عند التنقل برز enter بسام محمدغانم 2 710 23-10-21, 01:32 AM
آخر رد: بسام محمدغانم
  كود التعديل على السجلات aftfm 0 541 17-10-21, 08:03 PM
آخر رد: aftfm
  اضافة التاريخ الى جميع السجلات aftfm 6 1,331 30-08-21, 11:11 PM
آخر رد: aftfm
  برمجة جهاز البصامة strongriseman 1 776 14-07-21, 04:08 PM
آخر رد: اسامه الهرماوي
  اريد خذف كل السجلات من قاعدة البيانات العواجي 1 754 20-04-21, 05:35 AM
آخر رد: messry
  [سؤال] كود التنقل بين صفوف الجريد فيو حسن الجلب 1 702 19-03-21, 09:21 AM
آخر رد: سامي محمد

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم