منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمة الله
الرجاء المساعده فى حل مشكلة الكود

PHP كود :

Imports System.Data.OleDb
Module Connection_Load

    Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Halim\Nore Chem\Nore Chem\bin\Debug\Data\Norechem.ACCDB")
    Public UsersDT As New DataTable
    Public UsersDA As New OleDbDataAdapter
    Public mynewIDUsers As Integer
    ' Load All Columns Of ! Table in Access 2007-2010-2013-2016
    Public Sub Load_Users()
        UsersDT.Clear()
        UsersDA = New OleDbDataAdapter("select * from Users", con)
        UsersDA.Fill(UsersDT)
        End Sub
        ' Dim code generation for access 2007-2010-2013-2016 by << InDirect Connectior>>
    Public Sub code_Users()
        Dim dt As New DataTable
        Dim da As OleDbDataAdapter("SELECT MAX(UserID) FROM Users", con)
        (da.Fill(dt
        If IsDBNull(dt(0)(0)) = True Then
            mynewIDUsers = 1
        Else
           (mynewIDUsers = dt(0)(0
        End If
    End Sub

End Module 

هذا التصحيح للجزء code_Users

كود :

Public Sub code_Users()

    Dim cm As New OleDbCommand("SELECT MAX(UserID) FROM Users", con)

    If con.State <> ConnectionState.Open Then con.Open()

    Dim ret = cm.ExecuteScalar

    con.Close()

    If ret.GetType Is GetType(System.DBNull) Then ret = 1

    mynewIDUsers = ret

End Sub

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Halim2008

wale90