تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود التنقل بين السجلات لا يعمل جيدا لماذا ؟
#1
السلام عليكم 
انا استعمل هذا الكود للانتقال بين السجلات لكن ينتقل إلى السجل التالي مرة وحدة فقط و يتوقف ولا ينتقل إلى بعده
ما الحل ؟ 
PHP كود :
Private Sub Button17_Click(sender As ObjectAs EventArgsHandles Button17.Click
        Me
.BindingContext(DataSet1"Ginfo").Position = +1

    End Sub 
الرد }}}
تم الشكر بواسطة: asemshahen5
#2
وعليكم السلام ورحمة الله وبركاته


أين تقوم بتعبئة الداتاسيت, في هذا الكود تقوم بانشاء كائن جديد من DS, في هذه الحالة يكون فارغ


الرجاء التوضيح






تمنياتي لك وللجميع التوفيق
الرد }}}
تم الشكر بواسطة: سميـر
#3
PHP كود :
Public Class Main_Form
    Dim ConStr 
As String "Provider=Microsoft.Jet.OLEDB.4.0;" &
"Data Source =" Application.StartupPath "\Data\Clinic.mdb"
 
   Dim Conn As New OleDbConnection(ConStr)
 
   Dim Conn2 As New OleDbConnection(ConStr)
 
   Dim Conn3 As New OleDbConnection(ConStr)
 
   Dim Conn4 As New OleDbConnection(ConStr)
 
   Dim Conn5 As New OleDbConnection(ConStr)
 
   Dim Conn6 As New OleDbConnection(ConStr)
 
   Dim DataSet1 As New DataSet
    Dim DataSet2 
As New DataSet
    Dim DataSet3 
As New DataSet
    Dim DataSet4 
As New DataSet
    Dim DataSet5 
As New DataSet
    Dim DataSet6 
As New DataSet
    Dim DataAdapter 
As New OleDbDataAdapter
    Dim m 
As String
    Dim ref 
As New Button
    Dim DataBindings 
As BindingSource
    Dim SQLstr 
As String "SELECT * FROM Ginfo " 
PHP كود :
Private Sub Main_Form_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        
'TODO: This line of code loads data into the 'ClinicDataSet.Medicine_Tbl' table. You can move, or remove it, as needed.
        ' 
Me.MedicineTableAdapter.Fill(Me.ClinicDataSet.Medicine_Tbl)
 
       Conn.Open()
 
       Dim DataAdapter1 As New OleDbDataAdapter(SQLstrConn)
 
       DataAdapter1.Fill(DataSet1"Ginfo")
 
       Me.BindingContext(DataSet1"Ginfo").Position Me.BindingContext(DataSet1"Ginfo").Count 1
        Conn
.Close()
 
       Pt_ID.DataBindings.Add("Text"DataSet1"Ginfo.ID")
 
       Pt_Name.DataBindings.Add("Text"DataSet1"Ginfo.Name")
 
       Pt_Mobile.DataBindings.Add("Text"DataSet1"Ginfo.Mobile")
 
       Pt_DOB.DataBindings.Add("Text"DataSet1"Ginfo.DOB")
 
       Pt_Age.DataBindings.Add("Text"DataSet1"Ginfo.age")
 
       Pt_Sex.DataBindings.Add("Text"DataSet1"Ginfo.SEX")
 
       Pt_Ocup.DataBindings.Add("Text"DataSet1"Ginfo.Occupation")
 
       Pt_Adress.DataBindings.Add("text"DataSet1"Ginfo.ADRESS")
 
       Pt_Credit.DataBindings.Add("text"DataSet1"Ginfo.Credit")
 
       Pt_SDis.DataBindings.Add("text"DataSet1"Ginfo.S_Dis")
 
       Search.Focus()
 
       RadioButton3.Checked True
        If Pt_Credit
.Text 0 Then
            Pt_Credit
.BackColor Color.Red
        End 
If
 
       Me.BindingContext(DataSet1"Ginfo").Position 0
    End Sub 

الرد }}}
تم الشكر بواسطة: baha , سميـر , سميـر , asemshahen5
#4
الحمد لله وجدت الحل

PHP كود :
Me.BindingContext(DataSet1"Apoint").Position Me.BindingContext(DataSet1"Apoint").Position 
الرد }}}
تم الشكر بواسطة: baha , سميـر , asemshahen5
#5
للعلم فقط الكود في المشاركة الأولى الذي كنت تقصده


PHP كود :
Me.BindingContext(DataSet1"Ginfo").Position + = 

بدلا من
PHP كود :
Me.BindingContext(DataSet1"Ginfo").Position = +


وللإستفادة

أرى أنك تستخدم أكثر من متغير لنفس جملة الإتصال يمكنك التعامل مع مغير واحد فقط لا داعي لكثرة المتغيرات, 
أيضا يمكنك الوصول إليه من خارج الفورم الذي تمّ تعريفه فيها وذلك بتعريفه من النوع Public عام وليس Dim خاص.

أيضاً Dataset واحدة يمكن أن تحتوي على جميع جداول قاعدة البيانات ويمكنك مراجع الموضوع التالي الفرق بين Dataset و Datatable





تمنياتي لك وللجميع التوفيق
الرد }}}
تم الشكر بواسطة: سميـر , asemshahen5
#6
شكرا لك أخي Baha على الإفادة
الرد }}}
تم الشكر بواسطة: baha , سميـر , asemshahen5
#7
الشكر لله

أتمنى لك مزيداً من التقدم والإبداع باذن الله
الرد }}}
تم الشكر بواسطة: Alhootti1 , سميـر , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدم عرض الصورة في تقرير rdlc لماذا atefkhalf2004 2 72 23-03-24, 04:42 AM
آخر رد: atefkhalf2004
  سورس كود الارسال الى الواتس -يعمل يرجي التعاون للتطوير new_programer 5 224 03-03-24, 08:45 PM
آخر رد: new_programer
Exclamation [VB.NET] من يقدر يعمل لي استعلام يحقق طلبي ؟ أبو خالد الشكري 5 417 09-11-23, 02:25 PM
آخر رد: أبو خالد الشكري
Smile تطبيقي يعمل تمام على ويندوز 10 قبل تحديث الوندوز وبعد التحديث لا يعمل رمضان محمد 2 382 31-10-23, 01:50 PM
آخر رد: رمضان محمد
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 279 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  جعل النظام يعمل بجميع مقاسات الشاشه Owz 7 528 08-08-23, 07:36 PM
آخر رد: Owz
  [سؤال] سؤال بخصوص برنامج يعمل بالباركود eslam kady 2 622 05-06-23, 11:26 PM
آخر رد: eslam kady
  لماذا يتم انشاء العديد من كائنات الاتصال ابو محمد محمد محمد 12 964 27-04-23, 01:54 PM
آخر رد: ابو محمد محمد محمد
  [سؤال] لماذا لا تظهر بتفعيل Ismdicontainer اللي هي BackGroundImage سعود 6 894 22-08-22, 09:59 AM
آخر رد: سعود
  تعبت من البحث : كود يعمل بجد لاعادة الترقيم بحقل الترقيم التلقائى dr.programming 5 1,267 16-08-22, 02:21 AM
آخر رد: a7med saba

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


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