「会社」と「プロジェクト」という名前の2つの列があります
特定の会社のすべてのプロジェクトを選択し、結果の製品リストを ComboBox に入力したいと考えています。
これを実現するには ADODB が最適な方法だと思います。接続、コマンド オブジェクトなどの作成方法がわかりません。これを実現するための詳細なコードを提供してください。
「会社」と「プロジェクト」という名前の2つの列があります
特定の会社のすべてのプロジェクトを選択し、結果の製品リストを ComboBox に入力したいと考えています。
これを実現するには ADODB が最適な方法だと思います。接続、コマンド オブジェクトなどの作成方法がわかりません。これを実現するための詳細なコードを提供してください。
私は次のコードを使用してそれを行いました!
Dim cn
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.FullName & "; Extended Properties=Excel 8.0"
.Open
End With
Dim ObjRes
Set ObjRes = cn.Execute("Select * from [SourceData$]")
Do Until ObjRes.EOF
cmbCompany.AddItem ObjRes.Fields.Item("Company").Value
cmbProject.AddItem ObjRes.Fields.Item("Project").Value
ObjRes.MoveNext
Loop
Set ObjRes = Nothing