[VB.NET] تحديث بيانات فى كلاس من جدول سيكوال

كود :

Imports System.Data.SqlClient



Public Class Config_class

    Public Shared token_pin As String = "57892522"

    Public Shared DllLibPath As String = "eps2003"

    Public Shared token_type As String = "Egypt Trust Sealing CA"

    Public Shared BaseUrl As String = "https://api.preprod"

    Public Shared tokenurl As String = "https://id.preprod.eta"



    Public Shared Sub UpdateConfigFromDatabase()

        Dim connectionString As String = "Your_Connection_String"

        Dim query As String = "SELECT * FROM Your_Config_Table"

        

        Using connection As New SqlConnection(connectionString)

            Using command As New SqlCommand(query, connection)

                connection.Open()

                Dim reader As SqlDataReader = command.ExecuteReader()

                If reader.Read() Then

                    token_pin = reader("token_pin").ToString()

                    DllLibPath = reader("DllLibPath").ToString()

                    token_type = reader("token_type").ToString()

                    BaseUrl = reader("BaseUrl").ToString()

                    tokenurl = reader("tokenurl").ToString()

                End If

            End Using

        End Using

    End Sub

End Class

PHP كود :

Imports System.Data.SqlClient

Public Class Config_class

    Public Property token_pin As String
    Public Property DllLibPath As String
    Public Property token_type As String
    Public Property BaseUrl As String
    Public Property tokenurl As String

    Public Sub New()
        token_pin = GetValue("token_pin")         '' "57892522"
        DllLibPath = GetValue("DllLibPath")       '' "eps2003"
        token_type = GetValue("token_type")       '' "Egypt Trust Sealing CA"
        BaseUrl = GetValue("BaseUrl")             '' "https://api.preprod"
        tokenurl = GetValue("tokenurl")           '' "https://id.preprod.eta"
    End Sub

    Protected Function GetValue(pFieldName As String) As String
        Dim dt As New DataTable
        dt = ExReader("Select * From [TokenInfo]")  ''   جدول معلومات التوكن
        Return dt.Rows(0)(pFieldName).ToString()
    End Function

    Protected Function ExReader(cmdText As String, ParamArray pParam As SqlParameter()) As DataTable
        '' جملة الاتصال بقاعدة البيانات (ضع مكانها جملة الاتصال الموجودة في مشروعك)ا  
        Dim strConn = "جملة الاتصال بقاعدة البيانات"

        Using pConn As New SqlConnection(strConn)
            pConn.Open()

            Dim cmd As SqlCommand = New SqlCommand(cmdText, pConn)
            For Each p In pParam
                cmd.Parameters.Add(p)
            Next

            Dim dt As New DataTable
            dt.Load(cmd.ExecuteReader())

            Return dt
        End Using
    End Function

End Class