🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

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

database

#3349
From: stefano
Date: Thu, 29 Aug 2002 20:31
42 lines
2622 bytes
Avrei alcune domande da fare:

1) Perch� se tento di eseguire una query sql su un qualunque file di
database aperto con il controllo data non funziona? Mi dice di impostare
"with" , ma se scrivo with data1 (...) end with comunque mi da lo stesso
errore.
Mentre se apro il file "manualmente" via codice, tutto funziona
regolarmente.

Codice:  (funzionante)
Dim MioDb As Database
Dim MioRs As Recordset
Dim miofl As Field
Set MioDb = OpenDatabase("C:\dbase\MAG.MDB", True, False)
Set MioRs = MioDb.OpenRecordset("SELECT * FROM azienda WHERE
nome_azienda='ormac'")
Set miofl = MioRs.Fields("nome_azienda")

2) Perch� non riesco ad aprire un file dbIII via codice? Mentre con l'ogg.
data non ho nessun problema ad aprirlo? L'oggetto data non dovrebbe eseguire
la stringa DAO "OpenDataBase("C:\pass.dbf", False, False, "dBASE III;")"?

Codice: (non funzionante)
Dim MioDb As Database
Dim MioRs As Recordset
Dim miofl As Field

Set MioDb  = OpenDataBase("C:\MAG.DBF", False, False, "dBASE III;")
Set MioRs = MioDb.OpenRecordset("SELECT * FROM MAG WHERE
nome_azienda='ormac'")
Set miofl = MioRs.Fields("nome_azienda")

P.S. Poco cambia non indicare il nome del database.

3) A quanto ho capito (sono in attesa che mi arrivi il libro "Visual Basic 6
programmare Database della Apogeo) fino ad ora, i database access (mdb)
possono contenere diverse tabelle (ma potrebbe anche essere una) , mentre i
file dBIII contengono sempre e solo una tabella. Potete confermarmi questa
frase? :)

Grazie dell'aiuto, quando mi arriva il libro spero di poter postare solo per
argomenti + complessi e professionali!
Technical Details
Message-ID: <2xvb9.37670$pX1.1120053@news2.tin.it>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail

Show Full Headers
Complete Article Headers
X-Google-Language: ITALIAN,ASCII
X-Google-Thread: f94ee,54157672046c8a82,start
X-Google-Attributes: gidf94ee,public
X-Google-ArrivalTime: 2002-08-29 13:35:37 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsswitch.lcs.mit.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!nntp.infostrada.it!news-out.tin.it!news-in.tin.it!news2.tin.it.POSTED!not-for-mail
From: "stefano" <stefalem@tin.it>
Newsgroups: free.it.visual-basic
Subject: database
Lines: 46
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 5.50.4133.2400
X-MimeOLE: Produced By Microsoft MimeOLE V5.50.4133.2400
Message-ID: <2xvb9.37670$pX1.1120053@news2.tin.it>
Date: Thu, 29 Aug 2002 20:31:58 GMT
NNTP-Posting-Host: 212.171.70.203
X-Complaints-To: newsmaster@tin.it
X-Trace: news2.tin.it 1030653118 212.171.70.203 (Thu, 29 Aug 2002 22:31:58 MET DST)
NNTP-Posting-Date: Thu, 29 Aug 2002 22:31:58 MET DST
Organization: TIN