teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

再投稿の部分にコードを載せています。フォーム上のコンボボックスに表示させたいです。

2018/09/14 07:03

投稿

rikaruto
rikaruto

スコア16

title CHANGED
File without changes
body CHANGED
@@ -41,4 +41,49 @@
41
41
 
42
42
  End Sub
43
43
 
44
+ ```
45
+ 再投稿↓
46
+
47
+ ```VBA
48
+ Private Sub ComboBox1_Change()
49
+ Dim db As New ADODB.Connection
50
+ Dim rs As New ADODB.Recordset
51
+ Dim strSQL As String
52
+ Dim CON As String
53
+
54
+
55
+
56
+ 'DB??????i?[
57
+ CON = "Provider = SQLOLEDB;"
58
+ CON = CON & "DATABASE=****;"
59
+ CON = CON & "UID=*****;"
60
+ CON = CON & "PWD=*****;"
61
+
62
+
63
+
64
+
65
+ '1.SQL????o?????V?[?g????
66
+
67
+ strSQL = "select TANTOSHA_ID from M_TANTOSHA"
68
+
69
+ Set rs = New ADODB.Recordset
70
+
71
+ rs.Open strSQL, CON
72
+
73
+ rs.MoveFirst
74
+
75
+ Dim i As Long, hairetsu As Variant
76
+ hairetsu = rs.GetRows
77
+
78
+ rs.Close
79
+
80
+ 'このような感じで試していました。
81
+ '1行だけ表示されたり、何も表示されなかったりします。
82
+ ComboBox1.AddItem
83
+ ComboBox1.List(0, 1) = hairetsu(0, 1)
84
+
85
+ Set rs = Nothing
86
+ Exit Sub
87
+
88
+ End Sub
44
89
  ```