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

　GridViewでデータ追加機能を作っていますが、追加日時のデータの追加の仕方がわからなく
て困ってます。アドバイス頂けると助かります。

　GridViewでのデータ追加機能はhttp://dotnetfan.org/blogs/dotnetfanblog/articles/632.aspx
のページを参考に作ってます。これの最後の列にデータ追加日時が保存される様にcreatedと言う
「日付/時刻」タイプの列を追加し、以下の様に
AccessDataSource1.InsertParameters.Add(New ControlParameter("created", TypeCode.String, New Now(), "Text"))
の行を追加しましたが
コンパイル エラー メッセージ: BC30002: 型 'Now' が定義されていません。
のエラーが出て動きません。どの様に修理すれば動く様になるでしょうか？よろしくお願いします。

開発環境：VWD2005(VB)、Access2003

Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs)
    If e.CommandName = "Insert" Then
        AccessDataSource1.InsertParameters.Clear()
        For Each key As String In Request.Form.AllKeys
            If key.Contains("$InsertUserName") Then
                AccessDataSource1.InsertParameters.Add(New ControlParameter("userName", TypeCode.String, key, "Text"))
            End If
            If key.Contains("$InsertMailAddress") Then
                AccessDataSource1.InsertParameters.Add(New ControlParameter("mailAddress", TypeCode.String, key, "Text"))
            End If
            AccessDataSource1.InsertParameters.Add(New ControlParameter("created", TypeCode.String, New Now(), "Text"))
        Next
        AccessDataSource1.Insert()
    End If
End Sub

■No41627 (ごう さん) に返信
もりおさん、ごうさん、早急なアドバイスありがとうございます。

> 日付に関しましては、こちらの記事がお勧めです。
> VBからAccessへINSERT
> http://bbs.wankuma.com/index.cgi?mode=red&namber=40683&KLOG=70
の情報をヒントに、scriptの方ではなく、SQLの方で実現する方法
InsertCommand="INSERT INTO `Test` (`userName`, `mailAddress`, `created`) VALUES (?, ?, Now())"
で目的の機能が実現できました。皆さん、本当にありがとうございました。

ごうさんへ
> > AccessDataSource1に代入するパラメータの型はDateTime型なんですよね？
> こちらから質問してみたのですが・・・DateTime型じゃなくて、String型なんですね。
追加日時情報を入れる created はDateTime型に設定してあります。

うまく動いたコードの抜粋
<script runat="server">
    Protected Sub GridView1_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs)
        If e.CommandName = "Insert" Then
            AccessDataSource1.InsertParameters.Clear()
            For Each key As String In Request.Form.AllKeys
                If key.Contains("$InsertUserName") Then
                    AccessDataSource1.InsertParameters.Add(New ControlParameter("userName", TypeCode.String, key, "Text"))
                End If
                If key.Contains("$InsertMailAddress") Then
                    AccessDataSource1.InsertParameters.Add(New ControlParameter("mailAddress", TypeCode.String, key, "Text"))
                End If
            Next
            AccessDataSource1.Insert()
        End If
    End Sub
</script>


<asp:AccessDataSource ID="AccessDataSource1" runat="server" DataFile="App_Data\TestDB.mdb"

    InsertCommand="INSERT INTO `Test` (`userName`, `mailAddress`, `created`) VALUES (?, ?, Now())"

    <InsertParameters>
        <asp:Parameter Name="userName" Type="String" />
        <asp:Parameter Name="mailAddress" Type="String" />
        <asp:Parameter Name="created" Type="DateTime" />
    </InsertParameters>

</asp:AccessDataSource>