30-12-21, 02:55 PM
السلام عليكم ورحمة الله
ارجو مساعدتي في معرفة الكود للاتصال السيرفر ويكون خارج المنظومة
مثلا
Sub server(ByVal str As String)
con = New SqlConnection("Data Source=" & str & ";Database=Master;integrated security=SSPI;")
con.Open()
cmd = New SqlCommand("select * from sysservers where srvproduct='SQL Server'", con)
dread = cmd.ExecuteReader
While dread.Read
cmbserver.Items.Add(dread(2))
End While
dread.Close()
End Sub
form1
server("DESKTOP-QRSLB4V\SQL_2019_R2")
end sub
الخطا
con = New SqlConnection(File.ReadAllText("D:ConectionString"))
ارجو مساعدتي في معرفة الكود للاتصال السيرفر ويكون خارج المنظومة
مثلا
Sub server(ByVal str As String)
con = New SqlConnection("Data Source=" & str & ";Database=Master;integrated security=SSPI;")
con.Open()
cmd = New SqlCommand("select * from sysservers where srvproduct='SQL Server'", con)
dread = cmd.ExecuteReader
While dread.Read
cmbserver.Items.Add(dread(2))
End While
dread.Close()
End Sub
form1
server("DESKTOP-QRSLB4V\SQL_2019_R2")
end sub
الخطا
con = New SqlConnection(File.ReadAllText("D:ConectionString"))