|
分類:[.NET 全般]
VB2010の初心者です。よろしくお願い致します。
【ソフトの概要】照会のあったPASSワードをACCESSのmdbファイルに登録されたPASSワード一覧と照合する手順を構築しようとしています。
下記に詳細を載せますのでERROR原因をご教授いただければ助かります。よろしくお願い致します。
【プログラム詳細】
１．「コントロール」： FORM1 に Button1 を置いている
２．mdbファイルの中身は
「フィールド順です」
ID ：自動で設定
オペレータ名 ：全角漢字１０文字
ランク ：半角文字列２文字
パスワード ：半角２０文字
補足 ：全角文字列 ５０文字
PASSは未設定です。
３．プログラム
Imports System.Data.OleDb
Public Class Form1
Private Shared Property Adodc1 As Object
Private Property adCmdText As Object
Private Property DataGrid1 As Object
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnn As New OleDb.OleDbConnection
Dim rec As New ADODB.Recordset
' MDB を定義する
Dim dbNAME As String
Dim dbPath As String
Dim tbl As String
Dim strFldnm As String
Dim strSearch As String
' 変数の定義
dbNAME = "db1.mdb" 'MDB 名を入力 ；*****を変更します
'dbPath =" App.Path & "\" 'EX) VB のアプリケーションと同一フォルダを指定
dbPath = "C:\Users\hiroki\Documents\Visual Studio 2010\Projects\VB_SQLでMDBに接続\VB_SQLでMDBに接続\bin\Debug" & " \ """
tbl = "db1" 'データベーステーブル ；*****を変更します
strFldnm = "ID" '抽出対象フィールド名 ；*****を変更します
strSearch = "1" '抽出文字 ；*****を変更します
'???????????????????????????????????????????????????????????????????????????????????????この部分でERRORが出る
' ADOデータコントロールの接続を確立する
Form1.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & dbPath & dbNAME & ";" & _
"Persist Security Info=False"
'???????????????????????????????????????????????????????????????????????????????????????
' SQLステートメントをADOデータコントロールのレコードソースに指定する
Adodc1.CommandType = adCmdText()
Adodc1.RecordSource = "select * from " & tbl _
& " where " & strFldnm & " like '" & strSearch & "%'"
' レコードセットを更新する
Adodc1.Refresh()
' ADO のレコードソースをデータグリッドコントロールに連結する
DataGrid1.DataSource = Adodc1.Recordset
End Sub
End Class
４．ERRORメッセージの内容は下記の通り
NullReferenceExceptionはハンドルされませんでした。
オブジェクト変数またはwithブロック変数が設定されていません。
と表示されます。メッセージの解読力が乏しく申し訳ありません
是非対策方法についてお教え願います。
以上
|