会社で簡単なシステムを作ることになりましたが、全然プログラムがわからない初心者です。どうかご指導宜しくお願いいたします。
VB6.0のフォームにコンボボックスを作り、MSDEサーバの『部門テー
ブル内の部門名』を表示したいです。データベースにアクセスするとこ
ろまではできましたが、配列で取得する方法がわかりません。どのよう
にしたらよろしいでしょうか。なんとなくで書いてみたのが下記内容で
す。ご指導宜しくお願いいたします。
Private Sub Form_Load()
Dim str_SQL As String
Dim vntArray As Variant
Dim 件数 As Long
strConn="Provider=SQLOLEDB;SERVER=k;Database=L;UID=sa;PWD=s"
Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = strConn
objConn.Open
If objConn.State <> 1 Then
'接続失敗
End If
'SQL文の作成
str_SQL = "SELECT [部門コード], 部門名"
str_SQL = str_SQL & " FROM 部門"
'//SQLの実行
Set vntArray = objConn.Execute(str_SQL)
↓ここらへんから特にわかりません。。。
????????????????????????????????????????????????????????????
Combo_部門名.AddItem vntArray010(1)
????????????????????????????????????????????????????????????
End Sub
