Dim Icolna As String = ""
Dim scolna As String = ""
If wk_msg = "" Then
Try
strSQL = "SELECT column_name FROM information_schema.columns " _
& " WHERE table_name = 'KK_sokata_HA'" _
& " ORDER BY table_name,ordinal_position"
cmSQL = New SqlCommand(strSQL, cnSQLS) 'コマンド
cmSQL.Transaction = trSQL
drSQL = cmSQL.ExecuteReader 'データリーダの使用
Do While drSQL.Read
If Icolna <> "" Then
Icolna = Icolna & ","
End If
Icolna = Icolna & drSQL("column_name").ToString
If scolna <> "" Then
scolna = scolna & ","
End If
If drSQL("column_name").ToString.ToUpper = "KTNO" Then
scolna = scolna & "KTNO = " & wk_KTNO
Else
scolna = scolna & drSQL("column_name").ToString
End If
Loop
drSQL.Close()
Catch ex As SqlException
wk_msg = "SELECT:KK_sokata_HA" & ex.Message
Catch ex As Exception
wk_msg = "SELECT:KK_sokata_HA" & ex.Message
End Try
End If
If wk_msg = "" Then
Try
strSQL = " INSERT INTO KK_sokata_HA " _
& " (" & Icolna & " )" _
& " SELECT " & scolna _
& " FROM KK_sokata " _
& " WHERE KYM = " & wk_KYM & " And HAN = " & wk_han & " And KBN = 0"
cmSQL = New SqlCommand(strSQL, cnSQLS)
cmSQL.Transaction = trSQL
ret = cmSQL.ExecuteNonQuery
If ret = -1 Then
wk_msg = "DELETEDB:KK_sokata_HAエラー"
End If
Catch ex As SqlException
wk_msg = "INSERTB:KK_sokata_HA" & ex.Message
Catch ex As Exception
wk_msg = "INSERTB:KK_sokata_HA" & ex.Message
End Try
End If