AdoQueryConnection.Connection プロパティ
AdoQueryConnection オブジェクトに対して使用される接続文字列を取得または設定します。
名前空間: Microsoft.Office.InfoPath
アセンブリ: Microsoft.Office.InfoPath (Microsoft.Office.InfoPath.dll)
構文
'宣言
Public MustOverride Property Connection As String
Get
Set
'使用
Dim instance As AdoQueryConnection
Dim value As String
value = instance.Connection
instance.Connection = value
public abstract string Connection { get; set; }
プロパティ値
型: System.String
AdoQueryConnection オブジェクトによって表されるデータ接続に対する接続文字列。
解説
ADOQueryConnection クラスの Connection プロパティは、ActiveX Data Objects/OLEDB 外部データ ソースに接続するために ADO データ接続が使用する接続文字列へのアクセスを提供します。
注意
ADOQueryConnection クラスが動作するには、Microsoft SQL Server および Microsoft Access データベースが必要です。
このメンバーには、現在開いているフォームと同じドメインで実行中のフォーム、またはクロスドメインのアクセス許可が与えられたフォームのみがアクセスできます。
この型またはメンバーには、Microsoft InfoPath Filler または Web ブラウザーで開かれたフォームを実行中のコードからアクセスできます。
例
次の例では、[ボタン] コントロールに対するイベント ハンドラーは、ADOQueryConnection クラスの Connection プロパティを使用して、Employees という名前のセカンダリ データ ソースに対する接続文字列を、メイン データ ソースの ServerName フィールドに入力された値を使用する新しいサーバーを指すように更新します。その後、DataConnection クラスの Execute メソッドを使用して、新しいサーバーに対するデータ接続を再クエリします。
public void ChangeServerName_Clicked(object sender, ClickedEventArgs e)
{
// Get the Employees connection from the
//DataConnections collection.
AdoQueryConnection myAdoQueryConnection =
(AdoQueryConnection)(this.DataConnections["Employees"]);
// Get the new server name from the ServerName field in
// the main data source.
XPathNavigator myNav =
CreateNavigator().SelectSingleNode("/my:myFields/my:ServerName",
NamespaceManager);
string newServer = myNav.InnerXml;
// Build the new connection string.
string connectionString =
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;";
connectionString += "Initial Catalog=SalesDB;Data Source=" +
newServer;
// Set the new connection string.
myAdoQueryConnection.Connection = connectionString;
// Requery the data source.
myAdoQueryConnection.Execute();
}
Public Sub ChangeServerName_Clicked(ByVal sender As Object, _
ByVal e As ClickedEventArgs)
' Get the Employees connection from
' the DataConnections collection.
Dim myAdoQueryConnection As AdoQueryConnection = _
DirectCast(Me.DataConnections("Employees"), AdoQueryConnection)
' Get the new server name from the ServerName field in
' the main data source.
Dim myNav As XPathNavigator = _
CreateNavigator().SelectSingleNode("/my:myFields/my:ServerName", _
NamespaceManager)
Dim newServer As String = myNav.InnerXml
' Build the new connection string.
Dim connectionString As String = _
"Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;"
connectionString = connectionString & _
"Initial Catalog=SalesDB;Data Source=" & newServer
' Requery the data source.
myAdoQueryConnection.Execute()
End Sub