質問編集履歴
2
test
CHANGED
|
File without changes
|
test
CHANGED
|
File without changes
|
1
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -13,49 +13,3 @@
|
|
|
13
13
|
|
|
14
14
|
|
|
15
15
|
[sys].[parameters]というのは、単純に[sys].[parameters]というテーブルではなく、何かのテーブルを[sys].[parameters]というものに定義したものなのでしょうか。
|
|
16
|
-
|
|
17
|
-
|
|
18
|
-
|
|
19
|
-
ソースコードは一部ですが下記のようになっております。
|
|
20
|
-
|
|
21
|
-
（都合上、すべては載せられません。）
|
|
22
|
-
|
|
23
|
-
Public Function Gisouhin(ByVal paramvalue As ArrayList) As Boolean
|
|
24
|
-
|
|
25
|
-
Dim sql As String = String.Empty
|
|
26
|
-
|
|
27
|
-
Dim targetName As String = My.Settings.Gisohinprocedure
|
|
28
|
-
|
|
29
|
-
Dim SqlCon As SqlConnection
|
|
30
|
-
|
|
31
|
-
Dim SqlCmd As SqlCommand
|
|
32
|
-
|
|
33
|
-
Dim SqlAdp As SqlDataAdapter
|
|
34
|
-
|
|
35
|
-
|
|
36
|
-
|
|
37
|
-
Try
|
|
38
|
-
|
|
39
|
-
SqlCon = New SqlConnection(My.Settings.KyoutuConStr)
|
|
40
|
-
|
|
41
|
-
sql = "SELECT "
|
|
42
|
-
|
|
43
|
-
sql += vbNewLine & "[parameter_id]"
|
|
44
|
-
|
|
45
|
-
sql += vbNewLine & ",type_name([system_type_id]) As type"
|
|
46
|
-
|
|
47
|
-
sql += vbNewLine & ",[max_length]"
|
|
48
|
-
|
|
49
|
-
sql += vbNewLine & "FROM [sys].[parameters]"← これの正体の調べ方がわかりません。
|
|
50
|
-
|
|
51
|
-
sql += vbNewLine & String.Format("where object_id = object_id('{0}')", targetName)
|
|
52
|
-
|
|
53
|
-
|
|
54
|
-
|
|
55
|
-
SqlCmd = SqlCon.CreateCommand
|
|
56
|
-
|
|
57
|
-
SqlCmd.CommandType = CommandType.Text
|
|
58
|
-
|
|
59
|
-
SqlCmd.CommandTimeout = 0
|
|
60
|
-
|
|
61
|
-
SqlCmd.CommandText = sql
|