помощь формат даты в vb.net

Question

 Dim Con As OleDb.OleDbConnection 
    Dim Sql As String = Nothing 
    Dim Reader As OleDb.OleDbDataReader 
    Dim ComboRow As Integer = -1 
    Dim Columns As Integer = 0 
    Dim Category As String = Nothing 
    Dim oDatumMin As Date 
    Dim column As String 
    column = Replace(TxtDateMax.Text, "'", "''") 
    'oDatumMin = Convert.ToDateTime(TxtDateMin.Text) 

    oDatumMin = DtpMin.Value 
    Dim oPath As String 
    oPath = Application.StartupPath 

    ' Select records. 
    Con = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & oPath & "\trb.accdb;") 
    Dim cmd As New OleDb.OleDbCommand 
    'Dim data_reader As OleDbDataReader = cmd.ExecuteReader() 
    Sql = ("SELECT * FROM " & cmbvalue & " WHERE Datum>='" & oDatumMin & "'") 
    cmd = New OleDb.OleDbCommand(Sql, Con) 
    Con.Open() 
    Reader = cmd.ExecuteReader() 
    Do While Reader.Read() 
     Dim new_item As New ListViewItem(Reader.Item("Datum").ToString) 
     new_item.SubItems.Add(Reader.Item("Steleks i krpe za cišcenje-toal papir-ubrusi-domestos").ToString) 
     new_item.SubItems.Add(Reader.Item("TEKUCINA ZA CIŠCENJE PLOCICA").ToString) 
     new_item.SubItems.Add(Reader.Item("KESE ZA SMECE").ToString) 
     new_item.SubItems.Add(Reader.Item("OSTALO-džoger-spužva za laminat").ToString) 
     new_item.SubItems.Add(Reader.Item("PAPIR").ToString) 
     LvIzvjestaj.Items.Add(new_item) 

    Loop 

    ' Close the connection.strong text 
    Con.Close()`` 

, когда я выбрать таблицу, (cmbvalue) из выпадающего списка и когда я выбрать дату из даты и времени подборщика (DTP) или в последнем случае с texbox преобразуется в дату и время SQL выглядит следующим образом "SELECT * FROM Uprava WHERE Datum> = '2.6.2010 10:28:14'" и все запросы выглядят нормально, но я получаю

Недопустимое несоответствие типов данных в выражении критериев. ошибка на дату (oDatumMin), когда excute столбец в доступе также установлен на сегодняшний день Я не знаю, что еще попробовать

Answer 1

Я подозреваю, что это проблема локализации. Попробуйте изменить формат даты той, которая должна быть общепризнанной: [Что такое код страницы сервера национальная_версия /]

SELECT * FROM Uprava WHERE Datum >='2010/06/02 10:28:14' 

Answer 2

Dim sql As String = "SELECT * FROM MyTable WHERE Datum >= ?" 
Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand(sql) 
cmd.Parameters.Add(New OleDb.OleDbParameter("@Datum", OleDb.OleDbType.Date)) 
cmd.Parameters("Datum").Value = oDatumMin 

http://msdn.microsoft.com/de-de/library/bbw6zyha.aspx