تقييم الموضوع :
  • 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 ك ب / التحميلات : 128)
الرد }}}
تم الشكر بواسطة: 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  [VB.NET] امثلة علي برمجة RFID MOHAMMED ALZWI 0 208 04-12-23, 11:29 AM
آخر رد: MOHAMMED ALZWI
  برمجة اداة BindingNavigator salah525 3 308 29-09-23, 07:14 PM
آخر رد: salah525
  كيفية برمجة برنامج أنتي فيروس anti virus elta 6 10,925 06-03-23, 04:54 PM
آخر رد: MZoubi93
Thumbs Up كيفية برمجة القائمة العائمة أبو خالد الشكري 2 791 16-08-22, 12:42 PM
آخر رد: أبو خالد الشكري
  [سؤال] محتاج كود لاضافة 3 أزرار للجريد dr.programming 2 772 28-05-22, 02:12 AM
آخر رد: DR.YASER
  طلب كود مسح السجلات في قاعدة البيانات hafid33 8 2,129 02-04-22, 07:52 PM
آخر رد: hafid33
  سؤال عن طريق حساب السجلات المعبئة وغير المعبئة في قاعدة بيانات اكسيس برمجيا ب VB bilgacim 2 1,317 01-02-22, 11:24 AM
آخر رد: a7med saba
Wink كيف برمجة برنامج منع مواقع الاباحية mond 5 3,004 05-12-21, 10:08 PM
آخر رد: asemshahen5
  كود ايقاف صوت المعالج عند التنقل برز enter بسام محمدغانم 2 1,213 23-10-21, 01:32 AM
آخر رد: بسام محمدغانم

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


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