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

 	
LINQ TO SQLを使用してDateTime型のデータを取り出す際に
書式を指定したいのですが、

以下のようにしても実行時に例外となっています。
取得方法としてあやまっていますでしょうか？


// System.Nullable<System.DateTime> InsertDate


var query =
    from f in context.Fruits
    select new
    {
        INSERT_DATE = f.InsertDate.Value.ToString("YYYYMMDD")//ここです
	}

例外は以下のとおりです。
System.NotSupportedException: 
メソッド 'System.String ToString(System.String)' には、
サポートされる SQL への変換がありません。


アドバイスいただけますでしょうか。

よろしくお願いします。

PostgreSQL　は所有していないので
SQLServer　にて検証。

データベース名：test
テーブル名：data1　〜　data5

>>DBに格納された後は、格納された順にURLが読み込まれて、一定の間隔で画面に表示されるようにする。
については、リストボックスの値を順次取得しつつページの読み込みが完了するまで
値の取得を止めておく手段がわからないので、あくまでリストボックスの値を
データベースに入れていく部分のみに限定。

using System.Data.SqlClient;

namespace FormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }
        
        private void Form1_Load(object sender, EventArgs e)
        {

            for (int i = 1; i <= 5; i++)
            {
                (Controls["listBox" + i] as ListBox).AllowDrop = true;
                (Controls["listBox" +i ] as ListBox).DragEnter += new DragEventHandler(listBox_DragEnter);
                (Controls["listBox" + i] as ListBox).DragDrop += new DragEventHandler(listBox_DragDrop);
            }
        }

        private void listBox_DragEnter(object sender, DragEventArgs e)
        {
            //URLのみ受け入れる//@ITより
            if (e.Data.GetDataPresent("UniformResourceLocator"))
                e.Effect = DragDropEffects.Link;
            else
                e.Effect = DragDropEffects.None;
        }

        private void listBox_DragDrop(object sender, DragEventArgs e)
        {
            //ドロップされたリンクのURLを取得する//@ITより
            String url = e.Data.GetData(DataFormats.Text).ToString();
            //結果を表示
            ((ListBox)sender).Text = url;
            //MessageBox.Show(url);
            //ドロップされたデータがString型か調べる
            if (e.Data.GetDataPresent(typeof(String)))
            {
                ListBox target = (ListBox)sender;
                //ドロップされたデータ(String型)を取得
                String itemText =
                    (String)e.Data.GetData(typeof(String));
                //ドロップされたデータをリストボックスに追加する
                target.Items.Add(url);
                //MessageBox.Show("表示");
            }
        }

        private void button1_Click(object sender, EventArgs e)
        {

            SqlCommand scm;
            SqlConnection scn = new SqlConnection("Data Source=." + @"\SQLEXPRESS;AttachDbFilename=D:\SQLServer\test.mdf;" +
                                                  "Integrated Security=True;Connect Timeout=30;User Instance=True");
            String sql;
            SqlParameter sParam;
            scn.Open();


            for (int i = 1; i <= 5; i++)
            {
                 if ((Controls["listBox" + i] as ListBox).Items.Count > 0)
                 {
                     sql = string.Format("INSERT INTO data{0} VALUES(@url)",i);
                     scm = new SqlCommand(sql, scn);
                     sParam = new SqlParameter("@url", SqlDbType.NChar);
                     
                   for (int m = 0; m <= (Controls["listBox" + i] as ListBox).Items.Count - 1; m++)
                   {

                       String url1 =(string)(Controls["listBox" + i] as ListBox).Items[m];
                       sParam.Value = url1;
                       scm.Parameters.Clear();
                       scm.Parameters.Add(sParam);
                       scm.ExecuteNonQuery();
                   }
                 }
            }

            //SqlDataReader srd;
            //sql = ("Select * From data1");
            //scm = new SqlCommand(sql, scn);
            //srd = scm.ExecuteReader();

            //while (srd.Read())
            //{
            //  MessageBox.Show(srd.GetString(0));
            //} 
            scn.Close();
        }
    }
}

Ｃ＃の経験不足に加えSQLServer　は今回初めて（インストール含め）なので
至らぬ点はあると思いますが、何か手がかりになれば幸いです。

ありがとうございます。

以下のようにしてみましたが、やはり1回目ではうまくいかず2回ペーストする必要があります。

BeginInvokeは非同期でバックグラウンドプロセスからフォアグラウンドプロセスに指令を投げるものだと思いますが、
GUIから使っても良いのでしょうか？
そして、それで遅延が発生するのでしょうか？

            Dim oldCursor = Cursor.Current
            Cursor.Current = Cursors.WaitCursor

            Dim xlApp As Object = Nothing
            Try
                xlApp = GetObject(, "Excel.Application")
                CallByName(xlApp, "CutCopyMode", CallType.Let, False)
            Catch
            Finally
                If xlApp IsNot Nothing AndAlso Marshal.IsComObject(xlApp) Then Marshal.ReleaseComObject(xlApp)
            End Try
            BeginInvoke(Sub()

                            Clipboard.Clear()
                            RichTextBox1.Copy()


                            ' Excel 書式を維持するため、Word 経由で複写
                            Dim wApp As Object = Nothing
                            Dim wDocs As Object = Nothing
                            Dim wDoc As Object = Nothing
                            Dim wRng As Object = Nothing

                            Try

                                wApp = CreateObject("Word.Application")
                                wDocs = CallByName(wApp, "Documents", CallType.Get)
                                wDoc = CallByName(wDocs, "Add", CallType.Method)
                                wRng = CallByName(wDoc, "Range", CallType.Method)
                                CallByName(wRng, "Paste", CallType.Method)
                                CallByName(wRng, "Copy", CallType.Method)
                            Catch
                            Finally
                                If wRng IsNot Nothing AndAlso Marshal.IsComObject(wRng) Then Marshal.ReleaseComObject(wRng)
                                If wDoc IsNot Nothing AndAlso Marshal.IsComObject(wDoc) Then Marshal.ReleaseComObject(wDoc)
                                If wDocs IsNot Nothing AndAlso Marshal.IsComObject(wDocs) Then Marshal.ReleaseComObject(wDocs)
                                If wApp IsNot Nothing AndAlso Marshal.IsComObject(wApp) Then
                                    CallByName(wApp, "Quit", CallType.Method, False)
                                    Marshal.FinalReleaseComObject(wApp)
                                End If
                            End Try

                            Cursor.Current = oldCursor

                        End Sub)