Duvidas com select em visual basic 6.0

[Moonfall]

Bom dia galera! sou novo em visual basic e estou com alguns probleminhas aqui..

seguinte.. estou desenvolvendo um software que faz uma conexcao a um banco de dados em access porem na hora do select estou tendo algumas dificuldades..

segue o select:

Set rs = New ADODB.Recordset

Set con = New ADODB.Connection

'variaveis para teste

Dim ll As String

Dim xx As String

'deixa no formato igual esta no banco de dados a data inserida no campo txt_data

xx = Format(Left(txt_data.Text, 8), "dd/mm/yyyy") & " " & Format(Right(txt_data.Text, 8), "hh:mm:ss")

'efetua o select onde addaulax seria a tabela DIA_HORA o campo e CARRO outro campo

'gostaria que o select comparasse o que esta escrito no txt_data e no combo box com o que tenho na base.

ll = "Select * from addaulax where DIA_HORA = '" & xx & "' And CARRO = " & Cbo.Text & ""

'aqui acontece o erro.

|

v

rs.Open ll, con, adOpenKeyset, adLockOptimistic

'erro obtido: nenhum valor foi fornecido para um ou mais parametros necessarios.

' depois do select caso não achasse algum valor continuaria.

If Not rs.EOF Then

MsgBox "já existe aulas marcadas para essa data e para esse carro", vbInformation, "erro!"

Exit Sub

End If

conteudo dos campos DIA_HORA e CARRO do banco de dados :

CARRO DIA_HORA

Gol 10/8/2008 15:00:00

se alguém poder me ajudar ficaria muito feliz! :}

obrigado!

Editado Agosto 7, 2008 por Moonfall

[raphael_suporte]

cara não sei se o formato que você está passando na hora está correto, o porque do left??

[Moonfall]

bom.. no comeco estava sem o left como eu estava tendo varios problemas resolvi colocar.

o left seria a parte da data e o right a parte da hora.. pois existe um espaco no meio dos 2

acredito que ele não estava conseguindo comparar a string com o campo DATA dentro do banco de dados pois o formato esta DATA

mas se tiver alguma outra maneira de fazer por favor! :D

[raphael_suporte]

então você não precisa usar o left e sim o convert.. seria +/- assim

primeiro o campo xx seria date depois ele receberia o valor de data.text

Set rs = New ADODB.Recordset
Set con = New ADODB.Connection

'variaveis para teste
Dim ll As String
[b]Dim xx As date[/b]

'deixa no formato igual esta no banco de dados a data inserida no campo txt_data

[b]xx = convert(datetime '" & txt_data.Text &"', 103) "[/b]    ' Esse formato "103" é formato do banco, se tiver duvida como fica coloca para imprimir o valor de xx

'efetua o select onde addaulax seria a tabela DIA_HORA o campo e CARRO outro campo
'gostaria que o select comparasse o que esta escrito no txt_data e no combo box com o que tenho na base.

ll = "Select * from addaulax where DIA_HORA = '" & xx & "' And CARRO = " & Cbo.Text & ""


'aqui acontece o erro.

|
v

rs.Open ll, con, adOpenKeyset, adLockOptimistic

'erro obtido: nenhum valor foi fornecido para um ou mais parametros necessarios.

' depois do select caso não achasse algum valor continuaria.

If Not rs.EOF Then
MsgBox "já existe aulas marcadas para essa data e para esse carro", vbInformation, "erro!"
Exit Sub
End If

[Moonfall]

bom ficou assim:

xx = " convert(datetime,'" & txt_data.Text & "', 103)"

ll = "Select * from addaulax where DIA_HORA = " & xx & " And CARRO = " & Cbo.Text & ""

rs.Open ll, con, adOpenKeyset, adLockOptimistic

obtive o erro: 'funcao convert indefinida na expressao'

existe algum erro de sintaxe?

lembrando que o banco esta em ACCESS 2007

já vi isso para SQL

funciona tambem com access?

no immediate:

? xx

convert(datetime,'4/8/2008 15:00:00', 103)

? ll

Select * from addaulax where DIA_HORA = convert(datetime,'4/8/2008 15:00:00', 103) And CARRO = FOX

Editado Agosto 7, 2008 por Moonfall

[raphael_suporte]

pois é essa função converteria a data para yyyy-mm-dd hh:mm:ss, assim que gravasse no banco, porem vendo seu programa percebi um erro acho que foi meu mesmo... na verdade você não precisa do xx...

ll = "Select * from addaulax where DIA_HORA = convert(datetime,'" & txt_data.Text & "', 103) And CARRO = " & Cbo.Text &""

senão ele passa o parametro como convert, e com isso compara "convert(datatime...", ao invés de comparar apenas a data

[Moonfall]

Retirei o xx e coloquei assim:

ll = "Select * from addaulax where DIA_HORA = convert(datetime,'" & txt_data.Text & "', 103) And CARRO = " & Cbo.Text & ""

quando vou dar o open >>

rs.Open ll, con, adOpenKeyset, adLockOptimistic

recebi o erro:

'funcao convert indefinida na expressao'

novamente :/

Editado Agosto 7, 2008 por Moonfall

[raphael_suporte]

no immediate como está e qual a versão do seu vb?

[Moonfall]

immediate esta assim:

? ll

Select * from addaulax where DIA_HORA = convert(datetime,'5/8/2008 14:30:00', 103) And CARRO = FOX

versao do VB:

Visual basic 6.0 SP5

[raphael_suporte]

fazendo algumas pesquisas eu achei o comando cvdate(X), no lugar do convert(datetime,x) porem isso para 2003, não sei se é o seu caso, porem vale-a-pena testar

[Moonfall]

humm como que usa essa sintaxe? tentei assim:

ll = "Select * from addaulax where DIA_HORA = cvdate (" & txt_data.Text & ") And CARRO = " & Cbo.Text & ""

e não vai :/

[raphael_suporte]

você esqueceu do PLIC

ll = "Select * from addaulax where DIA_HORA = cvdate ('" & txt_data.Text & "') And CARRO = " & Cbo.Text & ""

[Moonfall]

Nenhum valor foi forcenido para 1 ou mais parametros necessarios.

immediate

? ll

Select * from addaulax where DIA_HORA = cvdate ('5/8/2008 14:30:00') And CARRO = Gol

cara to ficando puto com esse select já!

[raphael_suporte]

cara coloca o plic no carro tb... não entendi agora, pois parece que está certo!!

[Moonfall]

AEeeeeeeeeeeee agora simmmm faltava o PLICCC no carrro =DDD

raphaa te amu xP

valeu pela ajuda cara!

[raphael_suporte]

estamos ai para isso

são esses pequenos detalhes que matam a gente... bom qualquer coisa é só postar...

e bem vindo ao mundo VB :P

[Moonfall]

kkkk vlw! comecei a trampar com vb e outras linguagens a 1 mes =D to sofrendo 1 pouco + estamos ae também shauisuas

preciso fechar to tópico como funciona?

[raphael_suporte]

kkkk vlw! comecei a trampar com vb e outras linguagens a 1 mes =D to sofrendo 1 pouco + estamos ae também shauisuas

preciso fechar to tópico como funciona?

pode deixar que o moderador responsável pela área fecha

[Moonfall]

Ok obrigado pelo ajuda t+!

[kuroi]

você esqueceu do PLIC

plic?? o q é plic??

bom, não gosto de ficar fechando topicos, porque acho q sempre pode ser aproveitado, tipo alguém com uma duvida relacionada pode usar o mesmo tópico. ou amanha você mesmo chega com outro problema relacionado, e ai seria melhor utilizar o mesmo tópico em vez de criar outro.

bom, mas como esse é um assunto bem especifico e como vocês pediram com educacao to fechando pra variar um poco heheh

se alguém quiser a reabertura me avise por mp.