تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] جلب أقل رقم في الخليه
#1
السلام عليكم ورحمه الله وبركاته عندي جدول في قاعدة البيانات اكسس وفيه ثلاث خلايا فيهم ارقام مختلفه عاوز كود يقارن بين الخلايا الثلاثه ويجلب أقل رقم فيهم واخر لجلب اعلي رقم فيهم وmin وmax وavg وشكرا لحضراتكم
الرد
تم الشكر بواسطة:
#2
السلام عليكم هل يوجد حل
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله و بركاته
هل تريد البحث في القاعدة ام في شبيكة البيانات اللي هي DataGridView؟
وياليت لو تصور الفورم لانه قد يقصر الطريق نحو الايضاح.
الرد
تم الشكر بواسطة:
#4
ممكن تشرحلي الطريقتين
هو الكود انا لسه مطبقتهوش ولكن انا أريده لفعل اظر ما
الرد
تم الشكر بواسطة:
#5
PHP كود :
Public Class Form1
    Dim ax
ay As Integerdr As Boolean
    Dim apath 
As String IO.Path.GetDirectoryName(Application.ExecutablePath)
 
   Dim db As String apath "\db.accdb"
 
   Dim str As String "provider=microsoft.ace.oledb.12.0;data source=" db
    Dim con 
As New OleDb.OleDbConnection(str)
 
   Dim da As New OleDb.OleDbDataAdapter("select * from tb"con)
 
   Dim cm As New OleDb.OleDbCommandBuilder(da)
 
   Dim dt As New DataTable
    Private Sub rep
()
 
       If Top >= Screen.PrimaryScreen.Bounds.Bottom Or Bottom <= 0 Then Top 0
        If Left 
>= Screen.PrimaryScreen.Bounds.Right Or Right <= 0 Then Left 0
    End Sub
    Private Sub gd
(Optional ByVal pos As Integer 0)
 
       dt.Clear()
 
       da.Fill(dt)
 
       dgv.DataSource Nothing
        dgv
.DataSource dt
        dgv
.Columns(0).HeaderText "الرقم"
 
       dgv.Columns(1).HeaderText "الاسم"
 
       dgv.Columns(0).Width 222
        dgv
.Columns(1).Width 222
        BindingContext
(dt).Position pos
    End Sub
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        Me
.Location My.Settings.mloc
        rep
()
 
       gd()
 
   End Sub

    Private Sub Form1_MouseDown
(sender As ObjectAs MouseEventArgsHandles MyBase.MouseDownLabel2.MouseDownLabel1.MouseDown
        If e
.Button MouseButtons.Left Then
            dr 
True
            ax 
MousePosition.Left
            ay 
MousePosition.Top
        End 
If
 
   End Sub

    Private Sub Form1_MouseMove
(sender As ObjectAs MouseEventArgsHandles MyBase.MouseMoveLabel2.MouseMoveLabel1.MouseMove
        If dr Then
            Left 
MousePosition.ax
            Top 
MousePosition.ay
        End 
If
 
   End Sub

    Private Sub Form1_MouseUp
(sender As ObjectAs MouseEventArgsHandles MyBase.MouseUpLabel2.MouseUpLabel1.MouseUp
        dr 
False
    End Sub

    Private Sub btnmin_Click
(sender As ObjectAs EventArgsHandles btnmin.Click
        Me
.WindowState FormWindowState.Minimized
    End Sub

    Private Sub btnsave_Click
(sender As ObjectAs EventArgsHandles btnsave.Click
        Dim row 
As DataRow dt.NewRow
        row
(1) = txtname.Text
        dt
.Rows.Add(row)
 
       da.Update(dt)
 
       Dim p As Integer BindingContext(dt).Position
        gd
(1)
 
   End Sub

    Private Sub btngetmaxvalue_Click
(sender As ObjectAs EventArgsHandles btngetmaxvalue.Click
        If dgv
.Rows.Count 0 Then Exit Sub
        Dim count 
As Integer
        count 
BindingContext(dt).Count
        Dim v 
As Integer
        v 
dt.Rows(count 1).Item(0).ToString
        lbltb
.Text v

        count 
dgv.Rows.Count
        v 
dgv.Rows(count 1).Cells(0).Value
        lbldg
.Text v

    End Sub

    Private Sub Form1_FormClosing
(sender As ObjectAs FormClosingEventArgsHandles Me.FormClosing
        My
.Settings.mloc Me.Location
        My
.Settings.Save()
 
   End Sub

    Private Sub btnclose_Click
(sender As ObjectAs EventArgsHandles btnclose.Click
        Hide
()
 
       Close()
 
   End Sub
End 
Class 
الاكسس 2010 الفيجوال 2022 لو لم يعمل معك اي منهما الكلاس اعلاه هو كل شيء
يبدو اني عكست المطلوب جلبت الاعلى رقم والمطلوب اقل رقم . وحلها بسيط بتبديل الموضع position هذا يصلح للترقيم التلقائي اما ان كان الموضوع يختلف فالافضل تصميم فكرتك الخاصة ليكون التعديل انسب وافضل من اجتهاداتنا الشخصية.


الملفات المرفقة
.zip   MaxMin.zip (الحجم : 902.7 ك ب / التحميلات : 1)
الرد
تم الشكر بواسطة: معاند الحظ , حسن الجلب


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


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