[mohamedok]

ارجو المساعدة احتاج كود البحث باعلى قيمة فى ملف اكسس بالvb.net

[سعود]

(12-04-20, 03:10 PM)mohamedok كتب : ارجو المساعدة احتاج كود البحث باعلى قيمة فى ملف اكسس بالvb.net

اذكر اي تفاصيل اخرى لان بهذا السؤال فقط الجواب يكون مختصر مثلا 
select max(number) from table
نفذ الاستعلام باي طريقة لديك.

---

وهذا محتوى الفورم

PHP كود :

Public Class Form1
    Dim str As String = "provider=microsoft.jet.oledb.4.0;data source=" & CurDir() & "\db.mdb"
    Dim con As OleDb.OleDbConnection
    'Dim value As Integer = 0
    Private Function GetValue(ByVal w As String) As Integer
        con = New OleDb.OleDbConnection(str)
        Using cm As New OleDb.OleDbCommand("", con)
            Select Case w
                Case "max"
                    cm.CommandText = "select max(age) from tb"
                Case "min"
                    cm.CommandText = "select min(age) from tb"
            End Select
            If con.State = ConnectionState.Closed Then con.Open()
            Try
                Return cm.ExecuteScalar
            Catch ex As Exception
                Return Nothing
            End Try
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Function
    Private Sub AddValue(ByVal a As Integer)
        con = New OleDb.OleDbConnection(str)
        Using cm As New OleDb.OleDbCommand("", con)
            cm.CommandText = "insert into tb(age) values(@age)"
            cm.Parameters.AddWithValue("@age", a)
            If con.State = ConnectionState.Closed Then con.Open()
            Try
                cm.ExecuteScalar()
            Catch ex As Exception
                If con.State = ConnectionState.Open Then con.Close()
                MsgBox(Err.Description, MsgBoxStyle.Critical, "")
            End Try
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAddValue.Click
        AddValue(Val(TextBox1.Text))
        BtnGetMax.PerformClick()
        BtnGetMin.PerformClick()
        TextBox1.Select()
        TextBox1.Focus()
        TextBox1.Clear()
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        If IsNumeric(TextBox1.Text) = False Then Exit Sub
        BtnAddValue.Enabled = TextBox1.TextLength
    End Sub
    Private Sub BtnGetMax_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetMax.Click
        Lmax.Text = GetValue("max")
    End Sub
    Private Sub BtnGetMin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetMin.Click
        Lmin.Text = GetValue("min")
    End Sub
End Class