Otvaranje rekordseta pomocu SQL naredbe

Otvaranje rekordseta pomocu SQL naredbe 19.06.2003. u 18:15 · pre 284 meseca #1

Stavio sam ovakav kod:

Dim rsname as String
rsname = "SELECT * FROM table1 WHERE imepolja = ponuda"
Set db = DBEngine.OpenDatabase(dbname)
Set rs = db.OpenRecordset(rsname, dbOpenDynaset)

Medjutim dobijam runtime error u poslednjem redu, "Too few parameters, expected 1". Istu poruku dobijem kada stavim dbOpenSnapshot. Kada probam sa dbOpenTable, onda je greska '3011': MS JET engine cant find object 'SELECT table1....= poruka'. Make sure that path and spelling..itd.
Da li gresim u sintaksi ili je nesto drugo u pitanju?

Re: Otvaranje rekordseta pomocu SQL naredbe 20.06.2003. u 09:36 · pre 284 meseca #2

Mozda je glupo da pitam, da li si proverio ono "table1" bas takav naziv ima tabela?
Usput, sa snapshot ne mozes editovati nista u tabeli, znaci samo ga koristis za prikaz, pregled recorda. S dynaset ili table bi moralo da radi. Eventualno proveri dataSource, zavisi kako si konektovao bazu, preko odbc-a ili si linkovao fajl.
pozdrav

Re: Otvaranje rekordseta pomocu SQL naredbe 20.06.2003. u 13:31 · pre 284 meseca #3

Proveri da li ti je SQL upit ispravan. Napravi novi query u Accessu i pasteuj ovaj upit pa vidi da li radi.

A sto koristis DAO?

Potpis

Blue Man Group

Re: Otvaranje rekordseta pomocu SQL naredbe 20.06.2003. u 23:11 · pre 284 meseca #4

Hvala na odgovorima. Problem je ipak bio u sintaxi. Treba staviti:

rsname = "SELECT * FROM table1 WHERE imepolja ='" & ponuda & "'"
A kako si znao da koristim dao? Kako bi bilo u ADO-u?
Pozdrav

Re: Otvaranje rekordseta pomocu SQL naredbe 21.06.2003. u 01:27 · pre 284 meseca #5

Vidi se po DBEngine.OpenDatabase.
DAO ima Database i Recordset objkte, a ADO Connection i Recordset.

U ADOu bi izgledalo nekako ovako

Code:

Const mcstrDNSBeg       As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
Const mcstrDNSEnd       As String = ";Persist Security Info=False"

Dim adoRS       As ADODB.Recordset
Dim adoConn     As ADODB.Connection
Dim DNS         As String
Dim Qry         As String
Dim DBPath      As String 'putanja do baze

DNS = mcstrDNSBeg & DBPath & mcstrDNSEnd

Set adoConn = New ADODB.Connection
adoConn.CursorLocation = adUseClient
adoConn.open DNS

Qry =  "SELECT * FROM table1 WHERE imepolja ='" & ponuda & "'"

Set adoRS = New ADODB.Recordset
adoRS.open Qry, adoConn, adOpenDynamic, adLockBatchOptimistic

Potpis

Blue Man Group

Re: Otvaranje rekordseta pomocu SQL naredbe 21.06.2003. u 01:40 · pre 284 meseca #6

DNS ti je connection string, a ove ostale bidze CursorLocation i parametre za otvaranje konekcije i rekordseta imas u MSDNu.

Kad ti je polje tipa string (text) onda u sql upitu moras da stavis ' ' (IMEPOLJA ='NESTO'), a ako imas polje tipa date onda # # (NEKIDATUM=#1/1/2001#)

Potpis

Blue Man Group

Forum kao aplikacija na telefonu

Srodne teme