SQL Serverの構文切り替えへのアクセス

Question

私は最近MS SQLServerにアクセスして作成したプロジェクトを移動しましたが、もちろんこれはSQL文のコードの一部を変更する必要があることを意味します。

私はフィールドDateRenewが30日以内にすべてのレコードを取得しているこのサブルーチンを持っています...これをSQLに変換するにはどうすればいいですか？付近に正しくない構文「＃」：現時点では私はタイプ「System.Data.OleDb.OleDbException」の未処理の例外がMaintenanceControl.exe

に発生しました追加情報

次のエラーメッセージを取得します。

Private Sub btn30Days_Click(sender As Object, e As EventArgs) Handles btn30Days.Click 

    Dim td As String 
    Dim sd As String 
    sd = Format(Today.AddDays(31), "MM/dd/yyyy") 
    td = Format(Today, "MM/dd/yyyy") 

    Try 
     sql = "SELECT * FROM dbo.tblContracts WHERE DateRenew BETWEEN #" & sd & "# AND #" & td & "#;" 
     conAd = New OleDb.OleDbDataAdapter(sql, con) 
     conset = New DataSet 
     conAd.Fill(conset) 
     ugModules.DataSource = conset 

    Catch ex As Exception 
     errorLog(ex.Message, ex.StackTrace) 
     MsgBox("Failed to retrieve contract information from database, refer to error log") 
    End Try 

End Sub 

Answer 1

SQL Serverの日付機能を直接使用する方が簡単で簡単です。

sql = "SELECT * FROM dbo.tblContracts WHERE DateRenew BETWEEN 
     CONVERT(DATE, GETDATE()) AND DATEADD(DAY, 31, CONVERT(DATE, GETDATE()))" 

（読みやすくするために改行）

それはGETDATE()は、現在の時刻が含まれていることは問題ではない場合は、CONVERT(DATE, ...)部分を残すことができます。

Answer 2

Dim td As String 
Dim sd As String 
sd = Format(Today.AddDays(31), "yyyyMMdd") 
td = Format(Today, "yyyyMMdd") 

Try 
    sql = "SELECT * FROM dbo.tblContracts WHERE DateRenew BETWEEN ''" & sd & "'' AND ''" & td & "'';" 
    conAd = New OleDb.OleDbDataAdapter(sql, con) 
    conset = New DataSet 
    conAd.Fill(conset) 
    ugModules.DataSource = conset 

Catch ex As Exception 
    errorLog(ex.Message, ex.StackTrace) 
    MsgBox("Failed to retrieve contract information from database, refer to error log") 
End Try 

YYYYMMDDは、エスケープシーケンスとして '' として 'あなたが入力する必要がVBでSQL に（単一引用符）' ＃が置き換えられているSQL（ISO） の日付形式です - それは二重引用符として一重引用符を入力します。一重引用符