mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: trovare una tabella in un mdb

Ciao,
Ho aperto una connessione con ADODB su un database mdb, come posso sapere se
esiste o meno una tabella e in caso fargliela creare?
--------------------------------
Inviato via 
http://usenet.libero.it

 ha scritto nel messaggio
news:151Z8Z176Z195Y1...@usenet.libero.it...


 sapere se esiste o meno una tabella e in caso fargliela creare?
In Access esistono delle tabelle nascoste, che puoi visualizzare spuntando
nelle opzioni, una delle quali mantiene l'elenco delle tabelle.
Fai una select su questa tabella e vedi se torna un record.
Altrimenti fai un create table o un select into.
Ciao
Alberto
--
E non so se avrò gli amici a farmi il coro,
o se avrò soltanto volti sconosciuti,
canterò le mie canzoni a tutti loro
e alla fine della strada
potrò dire che i miei giorni li ho vissuti...

 wrote in message
151Z8Z176Z195Y1...@usenet.libero.it...

in DAO...
    ' crea la tabella immagini se non esiste
    nuovaTab = "immagini"
    Esiste = 0
    Ntab = tmpDB.TableDefs.Count
    For tmp = 0 To Ntab - 1
        NomTab = tmpDB.TableDefs(tmp).Name
            If NomTab = nuovaTab Then Esiste = 1
    Next tmp
    If Esiste < 1 Then
        tmpSql = "CREATE TABLE " + nuovaTab + " (controllo TEXT,ord
LONG,immagine TEXT)"
        tmpDB.Execute (tmpSql)
    End If
in ADO +o- sara' lo stesso...

 in ADO +o- sara' lo stesso...
quanto al sapere se c'e', questa e' la guida su "openschema":
Nell'esempio che segue il metodo OpenSchema verrà utilizzato per
visualizzare il nome e il tipo di ciascuna tabella nel database Pubs.
Public Sub OpenSchemaX()
   Dim cnn1 As ADODB.Connection
   Dim rstSchema As ADODB.Recordset
   Dim strCnn As String
   Set cnn1 = New ADODB.Connection
   strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn1.Open strCnn
   Set rstSchema = cnn1.OpenSchema(adSchemaTables)
   Do Until rstSchema.EOF
      Debug.Print "Table name: " & _
         rstSchema!TABLE_NAME & vbCr & _
         "Table type: " & rstSchema!TABLE_TYPE & vbCr
      rstSchema.MoveNext
   Loop
   rstSchema.Close
   cnn1.Close
End Sub
-- ciaohttp://
www.sundaysw.com


E un bel:
SELECT MSysObjects.Id
FROM MSysObjects
WHERE (((MSysObjects.Name)="NOME_TABELLA") AND ((MSysObjects.Type)=1));
?
Ciao
Alberto

 ?
ho visto che qualcuno lo usa. ma
1. se c'e' un metodo standard e abbastanza ricco, prima provo quello.
openschema a occhio mi sembra dia parecchie possibilita'.
2. le tabelle ms* quando facevo dbstru mi sparavano errori appena le
sfioravo, quindi preferisco scordarmi che esistono.
3. sto provando ado quasi solo avendo in mente qualche compatibilita'
futura. se devo scrivere del codice solo per access, preferisco usare dao e
le tabledefs, che e' tanto pulito:
Private Sub Form_Load()
    Dim td As TableDef
    Set db = OpenDatabase("mdb97")
    For Each td In db.TableDefs
        lstTables.AddItem td.Name
    Next
End Sub
ciao

 dao e le tabledefs, che e' tanto pulito:
questo argomento lo trovo assolutamente risolutivo.
--
Salutoni
Sergio


Riconosco di avere contravvenuto ai miei stessi princìpi.
Avete ragione voi, poche balle.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema con ADO

Salve ragazzi ho un grosso problema con ADO:
mi trovo in una situazione del genere
Set rs = New ADODB.Recordset
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Source = "Ordina"
rs.ActiveConnection = cn
rs.Open
rs.AddNew
rs.Fields("progress") = "SELECT progress FROM  cibi_e_bevande WHERE
denominazione='Romana'"
rs.Update
****
rs è un oggetto recordset e come avrete capito voglio aggiungere un valore
ad un campo(progress), mediante query. Il problema è che "giustamente" la
query non viene considerata come tale ma come stringa.
Come posso fare???

 Come posso fare???
Indicare una query di aggiunta (e non di selezione) e togliere sia l'AddNew
che l'Update, perchè delle due l'una... poi, anzi, prima, studiare un po',
anzi, un po' di più.
Senza offesa, sai, ma dai tuoi post sembra che tu stia andando un po' a
caso...
Della serie "pigio il vino coi piedi e con la forza necessaria, ma vorrei
anche tenere un elefante in bilico sull'asticella posta sull'alluce
sinistro"

 denominazione='Romana'"
*non* testata:
rs.Fields("progress") =GET_CAMPO_FROM_TABELLA(cn,"SELECT progress FROM
cibi_e_bevande WHERE denominazione='Romana'")
Function GET_CAMPO_FROM_TABELLA(cn as adodb.connection, strSql as string )
as variant
     GET_CAMPO_FROM_TABELLA=cn.execute(strsql)
      if isnull(GET_CAMPO_FROM_TABELLA) then GET_CAMPO_FROM_TABELLA=""
End function
termoPilucco

 cibi_e_bevande WHERE denominazione='Romana'")
Arghhh, ho toppato. Non ho visto l'assegnazione al campo...
Ok, mi scuso e mi sgancio.


A parte che odio i nomi di funzione scritti in maiuscolo ...
cn.Execute ritorna un recordset, no?
Ciao!

 cn.Execute ritorna un recordset, no?
Giusto :)
Sostituire
GET_CAMPO_FROM_TABELLA=cn.execute(strsql)
con
GET_CAMPO_FROM_TABELLA=cn.execute(strsql)(0)
termoPilucco, l'avevo detto che non era testato

 ha scritto nel messaggio
news:btmkjc$938el$1...@ID-188026.news.uni-berlin.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: file tipo OCA

caio a tutti, durante lo sviluppo di un vbp sotto la cartella VB98 mi si
stanno creando numerosi (e non piccoli) file di tipo *.oca Possono essere
cancellati definitivamente?
Grazie!
--------------------------------
Inviato via 
http://usenet.libero.it

cancellati definitivamente?
  Si, eventualmente verranno ricreati quando ricaricherai i relativi
OCX.
  Ciao :-)
  Massimo
  Nell'indirizzo, inserire una "h" tra la "t" e la "u"
  In the address, insert an "h" between the "t" and the "u"

 eliminare e conseguentemente tutta la directory.
La prima risposta di Google alla ricerca "file .OCA":
INFO: What Is an OCA file?
... INFO: What Is an OCA file? (Q149429). ... For every custom
control file (.OCX) that Visual Basic uses, there is an accompanying
.OCA file of the same file name. ...
http://support.microsoft.com/support/kb/articles/q149/4/29.asp
E visto che è un file in uso, per cancellarlo devi aspettare
che non sia più in uso, quindi al prossimo riavvio della
macchina. Per far questo, hai due scelte: cercare "delete
a file in use" sull'MSDN, o cercare "cancellare un file in uso"
su Google in questo NG... Anzi, ci sto già, faccio io:
Q140570 HOWTO: Move Files That Are Currently in Use
http://support.microsoft.com/support/kb/articles/Q140/5/70.asp
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: Combobox e tabelle con relazione!!!! AIUTO!!!!

Domandona (almeno per me).
Ho due tabelle Access: la prima (denominata Ufficio) a due campi, uno
contatore univoco ed uno testo dove memorizzo le denominazioni di vari
uffici. Il campo contatore di questa é collegato ad un'altra tabella
(denominata LavoriSvolti) dove sono memorizzati vari lavori svolti per
questi uffici, naturalmente il valore salvato in quest'ultima tabella,
riferito all'ufficio, é un valore numerico.
il problema é il seguente:
Sto cercando di realizzare un programmino con vb6 per la gestione di questo
archivio, utilizzo DAO 3.6, nel form dove inserisco i dati, il valore
inerente l'ufficio lo gestisco tramite Combobox, la lista la "popolo"
facendo leggere la tabella-Ufficio campo-Denominazione ma nel campo della
tabella LavoriSvolti va' memorizzato il numero univoco del contatore (quindi
non mi accetta il testo) Altro problema, quando scorro i dati memorizzati,
ogni record che visiono, la combobox mi visualizza... IL NUMERO univoco di
quell'ufficio invece del nome ad esso collegato.
Come ca... volo devo fare premettendo che voglio usare la Combobox quella
semblice per intenderci (non quella per oggetti Data o Ado ed altre)
Ari... premetto che sono alle prime, ma molto prime, armi e che fino ad ora
mi sono arrabbattato con manuali e stralci da riviste!
Scusatemi per il tempo che vi ho fatto perdere e per la mia abissale
ignoranza!

 non mi accetta il testo)
Vediamo se ho capito. Tu vorresti selezionare da una combobox standard il
nome dell'ufficio e dopo aver scritto in un campo testo il lavoro svolto
premi OK e nella tabella lavori svolti viene scritto il NUMERO dell'ufficio
selezionato nella COMBOBOX ed il lavoro scritto nel campo testo.
Soluzione:
"popola" la combobox tramite codice e non collegarla direttamente ad access
ed utilizza un array per tenere traccia dei numeri degli uffici:
Dim Db as Database
Dim Rec as Recordset
Dim NumUfficio()  as long
Dim I as integer
set db = opendatabase("Lavori.mdb")
set rec = db.opendatabase("Ufficio",dbopendynaset)
rec.movelast
rec.movefirst
ReDim NumUfficio(rec.recordcount)
I = 0
Do until Rec.EOF = True
    NumUfficio(I) = rec!Contatore
    combouffici.additem rec!Ufficio
    I = I + I
    rec.movenext
loop
rec.close
db.close
In questa maniera testando la proprietà listindex della combobox puoi
automaticamente prelevare il relativo codice dalla matrice
NomeUfficio(combobox.listindex)
NOTA: Occhio solo all'ordinamento. Se ordini la COMBOBOX devi aprire il
recordset con lo stesso ordine
set rec = db.openrecorset("SELECT * FROM Uffici ORDER BY
Ufficio",dbopendynaset)
Così dovresti essere a posto.
Ho scritto il codice direttamente nel messaggio e non da vb. Controlla la
sintassi


GRAZIE!!! mi metto subito all'opera!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Immagini

Salve!
Tenete presenti i giochini fatti con tessere, carte et similia? Bene,
vorrei, se possibile, avere una dritta per mostrare una parte di una
immagine che contiene l'intero insieme delle carte. Vorrei evitare un
ImageList con le carte singole.
Grazie 1K!


Le risposte ai tuoi post precedenti non andavano bene ?
Quali problemi hai riscontrato ?
Ciao
Aldo

 Aldo
Purtroppo tramite Tiscalinet e tramite Libero non visualizzo il mio post e
quindi nemmeno le risposte :(
Se è possibile riposteresti il tutto?
Grazie e ciao!


Giusto, piu' performante ed applicabile anche ad oggetti non vb.
===========================================================
Se qualcosa non fosse chiaro e/o non funzionasse, ti prego di accodare
a questo thread senza aprirne di nuovi, perche' altrimenti si fa confusione.
Ciao
Aldo

Many thanks!

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Cerco Microsoft Visual Basic 1.0 per MS-DOS

Sono alla (disperata?) ricerca di questo compilatore (datato 1992-1993 se
non sbaglio).
Microsoft mi ha informato che è fuori listino. Ho contattato vari
rivenditori ma nessuno ha saputo darmi finora indicazioni precise.
Se qualcuno ne fosse in regolare possesso, e fosse intenzionato a venderlo,
sono disposto ad acquistarlo.
Contattatemi al mio indirizzo e-mail.
Ciao.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: ...e se volessi mandare SMS ?

Salve a tutti...
e se volessi scrivere un'applicazione che mandi sms ?
qualcuno ha quqalche suggerimento ?
un salutone a tutti voi !
--
joker

 wrote in message 8v2vn8$srv$1...@nslave2.tin.it...


 anche per il supporto della rubrica ecc..).
Grazie per le info, interessa anche a me.....
Dove posso trovare la lista dei comandi AT per inviare gli SMS ???
Grazie
Ciao
Sirjo

Newsgroup: it.comp.lang.visual-basic
Titolo: "Server dell'oggeto non registato correttamente"

Questo messaggio esce alla richiesta di Controlli Aggiuntivi
che cosa puo' comportare, si puo' lasciarlo tanto non influisce....   ?
come fare per eliminarlo  ?
Grazie della collaborazione

...

Newsgroup: it.comp.lang.visual-basic
Titolo: vb6 e access2000

Ciao a tutti,
    non sono molto esperto di VB6 e Access, ma da quando sono passato ad
Access 2000, non riesco piu' ad accedere ai file mdb. Sto lavorando con
Visual Studio 6 SP3.
Qualcuno mi sa dire se devo installare qualche patch addizionale?
Grazie
Neos



Mi dice "Nome gia utilizzato per modulo, progetto o libreria degli
oggetti esistenti"
se tolgo il rifrimento al dao 2.5/3.5 compatible layer e metto il dao
3.6 non mi riconosce piu i type table e chissa che altro ancora !
ma qualcuno e' riuscito ad utilizzare database access di diverse
versioni incluso quelle aggiornate con access 2000 ?????
Grazie

 versioni incluso quelle aggiornate con access 2000 ?????
Forse non ti servirà, ma perché non crei un file .udl e gli associ ADO?
Se usi la creazione guidata form dati, la maggior parte del lavoro te la
trovi bella e fatta.
Spero di non venire linciata per questo consiglio... comunque l'ho provato e
funziona!
--
Ciao a tutto il NewsGroup
Alex
alm...@tin.it

conoscere...
Scusa, uso le table per fare dei seek, e recordset quando mioccore
fare dei filtri.I dataentry  li faccio con i datacontrol di tipo
recordset, sempre per filtrare all'occorezza i dati. 
Con cosa sostituisco i table ? 
I recordset vanno a cora bene ?
Non capisco , mi spiegate meglio per cortesia ?
Grazie

Newsgroup: it.comp.lang.visual-basic
Titolo: x spegnere il monitor

Ragazzi, premetto che nn metto mano al c++ da anni, quindi sto un bel
po a digiuno, cmq
Quello ke mi serve è un programma semplicissimo che, digitando in un
qualsiasi momento una combinazione di tasti, accenda o spenga lo
schermo (a seconda del suo stato attuale)
NO, nn sono folle, mi serve xkè avendo la tastiera cordless spesso
spengo il monitor per risarmiare però una volta allontanatomi può
venirmi l'esigenza di accenderlo (e spegnerlo successivamente) e qui
sorge il problema...
Certo potrei utilizzare l'utilità di risparmio energetico di winzoz,
però potrebbe capitare che m'interessa premere un tasto (ad esempio
cambiare mp3) senza però volere accendere il monitor, nn so ditemi
voi, grazie

 voi, grazie
On/Off del monitor, è perfetto!
Ciao,
Carlo.

 On/Off del monitor, è perfetto!
Forse il problema e' questo:
On/Off - On/Off - On/Off ....
...
...
...
dopo mille On/Off - Off!!! ;-(
Costo dell'operazione dalle 200.000 in su ...
Sulla tastiera:
Costo dell'operazione dalle 15.000 alle 100.000!
:-)
ciao
		maxx

 wrote in message
news:3c0427b7...@News.CIS.DFN.DE...

Newsgroup: it.comp.lang.visual-basic
Titolo: curioso errore automation (male documentato)

ciao a tutti
scrivendo queste righe di codice VB (ma anche il corrispondente codice VC++
genera lo stesso problema) ottengo sistematicamente l'errore
Run-time error '-
2147417846
 (8001010a)'
Automation error
The message filter indicated that the application is busy
il codice è
    Dim wobj As Word.Application
    Set wobj = CreateObject("Word.Application")
    wobj.Quit
    Set wobj = Nothing
l'errore viene generato dalla CreateObject che crea un'istanza di word (lo
verifico con il task manager) ma poi esce, tra l'altro, lasciando l'istanza
di word aperta
con le altre applicazioni office funziona tutto perfettamente
il mio sistema è composto da NT4.0 sp6a, VB e VC++ sp3 e office2000
ho cercato su msdn ma non ho trovato consigli che andassero oltre
all'installazione dell'ultimo service pack (!) cosa che, ovviamente, non ha
funzionato
grazie per l'aiuto
lorenzo



 ha scritto nel messaggio
news:95243020...@tango.comm2000.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Errorre di Automazione

Ancora una volta rappresentate l'ultima speranza.
Qualcuno di voi ha incontrato l'errore 440 ("Errore di automazione") e
ha trovato una soluzione?
A me succede quando apro una form nell'istruzione
        For Each Frm In Forms
e non riesco a capire cosa posso aver sbagliato anche perchè l'errore è
casuale e mi costringe anzi mi chiude VB5 dopo che Dott. Watson ha
smacchinato un pò'.
Ringrazio chiunque mi sappia dare un aiuto

...


Io ho trovato la soluzione.
Ho eliminato tutti i controlli dalla form fino a che non sono rimasto con
due pulsanti della Crescent. Ho sostituito quei due pulsanti con due
pulsanti standard e tutto funziona.
Tutto questo non ha molto senso perchè in altre form quei due pulsanti non
mi davano nessun problema.
Non ho parole!
Posso dire solo che non ho la sensazione di lavorare in un ambiente stabile
e sicuro.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Help with MediaPlayer OCX

Howdy,
can't find any decent help on the net for the MediaPlayer OCX.
Trying to use the MediaPlayer1.GetCodecDescription(sCodecNum)
but don't know how to work out the sCodecNum.
If any one can help.
Also if any one knows of any good web site that show the methods and how to
use them
Thanks
James

--from MSDN--
Player6.GetCodecDescription
This method retrieves the descriptive name of the given codec.
Syntax
MediaPlayer.GetCodecDescription(sCodecNum)
Parameters
  sCodecNum
Long value indicating the codec number.
Return Value
Returns a String containing the descriptive name of the given codec. This
method returns a null string if the codec specified by the sCodecNum
parameter is not found.
Remarks
The codec numbers start with 1. You will get an error if you use zero.
Typically, the codec number is 1 for audio and 2 for video. Valid values for
codec numbers range from 1 to the value of the CodecCount property.
--End MSDN--
Visit 
http://msdn.microsoft.com
 in library page search "Media SDK"
This is an Italian NG so post in italian please
L2K
Newsgroup: it.comp.lang.visual-basic
Titolo: eventi delle form

Ciao a tutti...perfavore,mi potreste scrivere quali sono gli eventi
previsti delle form in visual basic,come ad es.
form_load,form_resize,ecc...
Ho un manuale (che non mi pare un granchč) di VBasic,in cui non sono
elencati tutti gli eventi...
Vorrei anche sapere qual'č la combinazione di tasti,da tastiera,per
modificare le dimensioni di un controllo,senza papunto usare il mouse.
Ciao e grazie,
ALberto

 modificare le dimensioni di un controllo,senza papunto usare il mouse.
una volta selezionato il controllo, puoi ridimensionarlo con Shift +
<tasto freccia> e spostarlo con Control + <tasto freccia>.
queste shortcut funzionano anche se sono selezionati più controlli
Ciao
--
Faber


Ma guarda che l'ho fatto,a ma non ho trovato tutto...sarà anche colpa
mia...
E poi,era per non perdere troppo tempo in ricerche varie...se qualcuno
certe cose le sa,perchè non dirle?
Ciao.
Newsgroup: it.comp.lang.visual-basic
Titolo: (HELP) - Dimensione minima Width del Form

Come faccio a stabilire una dimensione minima del width di un form?
Grazie mille,
Splash
Http://www.opty.net/splash/

...


 btnUnload. Questo è il codice della form:
Seguono 100 linee...
Per me è molto più semplice:
nel General_Declarations della form imposti:
    Dim DisattivaResize as boolean
nel Form_Resize scrivi:
    If (DisattivaResize = true) or (Form.Windowstate = VbMinimized) Then
        Exit Sub
    End If
    If Form.Width > x Then
        DisattivaResize = true
        Form.Width = x
        DisattivaResize = false
    End if
Il DisattivaResize serve per evitare ricorsioni poichè cambiare le
dimensioni di una form richiama automaticamente la Form_Resize.
Ciao, Alessio.

Seguono 100 linee...


 raccomandato dalla documentazione ufficiale.
Giusto, infatti l'ho subito copiato!
Alessio.

Newsgroup: it.comp.lang.visual-basic
Titolo: Bitmap 16 colori

Salve, dovrei applicare ad un file bitmap la risoluzione di 16 colori.
Grazie per l'attenzione.

 
Lo apri con un programma di grafica e scegli la funzione per portare
a 16 il numero di colori. Quasi tutti i programmi ce l'hanno.
-- 
Samuele Battarra
mail server: 
libero.it
, indirizzo: battarsa@(mail server)
prova il mio newsreader:
http://digilander.iol.it/battarsa/programmi/leggiminews.html

 wrote in message
news:QIx97.4866$y_3.4...@news.infostrada.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET]Installare un NT Service

Salve ragazzi,
ho cominciato a scrivere un nt serv da poco ma ancora nn mi è chiara
una cosa: per il testing locale lo si installa attraverso il tool di
visual studio intallutil.exe mi sembra... ma se lo voglio dare ad
altri come faccio ad installare il servizio?
ringrazio anticipatamente

 
o crei un pacchetto d'installazione oppure chi deve installare il servizio 
esegue installutil esattamente come hai fatto tu.
e' un tool del framework, non uno strumento di sviluppo.
http://msdn.microsoft.com/it-it/library/50614e95%28v=VS.80%29.aspx
-- 
Paolo opg
BE AWARE that this post uses a fake reply-to address
to contact me write to:
janickg ( at ) hotmail ( dot ) com
--

 --
ok grazie... quindi potrei creare un installer che lancia quel comando
ad esempio?
Newsgroup: it.comp.lang.visual-basic
Titolo: Eliminare un'Icona!!!!

Come posso eliminare una icona???
Cioč io la metto sotto Avvio\Programmi ma come faccio a toglierla??
Grazie

kill [percorso del file .lnk]


l'icona che tu vedi e' un file che si trova sotto la directory menu
avvio/programmi (o sotto un altra sub) e si chiama nomevisualizzato.lnk .
per cancellarlo usi il comando kill percorso es:
kill C:\WINDOWS\Menu Avvio\Programmi\Accessori\notepad.lnk
ciaociao
Francesco Mapelli ( 
mape...@tin.it
 )
http://members.xoom.com/Francesco
Mousestats, il contachilometri per il mouse
http://members.xoom.com/mousestats
Sito comune programmatori Visual Basic
http://members.xoom.com/it_lang_vb

vi ho provato ma non aggiorna subito il menu relativo.
Grazie lo stesso



--------------------
Guarda nel progetto "Setup1" di VB5 e cerca la funzione "OSRemoveShellLink".
Dovrebbe essere quello che cerchi.
Ciao
Marco Minerva
http://www.geocities.com/SiliconValley/Foothills/7260
http://www.armaditaggia.com/marco

Newsgroup: it.comp.lang.visual-basic
Titolo: Database: Vb ---> Mdb ----> DB3

Salve a tutti,
dovrei accedere ad un database DB3 (contentete una sola tabella) senza
essere costretto a convertire il file da DB3 a MDB dato il numero di record.
Se fosse possibile vorrei usare Jet (e quindi DAO), visto che è l'unico
motore che so usare!!!
Ringrazio anticipatamente.

 ha scritto nel messaggio
news:ykqB4.24477$C24.2...@news.infostrada.it...


 Comunque, una volta aperto lo utilizzi normalmente (in sola lettura!).
Non necessariamente in sola lettura. Se gli indici delle tabelle
sono disponibili è possibile anche la scrittura.
La sintassi per l'apertura di un database in formato dBase III
può essere, con DAO ad esempio, come segue:
Dim db As dao.Database
Dim rs As dao.Recordset
Dim SQL As String
   SQL = "SELECT * FROM tabella1"
   Set db = OpenDatabase("", 0, 0, "dBase III;_
        DATABASE=c:\miodatabase;UID=;pwd=;")
   Set rs = db.OpenRecordset(SQL, dbOpenDynaset)
ponendo che sia tabella1 il nome della tabella da aprire
e che il database sia c:\miodatabase.
A questo punto ti comporti come faresti per un database
in formato .Mdb (sempre tenendo presente la diversa
modalità di gestione dei dati di un dBase)


La connessione è possibile utilizzando il data manager

 wrote in message
8b7mo9$hc6$1...@nslave1.tin.it...

Ovvero?
Newsgroup: it.comp.lang.visual-basic
Titolo: Data in Sql

Nell'istruzione seguente cosa sbaglio
UPDATE campo SET DATECHANGE= '31-gen-2001 14:21' where id=2
Come faccio a specificare una data corretta.
Lui giustamente dice che non può convertire un formato data in stringa.
Ho provato con #, con la funzione Cast, ma non ci riesco.
Come devo specificare la data?
Ciao e grazie
Oz
--
Carè Walter SIA SOFTWORK S.R.L.
Via Zanardelli, 13/A - 25062 Concesio (BS) Italy
Tel. 0039-30-2008135/0039-30-2091057  Fax. 0039-30-2004911
Web: 
http://www.siasoftwork.it
 - E.mai:- 
ca...@siasoftwork.it

 Oz
UPDATE campo SET DATECHANGE=#2001/01/31 14:21# where id=2
oppure
UPDATE campo SET DATECHANGE=#01/31/2001 14:21# where id=2
ciao
Sir Jo

Non Funziona perchè scompone la data in
# 2001 / 01 / 31 14 : 21 #.
Mi dice che non accetta i : dopo il 14.
Lancio la Statement Sql nell'Enterprise Manager di Sql 7.0
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: visual basic e database access

Ciao
ho un piccolo problema
forse e' di una banalita' mostruosa ma sara' l'ora non riesco a venirne
a capo
ho un database pippo.mdb con un tabella pluto
il database e' stato creato con access 97
e gli e' stata data una password davide
come faccio dal controllo data di vb 5 a gestire il contenuto di un db
protetto in questo modo?
ciao
        Davide

...



Molte volte sul sito comune si possono trovare delle risposte
immediatamente; inoltre vista la mole di lavoro che svolgono gratuitamente
alcune persone per gestire il sito, sarebbe una buona idea visitarlo!
La cosa è per tutte le persone che non conoscono il Sito dei militanti del
NG:   
http://www.murialdo.it/it_lang_vb
Per aprire un db protetto da pwd usando il controllo data:
data1.databasename=pathMyDb
data1.connect=";pwd=ciccio" ' "ciccio" è la password del mio database
data1.recordsource="Tab1"
Ciao Marco


Grazie 1000 Marco
cmq, prima di postare sul NG ho visitato l'intero sito... ho scaricato quasi
tutti gli esempi ocx etc fatti...
e mi sembrava di non aver visto nulla relavito al mio problema
ergo mi sono "permesso" di postare su questo ng ;)
tutto li'
grazie 1000 ancora per la risposta e spero di poter contraccambiare al +
presto (vedro' di sfornarvi qualche ocx utile utile)
ciao
        Davide Giansoldati

Newsgroup: it.comp.lang.visual-basic
Titolo: Chiamata di Funzione

Salve a tutti,
Ho bisogno di definire una funzione personalizzata che mi calcoli la
liquidazione oraria da corrispondere al personale che va fuori per lavoro...
niente di più facile:
Private Function Liquidazione(pDay As Integer, pHour As Integer) As Single
  X = pDay * 8.184
  Y = pHour * 0.341
  Liquidazione = X + Y
End Function
...e fin qui tutto ok.
Il problema non è nella funzione, ma nella chiamata (anzi nei parametri).
Infatti, in base alla data/ora di arrivo e di partenza del dipendente,
l'azienda sborserà una certa cifra... siccome la data/ora di arrivo e di
partenza sono memorizzate nelle due variabili pDate e pHour, la chiamata è
questa:
Private Sub cmdCalc_Click()
...
LiqOraria = Liquidazione(pDay, pHour)
...
End Sub
Incredibilmente (secondo le mie conoscenze, ovviamente!!), la funzione non
accetta come parametro il nome della variabile, ma soltanto il
risultato di una espressione il cui valore sarà poi passato alla funzione...
Allora ho buggerato VB, cambiando l'istruzione in
LiqOraria = Liquidazione(pDay + 0, pHour + 0)
in questo modo VB ha la sua bella espressione il cui risultato è ovviamente
il valore della variabile... ho sbagliato qualcosa io oppure conoscete un
metodo migliore? Mi sembra proprio una scemenza dover aggiungere 0!!!!!
Grazie!

Prova un piccolo ritocco nella dichiarazione:
Private Function Liquidazione(ByVal intDay As Integer, ByVal intHour As
Integer) As Single
Best Regards,
--
Antonio Cangiano
Webmaster di 
www.visualcsharp.it
Fondatore di free.it.comp.lang.csharp

 ha scritto nel
messaggio news:Y9z39.38746$n04.1...@twister2.libero.it...
[cut]
Grazie mille, funziona alla perfezione!
p.s.: soprattutto grazie per la tempestiva risposta!!

> Grazie mille, funziona alla perfezione!
Figurati :o))

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO! Errore inaspettato...sono nella m....

Improvvisamente il mio computer da il messaggio : ERRORE INASPETTATO
1)lanciando qualsiasi programma mio o di terzi in Visual Basic
2)lanciando VB4 o l'Autocomposizione Installazione
3)lanciando qualsiasi installazione di programmi Visual Basic, anche quelli
con Install Shield
Ho disinstallato VB4 e l'ho reinstallato....Niente!
Cheddevofà, formattare er disco???? Bruciare er computer???
Grazie
--
Automatic posted from 
ro...@dns.masterweb.it
 [195.120.154.2]
via Mailgate Server - 
http://www.mailgate.org

La seconda che hai detto !
Ma forse ti basta provare a reinstallare Windows, senza formattare.
Quello e' lultimo passo.
Ciao.
Federico Galli
FedE...@tin.it
Visual Basic and Delphi
http://www.geocities.com/colosseum/loge/2151

Newsgroup: it.comp.lang.visual-basic
Titolo: E' piu' veloce il VB5 o il VB6 ??

Fin'ora ho sempre usato il VB5, adesso sto per installare il VB6,
siccome non conosco la nuova versione, volevo chiedervi
che differenze ci sono per quanto riguarda la velocita del codice eseguibile
(.exe)
e in generale, e' piu' veloce il codice compilato (.exe) del VB6 o del VB5
??
E per quanto riguarda la grafica ??
I programmi che ho fatto in VB5 li posso caricare tranquillamente col VB6?
vi ringrazio in anticipo
Saluti
Morfeus

 wrote in message
news:8smgc8$isa$1...@nslave2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Delucidazioni varie

Ciao a tutti,
molto probabilmente le mie sono domande banali ma per la soluzione dei miei
problemi non tanto.
Primo problema č possibile utilizzare, e come se sě,  Imaging di Windows da
un applicazione scritta in VB6?
Inoltre pensate ci sia qualche altro modo per dividere files .tif contenenti
due immagini in file singoli?
Grazie anticipatamente per l'aiuto



 un applicazione scritta in VB6?
Installando Imaging si installanno anche degli ocx (imagedit.ocx, ecc)
che puoi utilizzare con vb.
Sono anche corredati di help.
Ciao
:-) Hd (-:
Newsgroup: it.comp.lang.visual-basic
Titolo: Solo cliccando sul file si puo' ?

Ho scritto un programma in VB5. Tale programma genera dei files che hanno
una estensione particolare. Abbinando tale estensione col mio programma
(Apri con...) riesco a farlo partire cliccando due volte sui files.
Quale e' la procedura per ottenere che il mio programma esegua delle
operazioni sul file cliccato? Chiaramente dovro' aggiungere del codice che
esegua quello che voglio fare con sto file ma dove trovo i parametri passati
dal doppio click? In qualche variabile speciale? Boh!
Vorrei ottenere insomma cio' che succede ad esempio cliccando due volte su
di un file .txt: viene aperto notepad e notepad apre e visualizza il
contenuto del file.

...

---------------
Per ottenere il nome del file su cui si è eseguito il doppio clic, è
possibile utilizzare la variabile "Command"; essa contiene il percorso
completo del file cliccato.  Non è necessaria alcuna dichiarazione
aggiuntiva, poiché Visual Basic definisce questa variabile in maniera
automatica.
Ad esempio, se si esegue un doppio clic su di un file di nome "PROVA.PRV",
contenuto nella directory radice dell'unità C: e associato al programma
Visual Basic in questione, il valore della variabile "Command" sarà:
"C:\PROVA.PRV"
Ciao. Marco


Newsgroup: it.comp.lang.visual-basic
Titolo: Esempio import/export CSV da VB ?

Ciao a tutti.
Qualcuno di voi avrebbe un esempio di codice VB per importare ed esportare
tabelle di un DB (Access o SQL2K) in formato testo delimitato o CSV ?
Grazie.
Roby

Ti includo una parte di codice di un mio progetto.
Vedi un po' tu se riesci a capire (e' abbastanza semplice anche se scritto
con i piedi).
Lascia perdere l'istruzione Select Case perche' il codice fa parte di un
procedura
che intercetta il tipo di tabella passato come parametro e decide di
conseguenza
cosa esportare in testo formattato.
Ciao
Kolo
 PathDB = Form1.DataBaseTxtBox.Text & Form1.DBAttivo.Text
   Set ArchivioDB = DAO.Workspaces(0).OpenDatabase(PathDB)
   Set Tabella = ArchivioDB.OpenRecordset(CommandQuery, dbOpenSnapshot)
   Tabella.MoveLast
   traguardo = Tabella.AbsolutePosition
   If traguardo = -1 Then Exit Sub
   BarraProgresso.Max = traguardo
   Contatore = 0
   Tabella.MoveFirst
   StringDescrArray = Split(CommandQuery, " ")
   InfoTab = StringDescrArray(3)
   InfoTab = UCase$(InfoTab)
Select Case InfoTab
   Case "LISTMANAGER"
    Print #12, "->START " & InfoTab
     While Not (Contatore = traguardo + 1)
         Swap = Tabella.Fields("numero")
         Swap = Swap & ";" & Tabella.Fields("Titolo")
         Swap = Swap & ";" & Tabella.Fields("generearchivio")
         Swap = Swap & ";" & Tabella.Fields("Supporto")
         Swap = Swap & ";" & Tabella.Fields("descrizione_gen")
         Swap = Swap & ";" & Tabella.Fields("descrizione_2")
         Swap = Swap & ";" & Tabella.Fields("Piattaforma")
         Swap = Swap & ";" & Tabella.Fields("rivista")
         Swap = Swap & ";" & Tabella.Fields("votazione")
         Swap = Swap & ";" & Tabella.Fields("Autore")
         Swap = Swap & ";" & Tabella.Fields("Durata")
         Swap = Swap & ";" & Tabella.Fields("filecopertina")
         Swap = Swap & ";" & Tabella.Fields("filelista")
         Swap = Swap & ";" & Tabella.Fields("filecopertinaB")
         Swap = Swap & ";" & Tabella.Fields("novita")
         Swap = Swap & ";" & Tabella.Fields("Note")
         Swap = Swap & ";" & Tabella.Fields("Lingua")
         Swap = Swap & ";" & Tabella.Fields("spazio1")
         Swap = Swap & ";" & Tabella.Fields("spazio2")
         Swap = Swap & ";" & Tabella.Fields("spazio3")
         Swap = Swap & ";" & Tabella.Fields("Twilight") & ";"
         Print #12, Swap
         Tabella.MoveNext
         BarraProgresso.Value = Contatore
         Contatore = Contatore + 1
     Wend
     BarraProgresso.Value = 0
         Print #12, "->END " & InfoTab
Newsgroup: it.comp.lang.visual-basic
Titolo: devo fare una formula che...

...scali le celle di excel quando trova il valore uguale a 0
ESEMPIO:
         A     B     C         D       E
01     32
02     12
03      0
04     11
05      4
06      0
07      0
08      0
09      31
10      0
11      0
12      45
nella colonna B deve apparire la sequenza:
32
12
11
4
31
45
PS: tutto questo ha un senso! non sono pazzo! ;)))
Grazie per l'aiuto

 PS: tutto questo ha un senso! non sono pazzo! ;)))
    Tranquillo, sappiamo come vanno le cose del (nostro) mondo.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:ahgc69$s9vqg$1...@ID-52090.news.dfncis.de...


 colonna B.
    Visto che lo devi fare tu mi sembra giusto che sia tu a decidere.


 > in pratica va bene tutto ciò ke mi consente di riportare i dati nella


 problema da solo... non c'č bisogno perň di prendere per il c...  GRAZIE
    Mi dispiace che tu abbia avuto questa impressione, non era mia
intenzione. Ammetto che il tono era "leggero", ma cio' che ho scritto e'
*terribilmente* vero. Dimmi: il lavoro lo devi fare tu si' o no? Si'? Allora
e' come minimo necessario che ti dia da fare per capire persino come
funzionano, e in cosa consistono, le tre possibilita'. Quindi... dialoga,
domanda, scrivi, datti una mossa. Altrimenti per cosa hai postato a fare,
scusa?


Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6 determinazione primo giorno della settimana

Da una data specifica e' possibile sapere qual'e' la data del primo giorno
della settimana?
Esempio. Ho questa data 27/07/05 che corrisponde a mercoledi. Vorrei sapere
a quale data corrisponde lunedi'.
Esiste una funzione che fa' questo??
Grazie per l'attenzione.


La sottrazione ;-)
Public Function TrovaLunedi(Byval unaData As Date) As Date
     TrovaLunedi = unaData - WeekDay(unaData, vbMonday) + 1
End Function
-- 
ciao, hal

 ha scritto nel messaggio
news:%XaFe.37043$b93....@tornado.fastwebnet.it...

Magari perň non sottraiamo un integer da un date (che funziona, ma non č
molto diciamo cosě "educativo"...)
    TrovaLunedi = DateAdd("d", - WeekDay(unaData, vbMonday) + 1, unaData)
Scusa la pignoleria! ;-)
Bye
Raf

 Scusa la pignoleria! ;-)
Figuriamoci, hai ragionissima. Ero stato tentato di usare DateAdd,
ma la pigrizia ha avuto il sopravvento.
-- 
ciao, hal

 ha scritto nel messaggio
news:gO8Fe.16684$a5.2...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Volevo stampare sul form tutti i caratteri asci

con questo codice
Dim a$
For i = 1 To 255
a = Chr$(i)
Print a
Next i
Purtroppo ho ottenuto solo
|
|
|
|
|
etc.
Uso vb 6
Conoscete un metodo efficace?
Grazie a tutti

For i = 32 To 255
I primi 32, da 0 (non da 1) a 31, non sono caratteri stampabili ma sono
caratteri "di controllo". Prova a lanciare charmap.exe: vedrai che la
visualizzazione parte da 32 (Spazio) e consulta le pagine "ASCII" (con due
"i") e "ANSI" della guida in linea. Guarda anche cosa dice a proposito di
Unicode.
In alternativa potresti stampare il "nome" dei primi 32 chrs come riportato
da qualsiasi (?) manuale dos o basic... Es.: 10=LF, 13=CR... E` anche molto
utile conoscerne il significato.
--
Ciao.
Maurizio
maurizio <nag...@TOGLIEREerresoft.com> wrote in message
3742882e...@news.interbusiness.it...


Unicode.
a dire il vero può stampare fino a 127 caratteri.. almeno in questo il Dos
era meglio.
bye

Newsgroup: it.comp.lang.visual-basic
Titolo: un disastro...

ciao a tutti e' venuto fuori un disastro...  nel senso che ho fatto un
clone del notepad di windows con altre aggiunte personalizzate poi in
seguito ho dovuto cambiare la textbox con una richtext e qui si e'
incasinato tutto nel senso che non capisco come mai e spero che qualcuno
mi possa aiutare!!!
avevo messo un comendo per invertire il colore di sfondo in questo modo:
If mnuNegativo.Checked = True Then
   txtEdit.ForeColor = &HFFFFFF
   txtEdit.BackColor = &H0&
   mnuNegativo.Checked = False
Else
   txtEdit.ForeColor = &H0
   txtEdit.BackColor = &HFFFFFF
   mnuNegativo.Checked = True
End If
con il textbox funzionava perfettamente... come mai con la richtext non
funziona!!! 
altro problema dei font avevo messo questo controllo ma ancora una volta
con la richtext non funziona come mai???
Select Case index
Case 10
    txtEdit.FontName = "FixedSys"
    txtEdit.FontSize = "9"
Case 11
    txtEdit.FontName = "Arial"
    txtEdit.FontSize = "10"
Case 12
    txtEdit.FontName = "Courier New"
    txtEdit.FontSize = "10"
Case 13
    txtEdit.FontName = "Times New Roman"
    txtEdit.FontSize = "10"
End Select
grazie a tutti per l'attenzione
Antoino.

 funziona!!!
Il problema è che entrambi i comandi che tu hai eseguito si comportano in
modo differente sui TextBox e sui RichText.
Il RichText a differenza del TextBox permette di modificare le proprietà di
singole parti di testo. Quindi quando tu cerchi di cambiare il colore,
oppure i font, devi specificare su quale parte di testo vuoi lavorare.
Questo non è vero per il TextBox, che può avere un unico font (e un unico
colore) attivo per tutto il suo contenuto.
Morale, guardati sull'help le istruzioni SelStart e SelLength e poi usa
SelFont e SelColor per cambiare le proprietà del testo selezionato.
Ciao
*Roby*
P.S.
Il Subject è sbagliato. Dovevi usare qualcosa tipo:
(?) Differenze tra RichText e TextBox

 (?) Differenze tra RichText e TextBox
ok alla prossima!!!
saluti
Antonio.

 (?) Differenze tra RichText e TextBox
I tag sono tra QUADRE, non mi rifare l'errore di [FAQ] ;-P
Ciaotutti,
Asterix

 I tag sono tra QUADRE, non mi rifare l'errore di [FAQ] ;-P
Opps, sorry. 8-)
Ciao
*Roby*
Newsgroup: it.comp.lang.visual-basic
Titolo: Registrare un componente.ocx

In un piccolo programma che ho fatto vi è un solo componente.ocx
Dopo averlo compilato vorrei portare l'.exe su un altro computer
senza fare il pacchetto d'istallazioni.
Poiché sul PC di destinazione questo componente è già istallato,
vorrei solo registrarlo.
Come si fa a registrare un componente.ocx?
''''''''''''''''''''''''''''''''''''''''''''''''''''
X creare un controllo standard faccio:
Private Sub Command1_Click()
    Dim c1 As TextBox
    Set c1 = Controls.Add("VB.TextBox", "MYtxt", Me)
        c1.Visible = True
End Sub
ma non è possibile settare le proprieta di solo lettura.
ad esempio non è possibile creare la proprietà Sorted = True
di una ListBox.
c'è un modo x farlo.
''''''''''''''''''''''''''''''''''''''''''''''''''''
X creare una RichTextBox faccio:
Private Sub Command2_Click()
    Dim c1 As RichTextBox
    Set c1 = Controls.Add("RICHTEXT.RichtextCtrl", "MYtxt", Me)
        c1.Visible = True
End Sub
Ma che ragionamento si fa x capire che dopo Controls.Add bisogna mettere
"RICHTEXT.RichtextCtrl"


Lancia regsvr32.exe [nome file ocx]

"RICHTEXT.RichtextCtrl"
Object Borwser
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 Come si fa a registrare un componente.ocx?
ti hanno gia detto cosa usare posso aggiungere una cosa che se lo lasci
nella stessa dir del programma ci pensa lui (o windows) a registrarlo :))
ciao
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

Newsgroup: it.comp.lang.visual-basic
Titolo: [Forse OT] Nella MSDN non ci sono gli esempi!

Salve a tutti,
ho appena reinstallato windows 2000, poi VB 6 e la MSDN library.
Prima di reinstallare windows andava tutto bene; mentre ora la MSDN si vede
come sempre tranne che tutti i 'link' che portano agli esempi che sono grigi
e non si possono cliccare!
Qualche idea?
grazie!

 Qualche idea?
2
1) hai installato msdn mozzato ( tipo hai scelo solo vb e non hai messo
altre voci ... ) => REISTALLA MSDN
2) Nella tabella di ricerca in alto ( SOTTOGRUPPO ATTIVO ) hai selezionato
solo un argomento e hai le altre voci in grigio , => Metti in quella casella
"insieme completo"

 "insieme completo"
fatto...
e gli esempi non ci sono ancora... :(
altre idee?
grazie
Newsgroup: it.comp.lang.visual-basic
Titolo: Printer Dialog senza ComDlg32.OCX

Salve a tutti,
Ho letto da qualche parte che non è realmente necessario utilizzare
l'OCX Common Dialog per richiamare una dialog File Save o File Open,
visto che l'OCX in realtà è solo un intrefaccia con le API per
facilitare l'uso di queste dialog.
Mi sono quindi chiesto se è possibile fare la stessa cosa per la
dialog Printer, così da ottenere, per tutta l'applicazione, gli ovvi
vantaggi che si hanno nel richiamare direttamente le API invece di
utilizzare la classica OCX, ovvero:
· un utilizzo inferiore delle risorse del sistema
· la riduzione dello spazio occupato sul disco dalla applicazione,
  dato che non ci sarà bisogno di includere l'OCX e i file di supporto
  nel pacchetto di distribuzione
Premesso che non ho molta esperienza con l'utilizzo delle API in
Visual Basic, ho "inventato" quanto segue:
Declare Function PrintDlg Lib "comdlg32.dll" Alias "PrintDlgA"
(pPrintdlg As PRINTDIALOG) As Long
Public Type PRINTDIALOG
    lStructSize         As Long
    hwndOwner           As Long
    hDevMode            As Long
    hDevNames           As Long
    hDC                 As Long
    flags               As Long
    nFromPage           As Long
    nToPage             As Long
    nMinPage            As Long
    nMaxPage            As Long
    nCopies             As Long
    hInstance           As Long
    lCustData           As Long
    lpfnPrintHook       As Long
    lpfnSetupHook       As Long
    lpPrintTemplateName As String
    lpSetupTemplateName As String
    hPrintTemplate      As Long
    hSetupTemplate      As Long
End Type
Dim pPrintdlg As PRINTDIALOG
Dim Ret As Long
With pPrintdlg
    .lStructSize = Len(pPrintdlg)
    .hwndOwner = Screen.ActiveForm.hwnd
End With
Ret = PrintDlg(pPrintdlg)
ma niente da fare, mandando in esecuzione il codice, pur non ricevendo
alcun messaggio di errore, non viene visualizzato un bel nulla !!!
Dove sbaglio!
Sarò grato a chiunque mi darà una mano a capirci qualcosa di più...
Patrizio


Ti ho mandato via e-mail un modulo di classe che dovrebbe andarti bene.
Se trovi problemi/bugs/etc  fammi sapere!
--
Roal Zanazzi
z...@iol.it


Se possibile mandalo sul sito comune in maniera che sia disponibile a
tutti.
Ciao grazie
Pino
--------------------------------------------------------
Bombelli Giuseppe
ENEL - Ricerca
Via Volta 1 Cologno Monzese (MI)
--------------------------------------------------------


Ehm... preferirei non mandarlo al sito comune, per il semplice motivo che e'
ancora incompleto e non testato.
Se qualche anima pia vuole fare un bel test approfondito del modulo di
classe, mi faccia sapere, cosi' lo sistemo e lo mandero' al Sito Comune.
--
Roal Zanazzi
z...@iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] ADO, Access 2002 e funzioni nei moduli.

Non riesco a capire perchè non riesco, tramite Ado OLEDB Jet 4.0 ad
eseguire una query che posso eseguire invece da interfaccia di access.
In pratica:
-Prendo un DB access 2002 con una tabella: "tasse" con i campi id_tassa
long,tassah double,tassar double
-Aggiungo al DB access in un modulo la funzione pubblica elabora() che
manipola alcuni numeri:
Function elabora(v As Variant) As Double
    elabora = v + 1 ' è solo un esempio
End Function
-Creo una query/vista chiamata tasse_elaborate che ha tutti i campi della
tabella tasse ma con alcuni valori gestiti dalla funzione elabora. ovvero
la vista è:
SELECT id_tassa, elabora(tasse.tassah) AS tassah, elabora(tasse.tassar) AS
tassar from tasse;
-eseguo la query "select * from tasse_elaborate" da interfaccia di Access
ed ottengo il risultato desiderato (ovvero una tabella in cui le tasse
sono elaborate.
-eseguo la stessa query da VB6 tramite Ado 2.8 OLEDB Jet 4.0 ed ottengo
"funzione elabora() non definita nell'espressione".
Qualcuno sa se è possibile qualche workaround o se sto cercando di fare
qualcosa che non è previsto by design?
termoPilucco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

qualcosa che non č previsto by design?
Mi era capitata una cosa simile tempo fa. Credo che sia corretto che
ADO non veda la funzione perche' il modulo di Access fa parte dell'
*applicazione* Microsoft Access e non del *database* (giusto per usare
un eufemismo :-P) Access.
Sempre in teoria, dovresti istanziare un oggetto Access.Application e
far eseguire la query da questo.
-- 
ciao, un hal di passaggio

 far eseguire la query da questo.
Immaginavo anche questo ma non osavo dirlo :-/
Vabbe' ho capito che devo tornare alla fase di progettazione del mio
accrocchio :)


Newsgroup: it.comp.lang.visual-basic
Titolo: WPF, multithreading e database

Sono in WPF...
Ho un FileSystemWatcher che genera un evento "Changed".
Ogni volta che viene generato l'evento Changed, devo scrivere un
valore in una TextBox.
Dato che l'evento del FileSystemWatcher viene eseguito in un thread
diverso da quello principale, ho scritto il seguente codice:
Delegate Sub DBEditingCallback()
Private Sub DBEditing()
    If Me.txtDB.Dispatcher.Thread IsNot
System.Threading.Thread.CurrentThread Then
        Dim d As New DBEditingCallback(AddressOf DBEditing)
        Me.Dispatcher.Invoke(d, New Object() {})
    Else
        Using Cn As New OleDbConnection(ConnString)
            Cn.Open()
            '[Varie operazioni...]
        End Using
    End If
End Sub
Si verifica un'eccezione sulla riga Cn.Open(), dopo che richiamo il
codice con un semplice DBEditing.
E' una TargetInvocationException, il messaggio è il più esplicativo
che io abbia mai visto: "Eccezione generata dalla destinazione di una
chiamata." ...
Qualcuno ne sa qualcosa? Grazie!

Risolto.
Era un semplice errore nel codice che mi veniva segnalato in quel
modo...