upit u vb.u, datum

[ execution @ 27.12.2008. 14:39 ] @

dragi moji vi... ja imam jedan problem i mnogo bih cijenila vasu pomoc
naime, pravim neki mini projekat Aerodrom u vb6

sada sam pri kraju ostao mi jedan problem koji me izludi

imam tabelu Let i u njoj izmedju ostalog atribute SifraLeta i Datum

Sada u jednoj formi u ComboBox.u izaberem Datum... i njega proslijedim u iducu formu, i u toj formi pomocu upita trazim sifru leta na osnovu proslijedjenog datuma

e sada u tabeli
kad unosim datum kako god ga unesem sa tackama ili sa / on ga sam konvertuje na to da bude sa tackama (unesem 1/1/2009 on ispravi na 1.1.2009)
no, kada pravim upit

npr.

SELECT SifraLeta
FROM Let
WHERE Datum=#1/1/2009#;

trazi od mene da budu /, jer sa tackama nece da radi

e sada... posto ja u vb.u necu rucno upisivati datum pa da mogu tako pisati ha tacku ha /, mislila sam to rijesti sa

Code:
Call Form5.Datum(mojDatum) 'iz ove forme sma proslijedila datum
    'MsgBox mojDatum
    dd = Mid(mojDatum, 1, 2)
    mm = Mid(mojDatum, 4, 2)
    gg = Mid(mojDatum, 7, 5)

    mojDatum = "#" & dd & "/" & mm & "/" & gg & "#"

    str1 = "Select SifraLeta " & _
    "From Let " & _
    "Where Datum = mojDatum"
    Set tabela = mDb.OpenRecordset(str1, dbOpenDynaset)

no vise me izludi sintaxa ovih upita u vb.u... sad mi ovdje opet javlja gresku Too few parameters. Expected 1... koju mi je prije javljao zbog nedostatka ovih & _ a sada poojma nemam zasto

eto, ako je neko shvatio sta sam htjela, i zna gdje je problem, mnogo bih bila zahvalna

[ Pulapola @ 27.12.2008. 16:09 ] @

Prvo datum podijeli na dan, mjesec i godina.
Dodaj jedni Adodc i povežu na tvoju bazu.
Evo jedan primjer sintakse:

Code:

    Dan = Day(txtDatum)
    Mjesec = Month(txtDatum)
    Godina = Year(txtDatum)

    Adodc1.ConnectionString = gConnectionString
    Adodc1.RecordSource = "SELECT Stranke.Broj, Stranke.Datum, " & _
    "Stranke.Prezime, Stranke.Ime, Stranke.Svrha " & _
    "From Stranke WHERE (((Stranke.Datum) =#" & Mjesec & " / " & Dan & " / " & Godina & "# ))"
    Adodc1.Refresh

Pozdrav