تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة حول تحيديث بينات جدول من جدول آخر kassa djeffal 1 19 منذ 1 ساعه مضت
آخر رد: ahmed.nabil
  الحصول على مجموع الارقام Mohamed20 3 66 15-01-17, 11:48 PM
آخر رد: Mohamed20
  الاتصال بقاعدة بيانات SQL SEVER موجودة بجهاز اخر كفاح 5 133 15-01-17, 10:46 PM
آخر رد: كفاح
  ياشباب ارجو المساعده رنامج لا جلب اي قاعده بيانات في الجهاز اكسس او اكسل وعرضها ammaraliali 5 106 15-01-17, 06:11 PM
آخر رد: khodor1985
  [VB.NET] سوال مشكلة في اخذ نسخة احتياطية من قاعدة بيانات SQL كفاح 4 94 14-01-17, 08:19 PM
آخر رد: كفاح
  استفسار عن الجداول المتعددة في قاعدة البيانات اكسس أبووسم 4 117 14-01-17, 12:36 PM
آخر رد: أبووسم
  طلب طريقه عمل الصلاحيات للمستخدمين بقاعده بيانات sql مبرمج أوتار 23 7,053 10-01-17, 01:58 PM
آخر رد: solbi
  الحصول على الرقم التسلسلي للوحة الأم bidaya 4 103 10-01-17, 01:41 AM
آخر رد: bidaya
  منع تسجيل بيانات علي جدول الحركات بقاعدة بيانات sql خلال فترة زمنية (اقفال الفترة ا) السيد الجوهري 4 151 09-01-17, 07:22 PM
آخر رد: السيد الجوهري
  تغيير قاعدة البيانات الى .bak صبري زينوبي 5 133 01-01-17, 02:33 PM
آخر رد: صبري زينوبي

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


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