入力したTextとAccessのDBとの照合 (ID:126358)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim mySQL, MSG As String mySQL = "select IDNo from ID where IDNo = '" & txtID.Text & "'" If txtID.Text = mySQL Then frmMSTS0010.Show Unload Me Else MSG = MsgBox("IDが正しくありません") End If いやそれだとレコードセットをopenしてないし・・・ ADO VB6とかで検索したらいろいろサンプル見つかると思う。