Microsoft Access 掲示板

Microsoft Access 掲示板

SELECT TOPでデータの有無を確認する / 2

4 コメント
views
4 フォロー
2
hatena 2019/06/23 (日) 09:49:41 修正

外部データベースのテーブルが対象ですね。

ADODBに参照設定をしておいて、

　Dim strFileName As String
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim strSQL As String

  strFileName = "データ.accdb" 'データベースのファイル名
　Set cn = New ADODB.Connection
  Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\tasukaru\Desktop\通販\出品データ\" & strFileName & ";" '
　Set rs = New ADODB.Recordset
　strSQL = "SELECT 1 * FROM マスター where JAN = '1000000151749'"
 
　rs.Open strSQL , cn
  If rs.EOF Then
      MsgBox "該当データ無し"
  Else
      MsgBox "該当データ有り"
  End If

　rs.Close: Set rs = Nothing
　cn.Close: Set cn = Nothing
通報 ...