|
|
Postada em 16/04/2007 15:05 hs
Estou usando o seguinte código: 'No load do Form Set conndyn = New ADODB.Connection
conndyn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=Admin;Data Source=" & App.Path & "Controle.mdb;Mode=Share Deny None;Extended Properties=';COUNTRY=0;CP=1252;LANGID=0x0409';Jet OLEDB:System database='';Jet OLEDB:Registry Path='';Jet OLEDB:Database Password='';Jet OLEDB:Global Partial Bulk Ops=2"
'No cmdConsultar consulta ("SELECT * FROM TabFaturamento WHERE Data Like '" & Trim(txtDataAtual) & "' and Mes Like '" & Trim(cmbMes) & "' and Ano Like '" & Trim(cmbAno) & "' ORDER BY Mercadoria Asc") Se eu uso a consulta em um só campo da minha TabFaturamento ele funciona. consulta ("SELECT * FROM TabFaturamento WHERE Orçamento Like '" & Trim(txtprocurar.Text) & "' ORDER BY Mercadoria Asc") Alguém sabe como fazer essa consulta em três campos da minha tabFaturamento?
|
|
|
|
|
|
LCRamos
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 16/04/2007 15:39 hs
Use o sinal de igual (=), tire o Like consulta ("SELECT * FROM TabFaturamento WHERE Data='" & Trim(txtDataAtual) & "' and Mes ='" & Trim(cmbMes) & "' and Ano='" & Trim(cmbAno) & "' ORDER BY Mercadoria Asc") vlu// |
|
|
|
João Paulo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 16/04/2007 15:55 hs
Agora meu erro ja passou pra outra parte do meu código: Private Sub consulta(sql1 As String)
Set rsdyn = New ADODB.Recordset
rsdyn.CursorLocation = adUseClient
rsdyn.Open sql1, conndyn, adOpenForwardOnly, adLockReadOnly ' erro nesta linha
Set dgDados.DataSource = rsdyn
dgDados.Refresh
Frame2.Caption = "(" & rsdyn.RecordCount & ")" & " Item (s) " & " encontrados!"
If txtprocurar.Text = Empty Then
txtprocurar.Text = ""
Else
txtprocurar.SelStart = 0
txtprocurar.SelLength = Len(txtprocurar.Text)
End If End Sub Deu o seguinte erro na linha em negrito: Data Type mismatch in criteria expression
|
|
|
|
|
|
Postada em 16/04/2007 17:04 hs
Esse erro esta falando que você está tentando movimentar, ou consultar algo que está em branco
Abraço e que DEUS te abençõe, espero poder ter te ajudado 
Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13
|
|
|
|
|
|
Postada em 17/04/2007 05:36 hs
Desculpe, Alvaro, mas este erro é que ele não postou a linha da SQL1, e está dizendo que ele está fazendo uma consulta enviando dados de tipo diferente, por exemplo: Tem um campo numérico e está enviando uma string de comparação, ou campo data com string ou vice-versa para as duas, verifique. Para ser exato: O critério usado na expressão com dados diferentes. vlu// |
|
|
|
João Paulo
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 17/04/2007 11:05 hs
Entendi galera vou analizar meu código e verei o q vai acontecer. |
|
|
|
