質問: Nothing End If ``` 。
回答: データベース接続文字列とそれを取得するためのSQL文を混同していませんか SQL文は実行してはじめて結果になります →なのでADODB.ConnectionのConnectionStringにデータベース接続文字列を取得するためのSQL文を書いても動かない 全体の流れとしては * データベース接続文字列を取得する→今回はAccessのテーブルに入っているんですよね * 取得したデータベース接続文字列を変数strSqlに入れる * strSqlに入っているデータベース接続文字列を元にしてSQLServerに接続する→データベース接続文字列を直書きしたものはうごくんですよね となります とりあえず引っかかっていそうな * データベース接続文字列を取得する * 取得したデータベース接続文字列を変数strSqlに入れる のコードを簡単に書いてみました 多分動くと思います ChargeInfoというテーブルにIDとCOL1という列があるのが前提です ``` Private Sub test_getConnectionString() Dim DB As DAO.Database Dim q1 As Recordset Dim SQLCommand As String 'データベース接続文字列を取得するSQL文 Dim strSql As String '取得したデータベース接続文字列 Set DB = CurrentDb() SQLCommand = "SELECT ID, COL1 FROM ChargeInfo WHERE ID = 1" Set q1 = DB.OpenRecordset(SQLCommand) strSql = q1!COL1 MsgBox (strSql) End Sub ```