ユーザーの選択に基づいてメタデータを取得しようとしています。ADODB 名前空間を使用して、データベースへの接続と、データベースからデータを取得するためのレコードセットを提供しています。接続をセットアップしてテストしましたが、これは正常に機能しますが、データの取得は機能していません。
主なセグメントは次のとおりです。
con.Open()
cat.ActiveConnection = con
Select Case chk.Tag
Case "Yes"
For Each modMainFunctions.tbl In cat.Tables
If tbl.Type = "TABLE" Then
frmMain.lstTables.Items.Add(tbl.Name)
End If
Next
End Select
基本的に、特定のチェックボックスが選択されているかどうかを確認しています。「はい」の場合は、提供されたデータベースからデータベース テーブルを取得しようとしています。ただし、コンパイラは FOR ループに到達せず、私は理由が理解できません...
modMainfunctions は、プログラムの主な関数が保存されているモジュールです。その中で、必要なすべての変数を宣言します。
Dim dbname As String = ""
Dim dblocation As String = Application.StartupPath
Dim con As New ADODB.Connection
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
Dim col As ADOX.Column
Dim view As ADOX.View
Dim key As ADOX.Key
Dim index As New ADOX.Index
誰が私が間違っているのかを見ることができますか? データベースに関するメタデータを取得したい (「... に接続する必要がある」などと答えないでください。これを処理するサブルーチンが既にあり、正常に動作しているとは思えません。接続の問題)