تقييم الموضوع :
  • 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 ك ب / التحميلات : 27)
 

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


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

الأكواد :
قم باستدعاء المكتبات التالية:
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 ك ب / التحميلات : 53)

الأكواد :
قم بالإعلان عن المتغيرات التالية :
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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 141 22-05-17, 04:43 PM
آخر رد: Amir_alzubidy
  البحث في قاعدة بيانات اكسس hatem555 6 135 22-05-17, 02:53 AM
آخر رد: hatem555
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 74 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 60 19-05-17, 12:45 PM
آخر رد: Adrees
  كيف تكون جملة insert في جدول بشرط وفي خلية واحدة فقط ahmedfa71 0 39 16-05-17, 07:05 PM
آخر رد: ahmedfa71
  ما الخطأ في حفظ جدول إلى ملف نصي ahmedfa71 14 289 15-05-17, 05:47 PM
آخر رد: العواد الصغير
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 131 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [VB.NET] عايز اعرف ازاى اعمل برنامج بقاعدة بيانات xaml MOSTAFA.KAMEL 3 121 13-05-17, 11:01 PM
آخر رد: العواد الصغير
  نسخ بيانات جدول الى جدول كرم ابوهشام 1 50 13-05-17, 07:32 PM
آخر رد: Amir_alzubidy
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 299 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة

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


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