πŸš€ go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: free.it.visual-basic
Article #3691

[ADO] Migrazione da OLEDB 3.51 a 4.0

#3691
From: Luca personale
Date: Fri, 03 May 2002 11:27
44 lines
2599 bytes
Ho scritto una applicazione che usa un DB di access (mdb) tramite il
provider OLEDB.3.51 per ms-jet: tutto funziona bene.
Ora sto cercando di utilizzare il provider OLEDB.4.0 ma ottengo una fila di
errori dovuti principalmente alla sintassi sql delle query.
Esempio:
Con la 3.51 funzionava: "select * from tabella where campo=null"
mentre con la 4.0 bisogna scrivere: "select * from tabella where campo IS
null".
E fin qui ho capito che la sintassi sql corretta e' la seconda!!!

PerοΏ½ non riesco a far funzionare la seguente routine:
----------------------------------------------------------------------------
-------------
Private Sub Command1_Click()
Dim rsp As Recordset
Set rsp = New Recordset
rsp.Open "password", cn               'sintassi OLEDB per Jet 3.51 funziona
Do While (Not rsp.EOF)
If (tb_user.Text = rsp("user") And tb_Password.Text = cryptit(rsp("pass")))
Then
trovato = True
MsgBox "Autenticazione avvenuta"
utente = tb_user.Text
grantModBase = rsp("grantModBase")
grantModEstese = rsp("grantModEstese")
main.discon.Visible = True
main.chp.Visible = True
Me.Hide
End If
rsp.MoveNext
Loop
If (Not trovato) Then MsgBox "nome utente o password errata"
Set rsp = Nothing
End Sub
----------------------------------------------------------------------------
---------------

In test l'applicazione si blocca sul codice "rsp.Open "password", cn "
con una finestra di errore:
Errore di runtime '-2147217900 (80040e14)'.
Istruzione SQL non valida. Prevista 'DELETE', 'INSERT', 'PROCEDURE',
'SELECT' o 'UPDATE'.

Chi sa darmi qualke consiglio?
Technical Details
Message-ID: <ttuA8.52522$W9.1194074@twister2.libero.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!supernews.com!news.tele.dk!small.news.tele.dk!212.177.105.133!news.mailgate.org!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,b375702933702633,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-05-03 04:26:24 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!supernews.com!news.tele.dk!small.news.tele.dk!212.177.105.133!news.mailgate.org!nntp.infostrada.it!twister2.libero.it.POSTED!not-for-mail
From: "Luca personale" <luxmancini@libero.it>
Newsgroups: free.it.visual-basic
Subject: [ADO] Migrazione da OLEDB 3.51 a 4.0
Lines: 49
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4522.1200
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4910.0300
Message-ID: <ttuA8.52522$W9.1194074@twister2.libero.it>
Date: Fri, 3 May 2002 13:27:10 +0200
NNTP-Posting-Host: 151.38.46.254
X-Complaints-To: abuse@net24.it
X-Trace: twister2.libero.it 1020425177 151.38.46.254 (Fri, 03 May 2002 13:26:17 MET DST)
NNTP-Posting-Date: Fri, 03 May 2002 13:26:17 MET DST
Organization: [Infostrada]