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

احبابي في الله

كيف يمكنني الوصول إلى آخر سجل في قاعدة البيانات أكسس

مثلا: لدي قاعدة بيانات كالآتي

اسمها data.accdb

اسم الجدول tbl_Students

اسم الحقل std_Name

اريد كود للوصول إلى اخر سجل في قاعدة البيانات السابقة بدلالة اسم الطالب

مرفق مثال للتعديل عليه


Smile Smile Smile Smile Smile Smile


الملفات المرفقة
.zip   Students.zip (الحجم : 68.61 ك ب / التحميلات : 23)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#2
تفضل أخي الفاضل


الملفات المرفقة
.rar   Students.rar (الحجم : 108.18 ك ب / التحميلات : 33)
الرد }}}}
تم الشكر بواسطة: hamada salah90
#3
السلام عليكم ورحمة الله وبركاته
وهذه طريقة أخرى أيضا :
المرفق بعد التعديل :
.rar   khodor1985 - Students.rar (الحجم : 127.44 ك ب / التحميلات : 49)

الأكواد :
قم باستدعاء المكتبات التالية:
PHP كود :
Imports System.Data.OleDb
Imports System
.Data 

قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
    
Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim bs 
As BindingSource
    Dim sqlstr 
As String 

تحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :
PHP كود :
Try
            
con.Open()
            
sqlstr "SELECT * From tbl_Students"
            
cmd = New OleDbCommand(sqlstrcon)
            
da = New OleDbDataAdapter(cmd)
            
ds = New DataSet
            ds
.Clear()
            
da.Fill(ds"tbl_Students")

            
bs = New BindingSource
            bs
.DataSource ds.Tables("tbl_Students")

            
TextBox1.DataBindings.Clear()
            
TextBox3.DataBindings.Clear()
            
TextBox2.DataBindings.Clear()

            
TextBox1.DataBindings.Add("text"bs"std_Name")
            
TextBox3.DataBindings.Add("text"bs"std_Age")
            
TextBox2.DataBindings.Add("text"bs"std_Address")



            
con.Close()
        Catch 
ex As Exception
            
If con.State ConnectionState.Open Then con.Close()
            
MsgBox(ex.Message)
        
End Try 

الوصول إلى آخر سحل في قاعدة البيانات :
PHP كود :
bs.MoveLast() 

أتمنى لك التوفيق

المثال الثاني : إستخدام CurrencyManager
المرفق بعد التعديل :
.rar   khodor1985 -1- Students.rar (الحجم : 127.12 ك ب / التحميلات : 35)

الأكواد :
قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim cur 
As CurrencyManager
    Dim sqlstr 
As String 

تحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :
PHP كود :
Try
 
           con.Open()
 
           sqlstr "SELECT * From tbl_Students"
 
           cmd = New OleDbCommand(sqlstrcon)
 
           da = New OleDbDataAdapter(cmd)
 
           ds = New DataSet
            ds
.Clear()
 
           da.Fill(ds"tbl_Students")

 
           cur CType(BindingContext(ds.Tables("tbl_Students")), CurrencyManager)
 
         

            TextBox1
.DataBindings.Clear()
 
           TextBox3.DataBindings.Clear()
 
           TextBox2.DataBindings.Clear()

 
           TextBox1.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Name")
 
           TextBox3.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Age")
 
           TextBox2.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Address")

 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try 

الوصول إلى آخر سجل في قاعدة البيانات :
PHP كود :
cur.Position cur.Count 

أتمنى لك التوفيق

المثال 3 : BindingManagerBase
المرفق بعد التعديل :
.rar   khodor1985 - 2 - Students.rar (الحجم : 127.78 ك ب / التحميلات : 51)

الأكواد :
قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim bmb 
As BindingManagerBase
    Dim sqlstr 
As String 

قم بتحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :
PHP كود :
Try
 
           con.Open()
 
           sqlstr "SELECT * From tbl_Students"
 
           cmd = New OleDbCommand(sqlstrcon)
 
           da = New OleDbDataAdapter(cmd)
 
           ds = New DataSet
            ds
.Clear()
 
           da.Fill(ds"tbl_Students")

 
           bmb CType(BindingContext(ds.Tables("tbl_Students")), BindingManagerBase)
 
         

            TextBox1
.DataBindings.Clear()
 
           TextBox3.DataBindings.Clear()
 
           TextBox2.DataBindings.Clear()

 
           TextBox1.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Name")
 
           TextBox3.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Age")
 
           TextBox2.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Address")

 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try 

للوصول إلى السجل الأخير في قاعدة البيانات :
PHP كود :
bmb.Position bmb.Count 

أتمنى لك التوفيق
الرد }}}}
تم الشكر بواسطة: hamada salah90
#4
(03-04-16, 12:05 AM)khodor1985 كتب : السلام عليكم ورحمة الله وبركاته
وهذه طريقة أخرى أيضا :
المرفق بعد التعديل :

الأكواد :
قم باستدعاء المكتبات التالية:
PHP كود :
Imports System.Data.OleDb
Imports System
.Data 

قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim bs 
As BindingSource
    Dim sqlstr 
As String 

تحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :
PHP كود :
Try
 
           con.Open()
 
           sqlstr "SELECT * From tbl_Students"
 
           cmd = New OleDbCommand(sqlstrcon)
 
           da = New OleDbDataAdapter(cmd)
 
           ds = New DataSet
            ds
.Clear()
 
           da.Fill(ds"tbl_Students")

 
           bs = New BindingSource
            bs
.DataSource ds.Tables("tbl_Students")

 
           TextBox1.DataBindings.Clear()
 
           TextBox3.DataBindings.Clear()
 
           TextBox2.DataBindings.Clear()

 
           TextBox1.DataBindings.Add("text"bs"std_Name")
 
           TextBox3.DataBindings.Add("text"bs"std_Age")
 
           TextBox2.DataBindings.Add("text"bs"std_Address")



 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try 

الوصول إلى آخر سحل في قاعدة البيانات :
PHP كود :
bs.MoveLast() 

أتمنى لك التوفيق

المثال الثاني : إستخدام CurrencyManager
المرفق بعد التعديل :

الأكواد :
قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim cur 
As CurrencyManager
    Dim sqlstr 
As String 

تحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :
PHP كود :
Try
 
           con.Open()
 
           sqlstr "SELECT * From tbl_Students"
 
           cmd = New OleDbCommand(sqlstrcon)
 
           da = New OleDbDataAdapter(cmd)
 
           ds = New DataSet
            ds
.Clear()
 
           da.Fill(ds"tbl_Students")

 
           cur CType(BindingContext(ds.Tables("tbl_Students")), CurrencyManager)
 
         

            TextBox1
.DataBindings.Clear()
 
           TextBox3.DataBindings.Clear()
 
           TextBox2.DataBindings.Clear()

 
           TextBox1.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Name")
 
           TextBox3.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Age")
 
           TextBox2.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Address")

 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try 

الوصول إلى آخر سجل في قاعدة البيانات :
PHP كود :
cur.Position cur.Count 

أتمنى لك التوفيق

المثال 3 : BindingManagerBase
المرفق بعد التعديل :

الأكواد :
قم بالإعلان عن المتغيرات التالية :
PHP كود :
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\data.accdb")
 
   Dim cmd As OleDbCommand
    Dim da 
As OleDbDataAdapter
    Dim ds 
As DataSet
    Dim bmb 
As BindingManagerBase
    Dim sqlstr 
As String 

قم بتحميل البيانات من قاعدة البيانات وإظهارها في مربعات النصوص :
PHP كود :
Try
 
           con.Open()
 
           sqlstr "SELECT * From tbl_Students"
 
           cmd = New OleDbCommand(sqlstrcon)
 
           da = New OleDbDataAdapter(cmd)
 
           ds = New DataSet
            ds
.Clear()
 
           da.Fill(ds"tbl_Students")

 
           bmb CType(BindingContext(ds.Tables("tbl_Students")), BindingManagerBase)
 
         

            TextBox1
.DataBindings.Clear()
 
           TextBox3.DataBindings.Clear()
 
           TextBox2.DataBindings.Clear()

 
           TextBox1.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Name")
 
           TextBox3.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Age")
 
           TextBox2.DataBindings.Add("text"ds.Tables("tbl_Students"), "std_Address")

 
           con.Close()
 
       Catch ex As Exception
            If con
.State ConnectionState.Open Then con.Close()
 
           MsgBox(ex.Message)
 
       End Try 

للوصول إلى السجل الأخير في قاعدة البيانات :
PHP كود :
bmb.Position bmb.Count 

أتمنى لك التوفيق

شكرا جزيلااااااااااااااااااااااااااااااااااااااااااااا
هذا هو المطلوب اخي الكريم    

تسلم يا غالي
Smile Smile Smile Smile Smile Smile
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة: khodor1985


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 4 67 منذ 11 ساعة مضت
آخر رد: ali.alfoly
Photo جدول حصص مدرسة سيد درويش 0 21 اليوم, 12:01 AM
آخر رد: سيد درويش
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 36 أمس, 07:07 PM
آخر رد: ابراهيم النعيمي
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 188 أمس, 04:47 PM
آخر رد: صبري زينوبي
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 1 58 أمس, 03:46 PM
آخر رد: أبوبكر سويدان
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 65 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  ازاى يبقى الصفوف فى الداتا جريد فيو مترتبة زى اللى فى الداتا بيز اكسس بالظبط araxis 2 64 01-12-16, 07:04 AM
آخر رد: araxis
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 95 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] مشاركة برنامج متصل بقاعدة بيانات sql على شبكه محلية mohammedbassim 3 79 24-11-16, 11:40 PM
آخر رد: mohammedbassim
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 117 23-11-16, 05:21 PM
آخر رد: hglogtd

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


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