C# と VB.NET の質問掲示板

■No30064 (はつね さん) に返信
丁寧にありがとうございます。
一応、先ほど書いたあとの続きも記入しておきます。
  ss = " SELECT distinct 事業所略称 FROM TBL_職制 where 事業所コード > '000' order by 事業所略称 "
    rs.Open ss, dbman.cn(DB00), adOpenKeyset, adLockReadOnly

    Cmbjiname.AddItem ""
    If Not rs.BOF And Not rs.EOF Then
        For i = 0 To rs.RecordCount - 1
            Cmbjiname.AddItem rs(0)
            rs.MoveNext
        Next i
        Cmbjiname.ListIndex = 0
    End If
    rs.Close
    Set rs = Nothing

    formloadflag = False


End Sub
Sub set_grid_data()
    Dim ss1 As String
    Dim ss2 As String
    Dim s1 As String
    Dim i As Integer
    Dim j As Integer
    Dim Gdata1 As String
    Dim k4 As String
    Dim k5 As String


    ClearGrid Grid1
    Cmdprt.Enabled = False

    If formloadflag = True Then Exit Sub

    If KeyText = "" Then
        SetGridDataNOTHING Grid1, "上記で検索条件を入力又は選択してください。"
        Frame2.Caption = "検索結果"
        Exit Sub
    End If


    ss1 = "SELECT COUNT(*) FROM TBL_職制 where 事業所コード>'000'"
    ss2 = "SELECT 受注元コード AS 受注元c,事業所コード AS 事業所c,部コード AS 部c,事業所略称,部略称,課略称,"
    ss2 = ss2 & "事業所名称, 課名称 FROM TBL_職制 where 事業所コード>'000'"

    If Text1(0).Text <> "" Then s1 = s1 & " and 受注元コード like '" & StrConv(Text1(0).Text, vbUpperCase) & "%'"
    If Cmbjic.Text <> "" Then s1 = s1 & " and 事業所コード = '" & Cmbjic.Text & "'"
    If Text1(1).Text <> "" Then s1 = s1 & " and 部コード like '" & StrConv(Text1(1).Text, vbUpperCase) & "%'"
    If Cmbjiname.Text <> "" Then s1 = s1 & " and 事業所略称 = '" & Cmbjiname.Text & "'"
    'If Text1(2).Text <> "" Then s1 = s1 & " and 部略称 like '%" & StrConv(Text1(2).Text, vbUpperCase + vbWide) & "%'"
    'If Text1(3).Text <> "" Then s1 = s1 & " and 課略称 like '%" & StrConv(Text1(3).Text, vbUpperCase + vbWide) & "%'"
    k4 = Text1(2).Text
    k5 = Text1(3).Text
    If k4 <> "" Then
        Select Case CmbSelLike(0)
            Case "で始まる"
                s1 = s1 & " and 部略称 like '" & k4 & "%' collate Japanese_CI_AI "
            Case "を含む"
                s1 = s1 & " and 部略称 like '%" & k4 & "%' collate Japanese_CI_AI  "
            Case "で終わる"
                s1 = s1 & " and 部略称 like '%" & k4 & "' collate Japanese_CI_AI  "
        End Select
    End If

    If k5 <> "" Then
        Select Case CmbSelLike(1)
            Case "で始まる"
                s1 = s1 & " and 課略称 like '" & k5 & "%' collate Japanese_CI_AI  "
            Case "を含む"
                s1 = s1 & " and 課略称 like '%" & k5 & "%' collate Japanese_CI_AI  "
            Case "で終わる"
                s1 = s1 & " and 課略称 like '%" & k5 & "' collate Japanese_CI_AI  "
        End Select

    End If


    rs.Open ss1 & s1, dbman.cn(DB00), adOpenKeyset, adLockReadOnly
    If Not rs.BOF And Not rs.EOF Then
        Frame2.Caption = "検索結果 (対象:" & rs(0) & " Record)"
    End If
    rs.Close
    Set rs = Nothing
    ss2 = ss2 & s1 & " ORDER BY 事SEQ, 部SEQ, 課SEQ "


    rs.Open ss2, dbman.cn(DB00), adOpenKeyset, adLockReadOnly


    If Not rs.BOF And Not rs.EOF Then
        With Grid1
            .Font.Size = 9
            .Redraw = False
            .Cols = rs.Fields.Count + 1
            For j = 0 To rs.Fields.Count - 1
                .Row = 0
                .Col = j
                .FixedAlignment(j) = 4
                Select Case j
                    Case 0, 1
                        .ColAlignment(j) = 4
                        .ColWidth(j) = 800
                    Case 2
                        .ColAlignment(j) = 4
                        .ColWidth(j) = 520
                    Case 3
                        .ColWidth(j) = 1500
                    Case 4, 5
                        .ColWidth(j) = 2000
                    Case 6
                        .ColWidth(j) = 3300
                    Case 7
                        .ColWidth(j) = 4160
                    Case Else
                        .ColWidth(j) = 1200

                End Select

                .Text = rs.Fields(j).Name
                .Row = 1
                .Col = j
                'Grid1.ColAlignment(j) = 4

            Next j
            .ColWidth(rs.Fields.Count) = 0


            For i = 0 To rs.RecordCount - 1
                Gdata1 = ""
                For j = 0 To rs.Fields.Count - 1
                    Gdata1 = Gdata1 & Trim(rs(j)) & Chr(9)
                Next j
                .AddItem Gdata1

                rs.MoveNext
            Next i

            .RemoveItem 1

        End With
        Cmdprt.Enabled = True
    Else
        SetGridDataNOTHING Grid1, "該当データはございませんでした。検索条件を見直してください。"

    End If
    rs.Close
    Set rs = Nothing

    Grid1.Redraw = True
End Sub
Private Function KeyText() As String
    KeyText = ""
    ss = ""
    For i = 0 To 3
        ss = ss & Trim(Text1(i))
    Next i
    ss = ss & Cmbjic.Text
    ss = ss & Cmbjiname.Text

    KeyText = ss
End Function

Private Sub Form_Resize()
With frmJcsD010
    If .Width > 10000 And .Height > 8000 Then
        Frame1.Width = .Width - 200
        Frame2.Width = .Width - 200
        Frame2.Height = .Height - 2700
        Grid1.Width = .Width - 310
        Grid1.Height = Frame2.Height - 350
        Cmdend.Top = Frame2.Top + Frame2.Height + 200
        Cmdend.Left = .Width - 1700
        set_grid_data
    End If
End With
End Sub


'Form1の表示
Private Sub Grid1_DblClick()
Form1.Show
End Sub


Private Sub Grid1_KeyPress(KeyAscii As Integer)
    SelectionRow Grid1
End Sub

Private Sub Grid1_RowColChange()
If printproc = True Then Exit Sub
    SelectionRow Grid1
End Sub

Private Sub mnuFilePrint_Click()
DirectPrintForm Me, printpic
End Sub

Private Sub mnuHelpAbout_Click()
    frmJcsVer.Show 1
End Sub

Private Sub mnuiken_Click()
    epFirstForm = "frmJcsD010"
    ep = JoinExeParam

        WShell op.PathEXE + "JCSWPRG.exe " & ep & "U", 0

End Sub

Private Sub Text1_DblClick(Index As Integer)
    Text1(Index).Text = ""
    set_grid_data
End Sub

Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
    set_grid_data
End Sub

■No30905 (ひでき さん) に返信
> OracleConnection connection = new OracleConnection("Data Source=XXX;User ID=XXX;Password=XXX;");
Using / Close は?

> 画面のPictureBoxに表示したい。
Long Raw に、生のバイナリがそのまま格納されているのであれば、
最初の No30893 のコードで、問題無く表示できますよ。


> Accessからリンクを張り
> メニューの「挿入」→「オブジェクト」
> から画像ファイルを選択し、登録を行いました。。
それはつまり、ODBCリンクテーブルに対しての操作ですよね。
Access VBA のアプリならば良いですが、C# アプリで使うのであれば、
その登録方法は避けてください。

Access の[挿入]メニューからの場合、ファイルの生バイナリが挿入されるわけでは無く、
OLE (パッケージャ)オブジェクトとしてのデータ挿入が行われる事になります。
http://support.microsoft.com/kb/884484/ja

このため、データ内に OLE ヘッダ情報が付加されてしまう結果となり、
元ファイルのバイナリとは一致しなくなってしまいます。

データ内容から、元データを予想して取り出す方法もありますが、
そもそもは、ファイルの生バイナリを登録しておくべきでしょう。
http://support.microsoft.com/kb/175261/ja


たとえば、Oracle 上に
　CREATE TABLE XXX (XXX_CODE CHAR(3) PRIMARY KEY, PIC LONG RAW)
なテーブルを用意してあるのだとします。


C# から登録するのであれば、たとえばこんな感じ。

string sql = "INSERT INTO XXX (XXX_CODE, PIC) VALUES (:ID, :IMG)";
using (OracleCommand cmd = new OracleCommand(sql, connection))
{
    OracleParameter ID = cmd.Parameters.Add("ID", OracleType.Char, 3);
    OracleParameter IMG = cmd.Parameters.Add("IMG", OracleType.LongRaw);

    ID.Value = "123";
    IMG.Value = File.ReadAllBytes(@"C:\a.bmp");

    connection.Open();
    cmd.ExecuteNonQuery();
    connection.Close();
}


■No30905 (ひでき さん) に返信
> Oracle専用に登録する手段があるならば
> そちらの方が良いとは思うのですが実行できていません；
生のバイナリを Oracle に登録するための画面は、Access 側には用意されていないので、
SQL で直接指定するか、Access VBA から AppendChunk メソッドを呼び出さねばなりません。


VBA のコードは書いても仕方ないので、SQL の記述例を書いておきます。
(下記では、画像のバイナリデータを 16進数にて指定しています)

****** ODBC リンクテーブルの場合 ******

INSERT INTO リンクテーブル名 (XXX_CODE, PIC) VALUES (
  '123', 
  0x424D860000000000000076000000280000000400000004000000010004000000000010000000C40E0000C40E000000000000000000000000000000008000008000000080800080000000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AECD000026450000F89B000007130000
)

****** パススルー クエリの場合 ******

INSERT INTO XXX (XXX_CODE, PIC) VALUES (
  '123', 
  HEXTORAW('424D860000000000000076000000280000000400000004000000010004000000000010000000C40E0000C40E000000000000000000000000000000008000008000000080800080000000800080008080000080808000C0C0C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00AECD000026450000F89B000007130000')
)

どうしても演算データを取ることが出来ません。
企業の人に問い合わせたところ可能とのことでしたが…

作成したプログラムを載せますのでよかったら見てください；
　　　　　


            byte[] buffer2 = new byte[100000];　//機器からデータを受信する
            byte[] buffer = new byte[100000];　//機器からデータを受信する
            string bufferdata = "";


            for (int ia = 10; 2 * ia < 2011; ia++)
            {
                buffer[ia-10] = BitConverter.ToInt16(buffer2,ia);  
            }
            string bufferdata = "";
            StreamWriter address = new StreamWriter(@"C:\結果\" + ".txt");
            {
                for (ia = 0; ia <= 1000; ia++)
                {
                    bufferdata += buffer[ia] * vdv / div + ofs + "\r\n";//DL4000系での換算係数

                }
                address.WriteLine(bufferdata);
            }

            address.Close();

環境
・WindowsXP
・Visual C# 2008 Express Edition

お世話になります。
ファイルアイコンを取得し、そのアイコンをリストビューに表示させたいのですが、
リストビューに表示されずに困っています。どこがわるいか指摘頂けないでしょうか。
よろしくお願いします。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;

using System.Windows;
using System.Runtime.InteropServices;
using System.IO;

namespace IconExtract
{
    public partial class Form1 : Form
    {
        // --------------------------------------------
        // アイコン取得用のWin32 API
        // --------------------------------------------
        // SHGetFileInfo関数
        [DllImport("shell32.dll")]
        private static extern IntPtr SHGetFileInfo
            (string pszPath, 
             uint dwFileAttributes, 
             ref SHFILEINFO psfi, 
             uint cbSizeFileInfo, 
             uint uFlags);

        // SHGetFileInfo関数で使用するフラグ
        private enum shfileflg
        {
            SHGFI_ICON              = 0x000000100,
            SHGFI_DISPLAYNAME       = 0x000000200,
            SHGFI_TYPENAME          = 0x000000400,
            SHGFI_ATTRIBUTES        = 0x000000800,
            SHGFI_ICONLOCATION      = 0x000001000,
            SHGFI_EXETYPE           = 0x000002000,
            SHGFI_SYSICONINDEX      = 0x000004000,
            SHGFI_LINKOVERLAY       = 0x000008000,
            SHGFI_SELECTED          = 0x000010000,
            SHGFI_ATTR_SPECIFIED    = 0x000020000,
            SHGFI_LARGEICON         = 0x000000000,
            SHGFI_SMALLICON         = 0x000000001,
            SHGFI_OPENICON          = 0x000000002,
            SHGFI_SHELLICONSIZE     = 0x000000004,
            SHGFI_PIDL              = 0x000000008,
            SHGFI_USEFILEATTRIBUTES = 0x000000010
        };

        // SHGetFileInfo関数で使用する構造体
        private struct SHFILEINFO
        {
            public IntPtr hIcon;
            public IntPtr iIcon;
            public uint dwAttributes;
            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 260)]
            public string szDisplayName;
            [MarshalAs(UnmanagedType.ByValTStr, SizeConst = 80)]
            public string szTypeName;
        };

        public Form1()
        {
            InitializeComponent();
        }

        public static void main()
        {
            // アイコンを取得
            SHFILEINFO shinfo = new SHFILEINFO();
            uint flg;
            flg = (uint)(shfileflg.SHGFI_ICON | shfileflg.SHGFI_LARGEICON);
            IntPtr hSuccess = SHGetFileInfo("c:\\test.log", 
                                            0,
                                            ref shinfo, 
                                            (uint)Marshal.SizeOf(shinfo), 
                                            flg);
            if (hSuccess != IntPtr.Zero)
            {
                Icon appIcon = Icon.FromHandle(shinfo.hIcon);
                imageList1.Images.Add(appIcon);
                listView1.LargeImageList = imageList1;
            }
        }
    }
}