PROBLEMA COM DATAS
pessoal o que tá errado no meu código abaixo ? Ele não filtra adequadamente.
Dim datMydate As Date
datMydate = Today
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select telefone,proxligacao,celular,email,cnpj from ligacoes where proxligacao >= #[Ô] & datMydate & [Ô]# order by proxligacao[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]ligacoes[Ô])
DataGridView1.DataSource = ds.Tables([Ô]ligacoes[Ô])
conn.Close()
Se alguém puder ajudar agradeço;
Dim datMydate As Date
datMydate = Today
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select telefone,proxligacao,celular,email,cnpj from ligacoes where proxligacao >= #[Ô] & datMydate & [Ô]# order by proxligacao[Ô], conn)
ds = New DataSet()
da.Fill(ds, [Ô]ligacoes[Ô])
DataGridView1.DataSource = ds.Tables([Ô]ligacoes[Ô])
conn.Close()
Se alguém puder ajudar agradeço;
Verifique se datMydate está no formato americano mm/dd/yyyy. Tem que está assim.
Cara o campo proxligacao esta com que tipo na tabela?
A variavel datMydate tras qual formato de data?
A variavel datMydate tras qual formato de data?
LLAIA só a sugestão do formato não resolveu.
FILMAN o campo no access é data e datMydate tá no formato mm-dd-yyyy
FILMAN o campo no access é data e datMydate tá no formato mm-dd-yyyy
O Leandro Laia tem razão.
Faz assim.
datMydate = Format(Today, [Ô]MM/dd/yyyy[Ô]) deste jeito mesmo e não mm/dd/yyyy.
Faz assim.
datMydate = Format(Today, [Ô]MM/dd/yyyy[Ô]) deste jeito mesmo e não mm/dd/yyyy.
Beleza OMAR funcionou. Só não consegui fazer funcionar no caso do Between :
Dim datMydate1 As Date
Dim datMydate2 As Date
datMydate1 = Format(TextBox2.Text, [Ô]MM/dd/yyyy[Ô])
datMydate2 = Format(TextBox3.Text, [Ô]MM/dd/yyyy[Ô])
If IsDate(TextBox2.Text) And IsDate(TextBox3.Text) Then
DataGridView1.Visible = True
RichTextBox1.Text = [Ô][Ô]
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,proxligacao,celular,email,cnpj from ligacoes where proxligacao between #[Ô] & datMydate1 & [Ô]# and #[Ô] & datMydate2 & [Ô]# order by razaosocial[Ô], conn)
O que preciso mudar aqui será ?
Dim datMydate1 As Date
Dim datMydate2 As Date
datMydate1 = Format(TextBox2.Text, [Ô]MM/dd/yyyy[Ô])
datMydate2 = Format(TextBox3.Text, [Ô]MM/dd/yyyy[Ô])
If IsDate(TextBox2.Text) And IsDate(TextBox3.Text) Then
DataGridView1.Visible = True
RichTextBox1.Text = [Ô][Ô]
conn = New OleDbConnection([Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\databasegeral.mdb;Persist Security Info=false;jet oledb:database password=gibadoexpresso340[Ô])
conn.Open()
da = New OleDbDataAdapter([Ô]select num,proxligacao,celular,email,cnpj from ligacoes where proxligacao between #[Ô] & datMydate1 & [Ô]# and #[Ô] & datMydate2 & [Ô]# order by razaosocial[Ô], conn)
O que preciso mudar aqui será ?
Tente assim.
Dim datMydate1 As Date = Format(CDate(TextBox2.Text.Trim), [Ô]MM/dd/yyyy[Ô])
Dim datMydate2 As Date = Format(CDate(TextBox3.Text.Trim), [Ô]MM/dd/yyyy[Ô])
Dim datMydate1 As Date = Format(CDate(TextBox2.Text.Trim), [Ô]MM/dd/yyyy[Ô])
Dim datMydate2 As Date = Format(CDate(TextBox3.Text.Trim), [Ô]MM/dd/yyyy[Ô])
Funcionou amigo. Obrigado;
Tópico encerrado , respostas não são mais permitidas