شباب
عندى كلاس كما بالشكل التالى
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))
وشكرا جزيلا
للاسف اخ Taha Okla هذا الكود لم يحل المشكلة
ويلا يقراء session.Login(CKU.CKU_USER, Encoding.UTF8.GetBytes(Config_class.token_pin))
كود :
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
الاخ 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"
على فرض أنه لديك في قاعدة البيانات :
- جدول اسمه (
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))
عندك كود الابديت استدعيه وسيتم تحديث بيانات الكلاس لانها هي متغيرات تاخذ قيمتها من الجدول
الف شكر للرجالة المحترمة
كود الاخ Taha Okla حقق المطلوب الف شكر