Newsgroup: it.comp.lang.visual-basic
Titolo: [?] A e IUTO... ricerche DATA1

Ciao...
allora... premetto che sono a digiuno nel farlo da zero! ma ci sto
provando... chi ha poca pazienza... passi al prossimo TR, chi fosse un pò
tranquillo e vorrebbe darmi una mano... GRAZIE... `Babbo Natale sarà
riconoscente...'
Dunque:
- Ho fatto un FORM
- Ho inserito un DATA1 su ACCESS2000
- Ho messo 3 txt linkati al DATA1   (NOME  COGNOME CITTÀ)
Su e giù coi < e > del data1 e mi vedo il mio ben database scorrere nella
finestra.
TUTTO ok, vedo il DATABASE perfettamente in tutti i suoi campi!
Ma in questa "Piccola" applicazione vorrei fare un poco i conti sul mio
database
cioè ad esempio:
Sapere quanti (numericamente) si chiamano ANTONIO o quanti ABITANO a MILANO
oppure quanti 'ABITANO A MILANO e SI CHIAMANO ANTONIO...'
dunque... io apro il form_LOAD con:
Data1.DatabaseName = App.Path & "\archivio.mdb"
Ma come faccio a chiedergli quanto sopra per poi mettere il mio bel numerino
nella Textbox che è li'pronta ad aspettare?
G R A Z I E   per un aiuto!
Anto
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----

 Data1.DatabaseName = App.Path & "\archivio.mdb"
Dim DB as database
dim Rs as Recordset
Set db = OpenDataBase(App.Path & "\archivio.mdb")
Set rs = db.OpenRecordset("SELECT COUNT(nome) AS Quanti FROM Tabella WHERE
nome = 'Antonio', dbOpenSnapShot)
txtConta.Text = rs("Quanti")
db.Close
rs.Close
Set db = Nothing
Set rs = Nothing
Ciao
P.S.: studiati un po' l'SQL (puoi partire cercando SELECT)
--
using System.Gtk.Forms = "
http://www.neodatatype.net/windowsforms/sgf.aspx
"
mathParser = "
http://www.neodatatype.net
"
sitoComune = "
http://www.it-lang-vb.net
"

 Set db = OpenDataBase(App.Path & "\archivio.mdb")
qui mi dice che non riconosce il formato del database... e sono fermo.
'unrecognised database format"
Sai darmi na dritta?
GRAZIE!!!


 'unrecognised database format"
Devi usare i riferimenti a DAO 3.6 e non al 3.51 (default).
Ciao


> Devi usare i riferimenti a DAO 3.6 e non al 3.51 (default).
TNX... FATTO... cacchio se son duro con sti DB... AZZ!!!!
Struso piuttosto in VB ma da come avrai capito...
con DB (e non solo) è na cosa che proprio fatico in modo esasperato
soprattutto a capire... sarà l'età...
ok, ora passo alla mia sintassi... del SELECT...
GRAZIE...
pf: non dimenticare sto TR... cercherò di chiedere poco alla volta.. ma la
sintassi delle varie query... brrrr... mi sento limitato!
passo al prossimo scalino... ci butto qualche giorno... poi piangendo
ritornerò... me lo sento... :-))))
Al momento un sicuro GRAZIE!
ps: era con te che ci siam sentiti anche in EMAIL, ho perso il mio archivio
HOTMAIL.. e non so più chi era... e ricordo il tuo Nik per i moltissimi
aiuti che finora mi hai dato e forse anche in email avevamo discusso un
po'... o mi sbaglio?
GRA e ZIE :-)))
bye


> Devi usare i riferimenti a DAO 3.6 e non al 3.51 (default).
come detto reecome... :-((  sry!
Fatto come scritto sotto/sopra... nel TR... ma da una settimana sto
sbagliando una cosa sicuramente evidentissima:
---
Private Sub Command2_Click()
Dim DB As Database
Dim RS As Recordset
Set DB = OpenDatabase(App.Path & "\archivio.mdb")
Set RS = DB.OpenRecordset("SELECT COUNT(NOME) AS Quanti FROM TABELLA WHERE
NOME = 'ANTONIO'")
Text1.Text = RS(Quanti)
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
End Sub
---
Ho provato un po' di tutto ma sempre a casaccio visto i miei requisiti...e
mi dice sempre "tipo NON corrispondente" sulla linea del
Set RS = DB.OpenRecordset("SELECT COUNT(NOME) AS Quanti FROM TABELLA WHERE
NOME = 'ANTONIO'")
che ho provato anche a scrivere come mi avevi passato tu...
Non vede il database o non trova la tabella?
Ho dimenticato qualche cosa da aggiungere? Nei riferimenti ho messo il
necessario, ma...
-Il database è archivio.mdb
-Dentro c'e' la tabella di nome TABELLA
-Nei dati dovrebbe contarmi gli "ANTONIO"
già sono na mazza ma sto errore 13 TIPO NON CORRISPONDENTE... da cosa
sarebbe causato?
Chiedo venia... non frustatemi!
sig :-((
Anto.


 Text1.Text = RS(Quanti)
Questa va scritta:
Text1.Text=RS("Quanti")
oppure
Text1.Text=RS!Quanti


Si ferma proprio su questa linea... e non capisco dove sbaglio o cosa possa
essere...
errore 13: TIPO NON CORRISPONDENTE
In pratica ho appunto:
-> il file archivio.mdb e lo trova
-> nel file archivio.mdb c'e' una sola tabella che chiamo TABELLA
-> nella tabella ci sono diversi campi tra cui uno chiamo appunto ed è
chiamato: NOME
(poi c'e' COGNOME ecc...)
comunque anche cambiando NOME con COGNOME con altro niente da fare...
Ho anche provato a rinominare la tabella, crearne un'altra...
Questo mi dice sempre l'errore descritto...
Premetto che mettendo invece un semplice DATA1 e due textbox... vedo
tranquillamente i campi scorrere, quindi database e tabelle ecc.. sono
giusti...
Non so proprio cosa possa essere, ma sono ore e ore... giorni e giorni che
cerco di capire dove, principiantemente, sto sbagliando...
GRAZIE e scusate ma... :-(((
ciao Anto.


>> Dim RS As DAO.Recordset
Senza cambiare il resto.

 >>> Dim RS As DAO.Recordset
Provo subito... qualsiasi idea la metto sotto torkio...
Comunque, dato che sto iniziando ad esaminare il "database", l'applicazione
ha UNICAMENTE queste tre o quattro lineee e null'altro...
Quindi tutto disponibile... è in pratica vuoto, ho solo messo un DATA1 e due
txt per veder scorrere il database che è access2000 (nel DATA1)
ciao faccio sapere al volo!


 >>> Dim RS As DAO.Recordset
BINGO... esattamente questo... era un DAO...
Boh, non saprei dire perchè non andava e se sia meglio DAO oppure ADO...
Dato che sto iniziando il progetto cosa è meglio che utilizzi?
Comunque così mi dice tranquillamente quanto desiderato!!!! AZZZ!
ciao e GRAZIE.. prima di partire a strusar tabelle varie aspetto info su
DAO. o ADO... ecc... cosa sia meglio e come....
G R A Z I E!!!! come sempre strisciando.... :-))))
ma cosa mi han fatto di male ste Query del menga...
Mo provo a complicarle un pochetto... e vediamo dove mi stinco... con la
SINTAX ERROR! dei vari ' o "....() ....
Anto.
ciao
