回答編集履歴
1
内容の更新
test
CHANGED
|
@@ -144,29 +144,7 @@
|
|
|
144
144
|
|
|
145
145
|
'データベース接続
|
|
146
146
|
|
|
147
|
-
|
|
147
|
+
|
|
148
|
-
|
|
149
|
-
Dim dataBase As String = "***"
|
|
150
|
-
|
|
151
|
-
Dim userid As String = "***"
|
|
152
|
-
|
|
153
|
-
Dim pwd As String = "***"
|
|
154
|
-
|
|
155
|
-
|
|
156
|
-
|
|
157
|
-
Using conn As New SqlClient.SqlConnection()
|
|
158
|
-
|
|
159
|
-
|
|
160
|
-
|
|
161
|
-
conn.ConnectionString =
|
|
162
|
-
|
|
163
|
-
" Data Source = " & serverName &
|
|
164
|
-
|
|
165
|
-
";Initial Catalog = " & dataBase &
|
|
166
|
-
|
|
167
|
-
";User ID = " & userid &
|
|
168
|
-
|
|
169
|
-
";Password =" & pwd
|
|
170
148
|
|
|
171
149
|
|
|
172
150
|
|