كيف اطلع اكبر رقم من السجلات

إستخدم جملة SQL

select max(myfield) from my table

دالة max سوف تعيد اكبر قيمة في الحقل الذى تمرره لها في جميع السجلات او حسب سجلات معينة ان ارفقتها بشرط where

الف الف شكر :)

للاسف ما ضبطة ....تطلع لي رسالة خطاء ممكن تعطيني مثال وتنزله في المرفقات باكون شاكر لك

للأسف لا يوجد لدي فيجوال بيسيك الآن، سوف اقول بتنزليها لاحقا

لكن هل تستخدم ADO or DAO?

استخدم الــ ADO

اخي لو تحتاج عدد السجلات استخدم الجملة

dim ss integer
ss = rs.recordcount

هذا يعطيك عدد السجلات

ويمكنك الحصول على أكبر قيمة رقمية مخزنة بحقل معين كما أوضح الأخ محمد نسمان باستخدام جملة max كالتالي :

dim ss as integer
rs.open "select max(my field) from my tabel"
ss = rs.field(0)

جرب الكود التالي

  Dim cmd As New ADODB.Command
  Dim cn As New ADODB.Connection
  cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDb.mdb"
  cn.Open
  cmd.ActiveConnection = cn
  cmd.CommandText = "Select max(myfield) as MyMax from myTable"
  Dim rs As ADODB.Recordset
  Set rs = cmd.Execute
  msgbox rs!MyMax

قد يحتوي اخطاء لاني كتبته من غير ما اقوم بتنفيذه لعدم توفر فيجوال بيسيك الان

أخي ناصر سبقني :)

على العموم لديك الان الكود وان ظهرت لديك مشكلة الرجاء عرض الكود الخاص بك ليتسنى لنا معرفة الخطأ

هذا الكود اللي استخدمة:

هذا في الموديل

Private Sub Main()
Set D = New ADODB.Connection
D.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=simsim; Data Source=" & App.Path & "\db.mdb"

MDIMain.Show
End Sub

وفي زر الفورم

Dim T As New ADODB.Recordset
Dim SQL As String

    SQL = "SELECT max( PieceNum) FROM WorkerSatarman "
    T.Open SQL, D, adOpenDynamic, adLockOptimistic
    Label12.Caption = T("PieceNum")

ولمن اشيل الــ MAX يعني يصير الكود مثل هذا:

 SQL = "SELECT  PieceNum FROM WorkerSatarman "

يطلع الرقم مضبوط بس يطلع اول رقم مخزن

على فكره ارفقت صورة الخطاء

وسامحوني لاني اثقلت عليكم :)

الخطأ الذي يظهر لانك تستدعي إسم حقل غير موجود، دالة ماكس لا ترجع اسم الحقل الذى مررتو لها

إستخدام

Label12.Caption = T.fields(0)

مثل ما ذكر اخي ناصر

او

غير الكود الى

  SQL = "SELECT max( PieceNum) as MyMax FROM WorkerSatarman "
   T.Open SQL, D, adOpenDynamic, adLockOptimistic
   Label12.Caption = T("MyMax")

مشكوووووووووووووووووووووووووووووووووووووووووووووووووووووور الف الف شكر لكم واخيرا طلع الرقم