[asdfar1977]

شباب
عندى كلاس كما بالشكل التالى
 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"
وعندى جدول سيكوال مخزن به المعلومات السابقة وهى token_pin و DllLibPath وtoken_type و BaseUrl و tokenurl 

عايز الكلاس يقراء من الجدول بمعنى كلما اقوم بتغيير مدخلات الجدول يتم تغيرها فى الكلاس ""
بمعنى اوضح بالنسبة لعمود token_pin فانه يقراء فى الكلاس كما ترون "57892522" عايز عندما اقوم بتغيره فى الجدول السيكوال الى مثلا  "11122233" يقوم بتحديث نفسه فى الكلاس الى الداتا الجديده
وكل ذلك عشان عندى فورم اخر يقراء من الكلاس وهو  session.Login(CKU.CKU_USER, Encoding.UTF8.GetBytes(Config_class.token_pin))

وشكرا جزيلا

[asdfar1977]

للاسف اخ Taha Okla هذا الكود لم يحل المشكلة
ويلا يقراء session.Login(CKU.CKU_USER, Encoding.UTF8.GetBytes(Config_class.token_pin))

[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

[asdfar1977]

الاخ aljzazy
انا مش فاهم الكود الذى قمت بارساله
انا عايز كل لما اغير البيانات فى جدول السيكوال يتم تغير البيانات التالية فى الكلاس
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"

[Taha Okla]

على فرض أنه لديك في قاعدة البيانات :
- جدول اسمه (TokenInfo)   
- وفي هذا الجدول  خمس أعمدة وهي : token_pin ;  DllLibPath ; token_type ; BaseUrl ;tokenurl
 - وفيه سطر وحيد فقط مخزنة فيها المعلومات الافتراضية (والتي تستيطع تعديلها فيما بعد وكما تريد).

يصبح الكلاس الذي تريده هو : 
(لا تنسى إضافة كود الاتصال بقاعدة البيانات في المكان المشار إليه في الكود)

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 


وتكون جملة استرداد البيانات هي :

PHP كود :

Dim cCfg1 As New Config_class
session.Login(CKU.CKU_USER, Encoding.UTF8.GetBytes(cCfg1.token_pin)) 


[aljzazy]

عندك كود الابديت استدعيه وسيتم تحديث بيانات الكلاس لانها هي متغيرات تاخذ قيمتها من الجدول

[asdfar1977]

الف شكر للرجالة المحترمة
كود الاخ Taha Okla حقق المطلوب الف شكر