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

質問編集履歴

1

詳細追加

2020/03/13 06:33

投稿

yusuke.wanibe
yusuke.wanibe

スコア9

title CHANGED
File without changes
body CHANGED
@@ -12,4 +12,50 @@
12
12
  mdbの中身をutf-8に変更して使用したいのですが、方法がわかりません。
13
13
  Access2013が使用できる環境ですが、Accessをほとんど触ったことが無く、操作方法がわかりません。
14
14
 
15
- お忙しいところ申し訳ないのですが、ご教授いただけると助かります。
15
+ お忙しいところ申し訳ないのですが、ご教授いただけると助かります。
16
+
17
+
18
+
19
+ 追記
20
+ 制作しているのは企業の社員向け情報ページ(イントラネット)です。
21
+
22
+ classic ASPで動いています。ASP自体ほとんど経験が無く、細かいことがわかりません。
23
+ 恐らく、下記の部分がデータベースからデータを取得している箇所でないかと思っているのですが、、、
24
+
25
+ お手間かけますが、よろしくお願いします。
26
+ ```asp
27
+ <%
28
+
29
+ Function Get****(cd1, cd2)
30
+
31
+ Dim ****(),****(),****(),****(),****(),****(),****()~
32
+ ReDim ****(100),****(100),****(100),****(100),****(100),****(100)~
33
+ SQL = "SELECT * FROM MASTER_**** WHERE **** = '" & cd1 & "'"
34
+ If Len(cd2) > 0 Then
35
+ SQL = SQL & " AND **** = '" & cd2 & "'"
36
+ End If
37
+ SQL = SQL & " ORDER BY **** DESC,**** DESC"
38
+
39
+ Set rs = Server.CreateObject("ADODB.Recordset")
40
+ rs.Open SQL, objCon, ****
41
+ i = 0
42
+ Do Until rs.EOF
43
+ ****(i) = rs("****")
44
+ ****(i) = ****(rs("****"))
45
+ ****(i) = rs("****")
46
+ ~
47
+
48
+ rs.MoveNext
49
+ i = i + 1
50
+ Loop
51
+
52
+ rs.Close
53
+ Set rs = Nothing
54
+
55
+ ReDim Preserve ****(i),****(i),****(i),****(i),****(i)~
56
+
57
+ **** = ****(cd1,cd2)
58
+ **** = ****(cd1,kiroku(0)) & ****(cd1)
59
+ %>
60
+
61
+ ```