Me ajudem por favor! Tenho um formulário com dois MaskedBox onde quero fazer uma pesquisa entre duas datas, usando vb6 e sql server 2000, porém não consigo achar a sintax correta, Alguem pode me ajudar.

carlos sergio

Tente isto:

 

Inicio = CDate(Txt_Inicio.Text)
Fim = CDate(Txt_Fim.Text)
Sql = ""
Sql = "SELECT * FROM Vendas"
Sql = Sql & " WHERE"
Sql = Sql & " Emissao" & " >= '" & Mid(Inicio, 4, 3) & Mid(Inicio, 1, 3) & Mid(Inicio, 7, 2) & "'"
Sql = Sql & " AND"
Sql = Sql & " Emissao" & " <= '" & Mid(Fim, 4, 3) & Mid(Fim, 1, 3) & Mid(Fim, 7, 2) & "'"
Rs.Open Sql, CONN, adOpenStatic, adLockReadOnly

 

Jayme

 

Cuidado com o Mid, se o computador estiver com formato de datas que desconsideram os zeros, ou com o ano com 4 digitos, o dia de hoje pode ficar 26/4/2005 e então o Mid vai estragar o formato. O mais correto e fácil é aplicar o format, dentro do exemplo do Jayme:

Sql = Sql & " Emissao" & " >= '" & format(Inicio, "mm/dd/yyyy") & "'"

 

eu uso esta função para convetera data , server para acess, mysql e SQL server

Function Converter_Data_SQL(DATA) As String
Select Case Tipo_Banco
Case 1 ' access
    Converter_Data_SQL = "#" & Format(DATA, "MM/DD/YYYY") & "#"
Case 2 ' msde  SQL Server
    Converter_Data_SQL = "CONVERT(DATETIME, '" & Format(DATA, "yyyy-mm-dd") & "', 102)"
Case 3 ' MySQL
   Converter_Data_SQL = " '" & Format(DATA, "yyyy-mm-dd") & "'"
End Select
End Function

 

str_data1 = Converter_Data_SQL(txt_data1)
str_data2 = Converter_Data_SQL(txt_data2)
sql = "SELECT * FROM Tbl_Pagamentos WHERE DATA_VENCIMENTO  Between " & str_data1 & " And " & str_data2

usando assim voce pode migrar de um banco para outro sem se preocupar

Bem lembrado.

 

Realmente o Semmer tem razão quanto ao Mid(), é que em meus projetos, na entrada do sistema, mando verificar as Opções Regionais do Windows, se estiver diferente de dd/mm/yy peço que seja alterado.

 

Jayme