[aljzazy]

كود :

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