En C#
protected OleDbConnection conexion =
new OleDbConnection ("Provider=SQLOLEDB.1;Persist Security Info=False; User ID=sa; Password=; Initial Catalog=CSharpTest;" + buscaServidor());
public static System.String buscaServidor(){
SqlDataSourceEnumerator Descubridor_de_sql = SqlDataSourceEnumerator.Instance;
DataTable sqls = Descubridor_de_sql.GetDataSources();
foreach (DataRow servSQL in sqls.Rows)
{
String servString = "Data Source=" + servSQL["ServerName"]+"\\SQLEXPRESS";
return servString;
}
return "Error";
}
En VB
Protected Conexion _
As New OleDb.OleDbConnection("Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa; Password=;Initial Catalog=VBTest;" + buscaServidor())
Public Function buscaServidor() As String
Dim Descubridor_de_sql = SqlDataSourceEnumerator.Instance
Dim sqls As DataTable = Descubridor_de_sql.GetDataSources()
For Each servSQL As DataRow In sqls.Rows
Dim servString As String
servString = "Data Source=" + servSQL("ServerName") + "\SQLEXPRESS"
Return servString
Next
Return "Error"
End Function
muy bueno gracias!
ResponderEliminar