[مهموم]

السلام عليكم ورحمة الله

أخي عادل

على أسال أن كائن الإتصال اسمه conn كما ذكرت

قم باستدعاء هذا الإجراء مع ارسال اسم السيرفر الجديد له

PHP كود :

Public Sub SqlServerChangeName(ByVal newSqlServerName As String)
    Dim cs As New SqlClient.SqlConnectionStringBuilder(conn.ConnectionString)
    cs.DataSource = newSqlServerName
    conn.ConnectionString = cs.ConnectionString
End Sub