mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: urgente: come scivere una funzione di connessione con adodb??

Salve,
vorrei scrivere una funzione che mi consenta di connettermi ad un database
utilizzando adodb
e di effettuare una query, questa function dovrebbe prendere in ingresso una
variabile contenente la stringa sql e in uscita mi dovrebbe restituire il
recordset....ma è possibile farlo?
io nel mio modulo ho scritto qualcosa del genere:
Function recordset(sql As String)
NomeDB = App.Path & "\mdb\database.mdb"
strcn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & NomeDB & ";Persist
Security Info=False"
Set cn = New ADODB.Connection
set rec = New ADODB.recordset
cn.Open strcn
rec.Open sql, cn, 3, 3
recordset = rec
End Function
ma mi da l'errore "numero errato di argomenti o assegnazione di propietà non
valido"
mi potreste aiutare a scrivere bene questa function?
grazie 1000
__________________
~~A L B A D U R~~
"noi simme cori aridi/nimici de la pace
quanno dui cori s'ammano/noi tutti ci dispiace"
http://web.tiscalinet.it/smisuratapreghiera/

 recordset = rec
[cut]
Dal momento che quello che viene restituito è un riferimento ad un oggetto
devi mettere davanti la Set:
Set recordset = rec
Saluti.
--
Andrea Garbagnoli
garb...@tin.it



e che sintassi devo utilizzare per richiamare questa function?
se faccio nel form
dim risultato as variant
risultato = recordset(sql)
e lancio un ciclo while sul recordset
while not risultato.eof
'istruzioni
wend
mi dice
"propietà o metodo non supportati dall'oggetto"
e mi indica sbagliata la riga del cilo while
xchè non me lo fa fare?
che cosa devo fare?
grazie
albadur
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6] tracciati cbi

Salve a tutti,
avete mai creato un file in formato cbi per l'inoltro dei bonifici alle 
banche? Io non sono riuscito a trovare le specifiche e ho fatto la 
trascodifica di un progetto 
vb.net
 ma ovviamente nun va :(
Grazie 1000
A. 



Si delle RiBa, se non erro i bonifici non c'entrano nulla, però ovviamente
non posso postare la procedura intera. E' un file a record di lunghezza
fissa, 120 o 122 caratteri (con o senza ritorno a capo).
Prova a postare un po' di codice o a capire dove sta l'errore, il file è
solitamente semplice.
Parti da questo:
http://www.visual-basic.it/articoli/lbRiBa1.htm
(come immagino hai fatto)
e vedi se i files che vengono fuori sono uguali ad un confronto binario.
Alcune banche vogliono che il file abbia estensione es. .txt, prima non era
necessario (da 1 annetto).

 necessario (da 1 annetto).
Posto anche la procedura che genera la riga di tipo 10 che è quella che mi 
dà errore...
Public Function Row10(ByRef rs As adodb.Recordset, ByRef i As Integer) As 
String
        Dim riga10 As String
        If rs.EOF = False Then
            riga10 = " 10"
            riga10 = riga10 & Pad(i + 1, -7, "0")
            riga10 = riga10 & Pad("", 6)
            riga10 = riga10 & Format(Now, "ddMMyy")
            riga10 = riga10 & Format(Now, "ddMMyy")
            riga10 = riga10 & Pad("48", 5, "0")
            riga10 = riga10 & Pad(Trim(rs!Importo), -13, "0")
            riga10 = riga10 & Pad("+", 1) ' ok
            riga10 = riga10 & Pad(Trim(Form1.txtABI.Text), 5, "0")
            riga10 = riga10 & Pad(Trim(Form1.txtCab.Text), 5, "0") 'ok
            riga10 = riga10 & Pad(Trim(Form1.txtConto.Text), -12, "0")
            riga10 = riga10 & Pad(Mid(Trim(rs!iban), 6, 5), -5, "0")
            riga10 = riga10 & Pad(Mid(Trim(rs!iban), 11, 5), -5, "0")
            riga10 = riga10 & Pad(Mid(Trim(rs!iban), 16, 12), -12, "0")
            riga10 = riga10 & Pad(Trim(Form1.txtSia.Text), 5)
            riga10 = riga10 & Pad("4", 1)
            riga10 = riga10 & Pad("", 16)
            riga10 = riga10 & Pad("0", 1, "0")
            riga10 = riga10 & Pad("", 5)
            riga10 = riga10 & "E"
            Totale = Totale + CDbl(rs!Importo)
            Row10 = riga10
        End If
End Function
Grazie 1000
A.

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Microsoft Winsock Control 5.0 (SP2)

CIao a tutti,
quando tento di inserire un controllo winsock mi esce una finestra di
errore con il seguente messaggio:
"Non sono disponibili informazioni sui diritti di licenza per questo
componente. Non sono disponibili i diritti di licenza necessari per
utilizzare questa funzione in ambiente di progettazione".
Io ho acquistato la licenza studente ed ho la versione professional,
e' questo il motivo???
C'e' qualche rimedio?? 
Grazie a tutti
  Andrea
e-mail :  
alon...@login.it

 C'e' qualche rimedio??
 La medicina -> 
csf0137.server101.com/memberspp/master/vbcfix.zip

Grazie, l'ho scaricato ora, lo provero' al piu' presto!

Newsgroup: it.comp.lang.visual-basic
Titolo: CR e PW è possibile ?

Ciao a tutti nel NG,
qualcuno potrebbe spiegarmi come si crea una stringa di connessione ad un DB
access con crystal report se il DB ha una password.
Mi dice sempre che la PW č errata.
Grazie
Enzo

Così funziona, col DSN purtroppo.
Ciao!

Newsgroup: it.comp.lang.visual-basic
Titolo: ObjectContext

Qualcuno di voi saprebbe darmi una dritta su come poter integrare la
questione delle transazioni con l'aggiornamento di un semplice file di
testo?
Se io faccio un append nel file è possibile eliminare quell'append usando il
metodo SetAbort dell'ObjcetContext ???

 metodo SetAbort dell'ObjcetContext ???
ti suggerirei di approfondire meglio l'argomento leggendo gli articoli su
MSDN.
-vibino

Newsgroup: it.comp.lang.visual-basic
Titolo: [.Net] file di configurazione applicazione

Ciao,
sono riuscito a creare un file di configurazione di questo tipo:
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<section name="myConfig"
  type="System.Configuration.NameValueSectionHandler"/>
</configSections>
<appSettings/>
<myConfig>
  <add key="language" value="eng"/>
</myConfig>
</configuration>
Riesco poi a leggere all'interno del form il valore di "language" così:
Dim myConfig As NameValueCollection = 
DirectCast(ConfigurationSettings.GetConfig("myConfig"), NameValueCollection)
MsgBox(myConfig.Get("language"))
Ho provato poi a modificare tale valore così:
myConfig.Set("language", "ita")
Il problema è che mi dice "insieme di sola lettura"!!!! Come posso fare?
grazie mille

 Il problema č che mi dice "insieme di sola lettura"!!!! Come posso fare?
Una indicazione;
una classe che eredita da NameValueCollection.
Ed eseguire il tutto da detta classe.
Ave
giuseppeD
---
CCR

 Ed eseguire il tutto da detta classe.
Scusa ma non ho capito niente! :-)
Sto cercando di imparare tra libri e pagine web, ma proprio non capisco 
cosa vuoi dire; potresti farmi l'esempio?
grazie infinite

 cosa vuoi dire; potresti farmi l'esempio?
Costruisci una classe tipo la seguente:
Public Class configurazione
    Inherits System.Collections.Specialized.NameValueCollection
'metodo
'metodo
'metodo
End Class
La classe eredita il tutto da 
System.Collections.Specialized.NameValueCollection
All'interno puoi impostare i metodi per aggiungere la coppia chiave|valore 
alla collection,
quindi modificare il valore alla chiave desiderata.
Dalla form puoi istanziare la classe, tipo:
Dim cfg As configurazione
cfg = New configurazione
Ave
giuseppeD
---
CCR
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettura seriale

Salve,
non vorrei essere OT...
Sapete se le Usb Pen hanno un numero seriale scritto fisicamente in ognuna 
Pen?
Intendo un seriale non modificabile con i programmi che leggono le unità 
discono e vi scrivono in Hex.
Grazie per le risposte.
Mario 

 ha scritto nel messaggio 
news:49a41c16$0$1117$4faf...@reader2.news.tin.it...


 tutto il software a corredo ...
Interesserebbe anche a me.
Dove posso guardare?
ciao
Salvatore

Newsgroup: it.comp.lang.visual-basic
Titolo: Comunicare via seriale

Salve a tutti.
Sono un appassionato di visual basic
e mi piacerebbe costruire una classe che comunichi via seriale 
per controllare dell'hardware esterno ma il classico controllo "MS COMM"
è un po pesante, inoltre vorrei non dipendere da nessun oggetto in
questa classe.
Mi hanno detto che è pssibile fare una cosa del genere con le api,
vorrei sapere come ???????????
Se lo sapete anche per la parallela????????
grazie anticipatamente...
-- 
Jasca Bianco
sostituisci i + coi - per rispondermi

vorrei sapere come ???????????
Mi sembra ci sia qualcosa sul sito comune. Se non e' li', c'e' su uno
dei siti linkati.
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

Newsgroup: it.comp.lang.visual-basic
Titolo: VB e *.dbf

Ciao a tutti...
avrei bisogno di sapere come posso aprire dei file in formato dbf
(dbase) da visual basic e poter accedere a tutti i record
memorizzati... forse ci vuole una libreria apposita?
Temporaneamente ci ho messo una toppa facendo una macro in excell,
dato che excell apre i dbf mantenedo tutti i campi al loro posto... ma
e' un pacco ogni volta aprirsi excell...
Grazie!
,      ,+''+,   LOGiN
 '+,,+'  ICQ: 8457530

...

no libreria apposita
no Excel
impostare
proprietà Connect dBASE IV;
proprietà DatabaseName directory database
proprietà RecordSource nomefile.dbf
Newsgroup: it.comp.lang.visual-basic
Titolo: ?] backcolor su form

Come posso fare ad applicare uno "sfondino" che non è tinta unica ad un
form?
O non si puo' fare
Ciao Joe

 form?
Proprietà Picture?

 Proprietà Picture?
Non mi sono spiegato bene o meglio non completamente, la mia necessità è
apporre un immagine piccolissima e farsì che si affianchi (piccolo logo
della ditta e ripetuto per tutto il form ) non c'è Modo ?
Grazie ciao joe

 della ditta e ripetuto per tutto il form ) non c'è Modo ?
Metti una Picture (o una Image, meglio) con Index 0, carica altri "cloni"
con Load image(n), visualizza e posiziona.
Sinceramente non so se esiste altro metodo, altrettanto sinceramente non lo
farei, specialmente se i duplicati sono molti.

 della ditta e ripetuto per tutto il form ) non c'è Modo ?
Ne carichi uno in una Picture piccola e non visibile, poi nella
sub Resize fai il tiling con la PaintPicture sullo sfondo del form.
Mi pare ci sia un esempio sul Sito Comune (in firma).
Oppure c'è questo post di Hal:
http://groups.google.com/groups?selm=9ppkrl%24jueih%241%40ID-56381.news.dfncis.de
Ah, c'è un Cls nelle prime righe che si può eliminare ;-)
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

Ringrazio infinitamente tutti provo subito.
Joe

 farei, specialmente se i duplicati sono molti.
scusa ma a sto punto basta creare una immagine diciamo a 1024x768 con i
loghi che si susseguono e metterla nella proprieta' picture , alla fine
credo sia meglio 1 immagine grossa con 1 solo controllo magari centrata che
non molte immaginine piccole con molti controlli e codice "inutile" ?
si puo' metterla alla proprieta' picture del form , oppure ad un oggetto
picture centrato nel form !

 O non si puo' fare
A suo tempo avevo trovato in rete un ocx free che facevo proprio questo, ma
era per Vb3.
Probabilmente lo trovi anche per le versioni successive.
Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto! Rimettere a null dei campi numerici in textbox collegate

Salve a tutti, credo che chiunque abbia scritto un'applicazione di database
con vb e access abbia riscontrato quanto sto per dire.
Uso controlli data e textbox collegate ai vari campi. Quello che mi succede
è che se cancello il contenuto di una textbox collegata a un campo
dichiarato come un numero o una data (cioè tutto tranne che stringa) quando
faccio l'update compare l'errore "azione eliminata da un oggetto associato".
Questo succede se cancello il contenuto di un campo, ma anche in seguito
all'aggiunta di un nuovo record se riempio la text e prima di convalidare la
cancello. Esiste una soluzione migliore dello scollegare da codice la text
per poi ricollegarla?
Sarò molto grato a chi mi risponderà! (meglio su email, ma gradita
ovunque!!!)
Carlo.
cgrecT...@tin.it

...
[...]



Premesso che pare che la cosa sparisca con gli ADODataControls di VB6, io ho
risolto questo ed altri problemi dei DataControls di VB5 con delle funzioni
che puoi scaricare dal sito di Carlo Berti: 
http://www.dex-net.com/EC837
Il file si chiama DB_con_Query.zip, e contiene i sorgenti, un doc di
istruzioni ed un esempio.
Le funzioni sono chiaramente personalizzabili a seconda delle necessità
(Semmai, fammi poi sapere cosa ne pensi)
Spero di esserti stato utile
Ciao
Maurizio B.
mrzNOMMI...@tin.it
 (eraseNOMMISPAMMA)

Newsgroup: it.comp.lang.visual-basic
Titolo: Bitmap centrale in una MDIForm

Come mettere una bitmap come sfondo in una MDIForm è semplicissimo.
Ma per far si che la bmp resti centrale (tipo uno sfondo di windows appunto
centrato) come si fa?
Grazie 
Ciao 
p...@citynet.re.it

Se è così facile lo spieghi anche a me (spero senza catturare i
messaggi!)... il problema della centralità per me non è importante.

Con VB5 esiste la proprieta Picture nelle MDIForm ove scegliersi una bmp
come sfondo.
Con i VB precedenti non ricordo, ma ho letto in qualche FAQ e non è troppo
complicato.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Posta e News. News.CIS.DFN.DE :(

Il sopracitato server (
News.CIS.DFN.DE
) č sempre giů. Qualcuno sa
consigliarmene uno gratuito ma un po piů decente?
Poi noi siamo sotto TIN, ma i 
news.tin.it
 sono na decina (solo i newsgroup
telecom)... sbaglio qualcosa?
Scusate l'OT!
P.S. Scrivetemi su 
seb...@hotmail.com
CiaoZ
SebaMix (c)(r)
--
------------------ - -  -   -    -     -      -
Sito Comune del newsgroup it.comp.lang.visual-basic
http://www.murialdo.it/it_lang_vb
------------------ - -  -   -    -     -      -
Rimuovete NOSPAM dall'indirizzo per scrivermi...
Remove NOSPAM from address to write me...
------------------ - -  -   -    -     -      -

 consigliarmene uno gratuito ma un po piů decente?
news.unina.it
 (perň č in sola lettura) :-(
[OT] su [OT]
Considerazione personale: il miglior news che ho provato rimane comunque
news.teleglobe.net
 (che purtroppo non č free)

 
news.teleglobe.net
 (che purtroppo non è free)
Soldi?
Tanti?
            Allanon

 ha scritto nel messaggio
news:997asa$gpd$1...@ID-66833.news.dfncis.de...


 ha scritto nel messaggio
news:997lrl$2661$1...@ID-63501.news.dfncis.de...


No, capita anche a me negli ultimi due giorni... Vabbe'... nessuno é
perfetto... :-))
Certo che se Fastweb aprisse finalmente il suo bel server delle News porka
miseria! :-((
        Ciao
                Allanon

 Tanti?

 Boh...
si', alcune volte va giu'. e sono aumentate ultimamente.
ma sospetto che sia per il sovraccarico di transfughi da altri server.
ho provato quelli di tin, interbusiness, libero, wind e qualcun altro.
questo in confronto e' un bijoux...

Newsgroup: it.comp.lang.visual-basic
Titolo: Pacchetti Installazione...

(Non riesco a capire se è arrivato il mess. nel NG)
Ragazzi, sono sconsolato....
Utilizzo VB6 SP5,  in teoria i problemi riscontrati con i vecchi SP riferiti
ai pacchetti di Installazione dovrebbero essere spariti, e invece?
NOOOOO!!! Nel senso, ho creato una nuova applicazione, soliti ocx
(SmartnetButton ecc.ecc.) creo il mio Bel Pacchetto di installazione senza
errori, Vado nel Pc del Cliente ad installarlo, e appena avvio
l'applicazione, mi da l'errore di CLSID col solito codice della chiave non
registrata... Lo risolgo, Registrando a Manina (RegSvr32) la DLL DAO350.DLL.
Riavvio l'appl. e mi da sta volta "Errore di Accesso ai Dati", benissimo
dico io... dopo prove e riprove, Lascio intatto sia L'EXE che il ".MDB" e
lancio un mio vecchio pacchetto di installazione fatto sempre con l'uty di
M$... e bene, l'ancio l'applicazione nuova e FUNGEEEEEE!!!!!
Sigh, ho pensato che fosse un Problema di Compatibilità DAO350 che dal
pacchetto vecchio a quello nuovo cambia la data.
Avete mica un rimedio più immediato?
Grazie e spero di essermi spiegato bene... (Anche se non credo..;o) )

 wrote in message
9t0tmq$7ub$1...@nreada.inwind.it...


salve,
prova a dare un'occhiata all'articolo Q159411 sul KB di MS....
saluti
Andrea Montanari
montanar...@virgilio.it
http://utenti.tripod.it/a_montanari/dbamgr.html
(my vb6+sql-dmo little try to provide MS MSDE 1.0 a visual interface) ver
0.0.26
--------- remove **nospam to reply

Newsgroup: it.comp.lang.visual-basic
Titolo: Due quesiti interessanti.

1 - Se da un programma in VB5 salvo un'immagine con il savepicture, questa
viene salvata in formato BMP anche se gli do l'estensione JPG.
Domanda  - Esiste la possibilità di salvare una picture in foema JPG
compressa?
2 - Se si volesse applicare ad un programma l'opzione di associare una certa
estensione .per ad esempio JPG per ottenere con il doppio click l'apertura
del programma senza ricorrere alla macchinosa operazione non alla portata di
tutti di crearla con le opzioni.
domanda  - Esiste la possibilitè di dare all'utente la facoltà di associare
le estensioni al programma come fanno ad esempio ACDsee Winamp ecc.?
Sarei molto grato a chi mi rispondesse.
Cordialità
Tullio Naglieri - Roma
t.nag...@inwind.it
Oppure
t.nag...@tin.it
Visitate la mia WEB page:
http://digilander.iol.it/naglieri/


Ti si apre la finestra di dialogo per salvare il file?


 domanda
Si lo puoi fare!! Devi 'registrare' la tua nuova estensione nel registro di
sistema ed associarle il tuo programma per aprirle. Apri il registro
(esegui -> regedit) e dai un'occhiata alla voce HKEY_CLASSES_ROOT. Qui sono
registrate tutte le estensioni. Apri la cartella relativa ad una estensione
da te conosciuta (es. .doc) e guarda tutti i parametri necessari per far
aprire un documento con il semplice doppio click come da te richiesto.
Per manipolare il registro devi usare delle API. Puoi cercare sul sito
comune.
-Ciao-
-Luca450Mhz-

 > viene salvata in formato BMP anche se gli do l'estensione JPG.
è normale, per salvare in formato JPG devi munirti della libreria
ImageUtils.dll

Newsgroup: it.comp.lang.visual-basic
Titolo: Uso di Text-to-speech in Italiano

Caro NG,
ho scaricato dal sito M$ la versione italiana di Text-to-speech e l' ho
istallatta sul mio PC.
Vorrei sapere adesso come faccio ad usarlo in VB, dato che non sono riuscito
a trovare delle info sulle funzioni interne alle librerie DLL che sono state
istallate.
Ciao
Duke

 ha scritto nel messaggio
news:iM5a8.4674$tv6.1...@twister1.libero.it...

[Scusate lo sfogo ON]
BASTAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA!!!!!!!!!!!!!!!!!!!!
Ogni giorno le stesse domande del
caxxo!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Guarda i post vecchi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
[Fine Sfogo]

 ha scritto nel messaggio
news:iM5a8.4674$tv6.1...@twister1.libero.it...

vorrei sapere l'indirizzo esatto da dove hai scaricato text to speek
italiano e quanto Mb e' perche penso siano parecchi
leonello


wrote:

dovresti trovare sotto i components di visual basic l'oggetto
DirectTTS o qualche cosa di simile.
--
Ciao!
Davide

italiano e quanto Mb e' perche penso siano parecchi
non più di 3Mb. L'oggetto TTS è di max 1,2Mb (il pacchetto di
installazione che ho generato per prova era di 1,5Mb)
--
Ciao!
Davide

 ha scritto nel messaggio
news:PNba8.63667$3J1.1...@news2.tin.it...

Questo è l'indirizzo:
http://www.microsoft.com/msagent/downloads.htm
sono circa 2Mb di roba!
Un grazie a Duccio!
Bye
Newsgroup: it.comp.lang.visual-basic
Titolo: [!]VBAccelerator S-Grid2

http://www.vbaccelerator.com/home/VB/Code/Controls/S_Grid_2/index.asp
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!

 
Qualcuno ha provato la demo di questo controllo. A me si inchioda 
l'applicazione con 99% di occupazione della cpu.
Se tento di aprire un form della demo in cui e' contenuto l'ocx si 
inchioda vb...
:-(
	maxx
P.S. vb6 sp5 w2k sp4


a me funge.
vb6 sp5 w2k sp4 anche io.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 ha scritto nel messaggio
news:c106iq$1c7hjp$1...@ID-97197.news.uni-berlin.de...


> Anche a me succede la stessa cosa, hai risolto ?
Se continui a leggere il thread leggi la mia risposta e anche che ha
risolto... ;-)


 
A dire la verita' la risposta e' in un altro thread:
http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&threadm=c137mp%241doafd%241%40ID-97197.news.uni-berlin.de&rnum=2&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DISO-8859-1%26q%3Ds-grid2%26btnG%3DGoogle%2BSearch%26meta%3Dgroup%253Dit.comp.lang.visual-basic
ciao
	maxx



http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&threadm=c137mp%241doafd%241%40ID-97197.news.uni-berlin.de&rnum=2&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DISO-8859-1%26q%3Ds-grid2%26btnG%3DGoogle%2BSearch%26meta%3Dgroup%253Dit.comp.lang.visual-basic
Si scusa. Il problema è che OE non mi fa più visualizzare il thead
originale, quindi sono andato a mente...


 ha scritto nel messaggio
news:QGG8c.10218$jY1....@tornado.fastwebnet.it...


 Grazie mille
Prego


Newsgroup: it.comp.lang.visual-basic
Titolo: Cristal report

Qualcuno mi sa dire perchè nel controllo cristal report a cui ho
associato un controllo "Data", VB, invece di crearmi il report come
l'ho impostato io, ne fa uno tutto suo. Ho meglio se io nella
proprietà "reportsource" (mi sembra si chiami così ), non gli imposto
nulla ho gli imposto un determinato file. rpt, per Vb è lo stesso, se
ne frega di tutto è fa come vuole. Quale proprietà ho settato male?
Chiedo pazienza, sono un principiante.
Simone

 wrote in message
39eac140...@news.comune.jesi.an.it...



Grazie per la risposta, ma il mio problema č un altro. Infatti nel
report la SELECT č fatta bene, quello che non fa bene č la
visualizzazione del foglio con le opzioni che io ho inserito in CR
(grassetto, titoli, raggruppamenti, ecc.), č normale oppure devo
settare qualcos'altro?
 Se nel ReportFileName io inserisco un file .rpt, ho non indico nessun
file, per VB fa lo stesso, crea comunque un report con impostazioni
del foglio che non capisco dove trova.
Grazie ancora,
Simone

 wrote in message
39eaeade...@news.comune.jesi.an.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [AIUTO] devo risalire al codice dall'exe(non sono un hacker)

Lasciate perdere ho fatto prima a riscrivere tutto pazienza.
Dani

 Lasciate perdere ho fatto prima a riscrivere tutto pazienza.
Cioč: hai aperto questo post, senza inviarlo, hai riscritto il sorgente e
poi hai comunque inviato il post?
... la bottiglia č finita, vero? eppure hai una gran sete, vero? ;-) ;-)


boh il primo post risale a 01/04/03 un bel pň di tempo perchč dici che ho
postato solo il 04/05/03 ? in questo mese mi sono riscritto il codice che mi
ha portato via appunto un mese. Se sei ironico per il fatto che ho chiesto
una info che mi poteva far sembrare un acker allora ti capisco........
purtroppo il guaio me capitato sul serio.....pazienza.
Ciao
Dani

purtroppo il guaio me capitato sul serio.....pazienza.
Coraggio, d'ora in poi la parola d'ordine del giorno sara':
BACKUP
-- 
ciao, hal

 postato solo il 04/05/03 ?
Non avevo visto il Re:, mi sembrava un nuovo post. Scusami.

 Lasciate perdere ho fatto prima a riscrivere tutto pazienza.
Beh, diciamo che ci sei arrivato da solo all'unica soluzione valida.
E' vero che esistono i cosiddetti "decompilatori", ma è pur vero
che (per vari motivi) il codice sorgente così prodotto è talmente
ingarbugliato e pieno di riferimenti criptici tipo
    If Struttura003_Campo004 < Struttura047_Campo088 Then GoTo Label023
da essere praticamente inutilizzabile.
--
Er Roscio.

Grazie comunque a tutti per la solidarietą, perdonatemi ma la domanda era
dettata dalla disperazione.
A presto .
Dani

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo dati in arrivo

In poche parole avrei bisogno che il programma interpretasse i data arrival
dei winsock [Private Sub ws_DataArrival(ByVal bytesTotal As Long)]
Ad esempio se per caso arriva una risposta dal server del tipo
"502 no such group" oppure "502 *" (dove l'asterisco indica qualsiasi cosa
dopo) nella txt1.text vieni scritto "Newsgroup nn esistente"
QUal'è il codice?
Tnx
--
Imperator
CGFI - Comitato Gestione Free.It
www.freeit.info
 - 
cg...@freeit.info
Posted from X-Privat Free NNTP server - 
www.x-privat.org

 Tnx
Dim sData as String
ws.GetData sData,vbString
If left(sData,3)="502" Then
    Text1.Text="Newsgroup NON esistente"
End If
ciaociao

Newsgroup: it.comp.lang.visual-basic
Titolo: Installazione

Mi servirebbe una documentazione o qualc'osaltro (?) per installare
un'applicazione vb senza usare il kit (questo perché mi capita spesse volte
di avere problemi di compatibilita con dll presenti sul sitema)
Grazie in anticipo!

 wrote in message 7mmvvd$ecq$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: chiamare funzione di un modulo

Ciao,
ho un piccolo problema: quando da un modulo (modulo1) chiamo una funzione di
un altro modulo in questo modo
id=modulo2.cerca(parametro)
e nel modulo1 è presente una funzione di nome "cerca", mi viene generato un
errore...eppure io specifico che la funzione è in modulo2...Perchè? Come si
risolve il problema?
Grazie

 Grazie
non penso si possa risolvere
E' una dichiarazione public a livello di modulo
crea una classe

 E' una dichiarazione public a livello di modulo
ma perchè se io specifico Modulo2.nomefunzione non dovrebbe andare?

 ma perchè se io specifico Modulo2.nomefunzione non dovrebbe andare?
no questo vale per un form che è un oggetto
oggetto1.nomefunzione
oggetto2.nomefunzione
è corretto
un modulo non è un oggetto
se dichiari all'interno di un modulo una variabile o una funzione come
public per renderla visibile all'esterno questa sarà visibile da qualsiasi
parte del programma ma come "entità" a se stante non dipendente da nessuno
invece di creare un modulo di classe..come ti avevo detto prima....rinomina
la funzione!
ciao
marco

 ha scritto nel messaggio
news:z2Zqd.19239$C94....@tornado.fastwebnet.it...

Quale messaggio di errore appare? Si verifica quando compili o a runtime al
momento dell'invocazione della funzione Cerca?
A me risulta che sia possibilissimo definire due funzioni omonime in moduli BAS
diversi dello stesso progetto (provare per credere).
L'unica accortezza è quella di anteporre sempre il nome del modulo davanti al
nome quando la si invoca in un modulo in cui non è definita, altrimenti in fase
di compilazione darà l'errore "Ambiguous name detected: ...".
Questo esempio lo dimostra:
-- Module1.bas --
Option Explicit
Sub Main()
Dim id  As Long
    id = Module2.Cerca("PIPPO")
    ' Se scrivo Cerca senza anteporre Module2, invoca quella "locale"
    id = Cerca("PIPPO")
End Sub
Public Function Cerca(ByVal Codice As String) As Long
    MsgBox "Invocata la funzione Cerca di Module1"
End Function
-- Module2.bas --
Option Explicit
Public Function Cerca(ByVal Codice As String) As Long
    MsgBox "Invocata la funzione Cerca di Module2"
End Function
Bye
Raf

Newsgroup: it.comp.lang.visual-basic
Titolo: Cancellare celle di una Msflexgrid

Dovrei cancellare il contenuto di tutte le righe che si trovano in
determinate
colonne di una MSflexgrid. Come Faccio  ?
Grazie a chi mi aiuta.

 ha scritto nel messaggio
news:gFd47.99385$cd.5...@news1.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: EOF Error

Having a bit of trouble reading a text file.  My text is something like:
username,1717
anothername,1278
my program is simply (in vb6 pro):
Dim MyString, MyString2
Private Sub Form_Load()
Open "C:\winnt\temp\userlist.txt" For Input As #1
Do Until EOF(1)
Input #1, MyString, MyString2
MsgBox MyString
List1.AddItem MyString
Loop
Close #1
End Sub
But is keeps saying Runtime error '62' Input past end of file
I think the problem is that there is a blank line at the end of the text
file.  Is there a way of chomping it like in perl?  I have tried things like
if MyString="" then bla bla...  and Do Until EOF(1)-1.  Anyone any ideas?
they would be gratefully recieved.
thanks
andy

 ha scritto

andrew
Private Sub cmdImport_Click()
    On Error GoTo errman
    Dim fName As String, nLine As String, fNum As Integer
    Dim str() As String
    fNum = FreeFile
    fName = App.Path & "\foo.txt"
    Open fName For Input As #fNum
    Text1 = ""
    Do Until EOF(fNum)
        Line Input #fNum, nLine
If InStr(nLine, ";") Then
        str() = Split(nLine, ";")
        Text1 = Text1 & str(0) & " -- " & str(1) & vbCrLf
        Text1.SelStart = Len(Text1)
End If
        DoEvents
    Loop
    Exit Sub
errman:
    Text1 = Text1 & vbCrLf & "##################"
    Text1 = Text1 & vbCrLf & Err & " -- " & Error
    Text1 = Text1 & vbCrLf & "##################"
    Text1 = Text1 & vbCrLf
    Resume Next
End Sub
i just tried with a txtfile like this:
    aaa;bbb
    ccc;ddd
    111;222
    rrr;sss
and the sub run ok without the added if/endif:
    aaa -- bbb
    ccc -- ddd
    111 -- 222
    rrr -- sss
then i added two trailing enters (vbcrlf) and the sub gave error 9 - index
not in interval. with the inserted "if instr()" looks like working again.
please let me know.
hth, pal
--
andrea....@tin.it
free/vb sw -- 
http://www.comune.modena.it/cittadini/apal
Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare il tasto di chiusura

Salve, tempo fa avevo trovato la chiamata all'API ( e il relativo esempio)
necessaria per disabilitare la X di chiusura di un form, ma a seguito della
formattazione del mio HD tutto e' andato perso.
C'e' qualcuno che puo' aiutarmi ?
Grazie

"Carmelo R." ha scritto nel messaggio

Google, per esempio ? :-)
Se il link si spezza ricomponilo su una sola riga.
http://groups.google.com/groups?as_q=disabilitare%20il%20tasto%20di%20chiusura&a
s_ugroup=it.comp.lang.visual-basic
Bye, G.
--
Le risposte alle tue domande sono sul Sito Comune
di questo NewsGroup: 
http://it-lang-vb.net/
... e nell'help in linea !

 ha scritto nel messaggio
news:y0si8.13129$tC3.3...@twister1.libero.it...

Back-Up no č?
qua in mezzo c'č anche quella che fa pet te
Public Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long,
ByVal bRevert As Long) As Long
Public Declare Function GetMenuItemCount Lib "user32" (ByVal hMenu As Long)
As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal
nPosition As Long, ByVal wFlags As Long) As Long
Public Declare Function DrawMenuBar Lib "user32" (ByVal hwnd As Long) As
Long
Public Const MF_BYPOSITION = &H400&
Ciao (questa non č una funzione Api č un saluto :-))
Newsgroup: it.comp.lang.visual-basic
Titolo: informazioni

Ciao a tutto l'NG,volevo chiedere se è possibile esportare un database che
si basa su tabelle di acces senza che sul''altro PC  sia installato acces
Luca

si basa su tabelle di acces senza che sul''altro PC  sia installato acces
chevvordi' ?
ciao, hal



vuol dire che vorrebbe che la sua applicazione utilizzi un db access su un PC che non ha access
installato... almeno credo... :-))
Se ho indovinato, no, non è possibile... Tempo addietro avevo provato un Office Developers Workshop
o qualcosa del genere, che forniva, tra l'altro, una sorta di "runtime" per Access e quindi
risolveva il tuo problema... non son mai riuscito a farlo funzionare... :-(((( (anche perché quando
lo avevo provato, era la versione per Office 4.3... il pacchetto era solo in inglese ed il db in
Italiano, quindi non funzionava... (erano i tempi in cui la versione Italiana traduceva adirittura
Forms con Maschere !!!!! ))
Ciao,
Moreno
#sirri#@#morenosoft#.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------


Se usi VB si, però non nel senso che puoi usare maschere o report creati con
Access, ma utilizzi solo il DB gestito direttamente da programma, tutto il
resto lo devi ricreare da programma.
Ciao VB

 Forms con Maschere !!!!! ))
Beh, Access 2000 ha ancora le "Maschere"... O_O;
...che bella carnevalata!!! :)
Byee
Zeross

...che bella carnevalata!!! :)
sě, ma spero non nel codice... spero.... :-)


ciò sconvolge le mie già scarse conoscenze sui database... ma Access non è
un semplice client ODBC? non mi direte che fa anche da server? che percorso
si fa poi per arrivare ai dati, un tortuoso "programma-> data control->
Access-> sorgente dati"? Come ho detto, ne so poco... ma abbastanza da
capire che Access è un client... (c'è chi, pazientemente, è riuscito a farne
un front-end per database non-ODBC, come PostgreSQL)
-- 
Posted from 
smtp.technorail.com
 [195.103.144.19] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.visual-basic
Titolo: DAO vs ADO

Ho appena fatto il port di  una mia applicazione passando da dao ad ado.
A parte il tedio, ho notato che l'applicazione, basata su un database
access, ha subito un certo rallentamento.
Questione di frazioni di secondo ogni volta che si accede al database, ma se
moltiplicate ...
Il rallentamento maggiore si ha eseguendo questa istruzione:
Set adoCmdObj = adoxCatalogObject.Procedures(sQueryName).Command
Non accade solo a me, vero ?
Bau.
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Personal Oracle

Qualcuno sa dove e' possibile trovare la versione trial di Personal
Oracle (a parte al sito Oracle.com)?
Grazie, Angelo.

Grazie, Angelo.
Il mio uffcio ne possiede una copia su CD , che ci fu spedita Oracle.
Non ricordo però le modalità di richiesta.
Ocio che il trial dura 90 giorni.
Posso informarmi.

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] un programma che ritorni un risultato

ciao a tutti. avrei bisogno di creare un programma VB6 che, lanciato da
riga di comando, sulla riga di comando restituisce un valore.
o meglio: devo appiccicare 'sta parte a un programmone VB6 gi� esistente,
quindi non posso - che so - cambiare linguaggio di sviluppo.
qualcuno sa aiutarmi? magari esistono componenti (anche pay, naturalmene)
che possono fare al caso mio?
ciao e grazie
d.


Deve restituire un exit code (stile ERROR_LEVEL dei batch file),
oppure deve stampare stringhe a piacere sullo standard output?
Nel primo caso, ti è sufficente questo:
Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)
Nel secondo, è un pochino più complicato:
Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As
Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As
Long
Declare Function WriteFile Lib "kernel32" _
    (ByVal hFile As Long, _
    ByVal lpBuffer As String, _
    ByVal nNumberOfBytesToWrite As Long, _
    lpNumberOfBytesWritten As Long, _
    lpOverlapped As Any) As Long
e quindi
Dim strOutput As String
Dim hStdOut As Long
Dim lBytesWritten As Long
Dim lBytes As Long
Dim rc As Long
hStdOut = GetStdHandle(STD_OUTPUT_HANDLE)
strOutput = "Pippo"
lBytes = Len(strOutput)
rc = WriteFile(hStdOut, ByVal strOutput, lBytes, lBytesWritten, ByVal
0&)
'rc>0 tutto ok, rc=0 errore
CloseHandle hStdOut
Non ho VB6 sottomano, ho fatto un copia/incolla da vari pezzi di un
mio programma, quindi potrebbero esserci errori qui e la, ma il succo
è quello

Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione esadecimale-decimale

Ciao a tutti,
Ho un piccolo problema:
Devo convertire dei valori da esadecimale a decimale; per fare ciň uso per
esempio il comando Val("&H" + "10AA") (stringhe a 16 bit).
Quello che ottengo č perň un decimale affetto da segno.
Come posso fare ad avere come risultato dell'operazione dei valori positivi,
cioč privi di segno?
Grazie
Peter

 wrote in message
news:ypBL9.27777$ab2.8...@news1.tin.it...

Secondo me basta che dichiari la variabile a cui assegni il valore
esadecimale come un long.


wrote:


 ha scritto nel messaggio
news:2xBL9.36634$lV4.1...@news2.tin.it...


Cosě facendo, forse si otterrebbe un risultato falsato dovuto al bit del
segno che non viene
preso in considerazione come MSB
Ciao e Grazie
Peter
"Roby" <r...@email.itNOSPAM> ha scritto nel messaggio
news:3dfef33b...@news.tiscali.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB.NET] Resize di un controllo

Ciao a tutti,
Ho un controllo tab che, all'apertura di una form, deve adattarsi
automaticamente alla dimensione della form. In vb6 usavo .scalewidth e
scaleheight per trovare la dimensione della form (esclusi il titolo, i
bordi, etc). In VB .NET queste proprietà non esistono più. Non posso usare
la .Size della form (o .width o .height) perché questi valori includono
anche il titolo della form, i borsi, etc.
Come fare per conoscere l'area interna di una form?
Grazie!

 ha scritto nel messaggio
news:U3yhc.120409$rM4.4...@news4.tin.it...

Puoi dare un'occhiara alle proprieta' della struttura <la tua
form>.ClientSize
Nota anche che molte di queste cose ora possono essere ottenute lavorando
direttamente in design, senza bisogno di codice, attraverso le property
Anchor e Dock dei vari controlli... se per esempio il tuo Tab deve riempire
l'intera area client della form, e' sufficiente impostare la property Dock a
'Fill' (che in design equivale a selezionare il riquadro centrale)
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

Newsgroup: it.comp.lang.visual-basic
Titolo: Istruzione Like in Sql

Ciao a tutti.
Vorrei creare un'istruzione Sql che esegua una ricerca parziale , (tramite
una text box)sul campo città  della tabella XXX.
Mettendo :
SQL = "SELECT * FROM XXX Where citta Like '" & Text2.Text & "' "
non funzia.
Dov'è l'errore?
Grazie mille

 ha scritto nel messaggio
news:93vrjv$t90$1...@lacerta.tiscalinet.it...


 wrote in message
93vqej$rpj$1...@lacerta.tiscalinet.it...


 93vqej$rpj$1...@lacerta.tiscalinet.it...
Usare + anziché l'operatore & per concatenare stringhe è pericoloso, alle
volte ti può fare la somma
Prova questo esempio
Private Sub Command1_Click()
    Dim x As String
    Dim y As String
    x = "02"
    y = "03"
    MsgBox 2 + 3
End Sub
:-)
Ciao VB

carattere e * per tutti i caratteri.
A riprova che gli standard...
Saluti.
-- 
      Gianni "bugbarbeq" Rondinini, 25, RA, 242, 152
  VBR - Vero Birro RomagnoloŽ, diffidate dalle imitazioni!
 Opel/ECC Calibrezio EVO-IV --- Kawasaki "Gas Gas" ZZ-R 1100
 ICQ# 36893168 - IRCNet: bugbarbeq, @ on #linux-it & #NetBSD

 danilo
* se usi DAO
% se usi ADO
Ciao
Sir Jo

 wrote in message
9400b5$ei$1...@serv1.albacom.net...

Newsgroup: it.comp.lang.visual-basic
Titolo: Label e Bottoni sulla printer

Mi sto picchiando da un po' di tempo ma non riesco..... ed allora chiedo
lumi.
Come posso stampare label o bottoni o... altri amenicoli simili sulla
stampante (senza usare la stampa completa del form) non mi va di simularli
con rettangoli e scritte ad oc ma vorrei stampare l'oggettino già bello
formattato.

 Posso indicarti una soluzione:
apri il form e visualizzalo per intero
usa il comando di cattura immagini video (Alt+prtscreen)
apri un qualsiasi programma di ritocco fotografico (anche il paint)
incolla l'immagine
taglia solo il pezzo che vorresti stampare ed incollalo in una nuova
immagine
salva il file
stampalo
Il gioco è fatto!
Bona fortuna
Cordialmente
Johnny


Si.......ma a me interessa stampare le singole label o bottoni da codice,
non a mano......... Grazie comunque della risposta....
Newsgroup: it.comp.lang.visual-basic
Titolo: Sommatoria di una colonna

Ho una datagrid
Devo fare la somma di una intera colonna
Sapete dirmi come devo scrivere????
Ciao e grazieeeeeeeee


METACODICE
a=0
for n=1 to cellaUltima
    a=a+Leggicella(n)
next
...a te tradurlo in VB....

Newsgroup: it.comp.lang.visual-basic
Titolo: unione di piu rich text box

ho un problemino con i rich text box.
ho 3 RTB, e devo salvare il loro contenuto su un file.
il fatto è che devo salvare l' "unione" dei loro contenuti, su un singolo
file.
poiche sono tutti formattati, avevo pensato di "attaccare" i valori delle
proprieta TextRTF in un 4° RTB, e poi di usare il metodo savefile. ma niente
da fare mi salva solo il primo RTB, e gli altri due è come se non
esistessero.
forse perche nel formato RTF ci sarà un carattere che indica la fine del
file... chi lo sa
in ogni caso, come posso fare? si tratterebbe di fare una specie di copia &
incolla, ma se attacco solo i valori della proprieta Text del RTB, perdo la
formattazione.
grazie
MarioH

 ho 3 RTB, e devo salvare il loro contenuto su un file.
      RichTextBox1.SelStart = 0
      RichTextBox1.SelLength = Len(RichTextBox1.Text)
      RichTextBox2.SelStart = 0
      RichTextBox2.SelLength = Len(RichTextBox2.Text)
      RichTextBox3.SelStart = 0
      RichTextBox3.SelLength = Len(RichTextBox3.Text)
      RichTextBox4.SelStart = 0
      RichTextBox4.SelLength = 0
      RichTextBox4.SelRTF = RichTextBox1.SelRTF
      RichTextBox4.SelLength = 0
      RichTextBox4.SelStart = Len(RichTextBox4.Text)
      RichTextBox4.SelRTF = RichTextBox2.SelRTF
      RichTextBox4.SelLength = 0
      RichTextBox4.SelStart = Len(RichTextBox4.Text)
      RichTextBox4.SelRTF = RichTextBox3.SelRTF
Cosě ti ritrovi nel RichTextBox4, la somma degli altri 3 RichTextBox,
formattazione compresa.
A salvare RichTextBox4 ci pensi tu perň, eh? :-)
Ciao
*Roby*
P.S.
Ma ti devo mandare un telegramma, un fax o un SMS??
Dai, per favore, usa il tag [?] nell'oggetto del messaggio.  Fallo per me,
che ti costa? ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: SITO: VBProgrammers

Volevo comunicare il nuovo URL di VBProgrammers
http://www.biapps.it/vbprogrammer
Grazie e scusate a tutti per i disagi.
Spero che questa volta sia l'URL definitivo
--
Ciao Diego.
*******************************
http://www.biapps.it/vbprogrammer
il portale italiano dedicato al Visual Basic
*******************************

 ha scritto nel messaggio
news:48OX6.11485$m51.1...@news1.tin.it...


 wrote in message
news:9grbbs$a3o$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: COME CARICARE UN FILE RANDOM?

Se ho bisogno che all'avvio di un form il file .bmp caricato da una
"picture" sia random tra una serie di scelte come devo fare?
Per esempio:
image1.picture = loadpicture("immaginerandom".bmp)
Come posso fare per ottenere un effetto simile?
Per ora ho creato un metodo che stabilisce un numero random e poi ho fatto
una serie di if lunghissima che dice
if rndnumber = 1 then
carica questa immagine
elseif rndnumber=2 then
carica quest'altra immagine
e cosě via
Penso che perň ci sia unmodo piů veloce giusto?
In attesa di vostre risposte...
Ciao!
"Ogni porta č un mistero di fatto.
Molti potrebbero pensare che il mistero consista in ciň che si trova oltre
la porta,
ma la questione fondamentale č invece se si trovi lě per tenere fuori
qualcuno...
...oppure per tener dentro qualcosa."
Elminster il Saggio, 
elmi...@tiscalinet.it

 ma la questione fondamentale è invece se si trovi lì per tenere fuori


ma la questione fondamentale č invece se si trovi lě per tenere fuori


Newsgroup: it.comp.lang.visual-basic
Titolo: BackUp di mdb

salve a tutti,
premesso che finalmente sono riuscito a compattare un db da progrmma grazie
alle informazioni reperite su questo NG. Mii resta tuttavia il problema di
creare una copia di backup degli archivi prima di uscire dal programma.
con VB5 chiudo i recordsets con set RS=Nothing
e il data base con dbase.close
quando mi accingo a copiare il file mdb mi ritorna l'errore
"Accesso Negato"
 come posso risolvere il proglema.
un grazie di cuore
Pippo

 ha scritto

da' l'idea che ci sia qualche cosa di aperto. i form con controlli data li
hai scaricati ?
il bkp io cmq di solito lo faccio insieme alla compattazione, con la
versione piu' vecchia:
    Screen.MousePointer = 11
    DBEngine.CompactDatabase mainPath & "mcab.mdb", mainPath &
"mcab_new.mdb"
    Kill mainPath & "mcab_old.mdb"
    Name mainPath & "mcab.mdb" As mainPath & "mcab_old.mdb"
    Name mainPath & "mcab_new.mdb" As mainPath & "mcab.mdb"
    Screen.MousePointer = 0
ciao, a.

 ha scritto nel messaggio
news:W3cg8.54777$v7.19...@twister1.libero.it...

Public Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal
lpExistingFileName As String, ByVal lpNewFileName As String, ByVal
bFailIfExists As Long) As Long
Ciao

 ha scritto nel messaggio
news:W3cg8.54777$v7.19...@twister1.libero.it...


La prima soluzione č alla mia portata.
Con la seconda farň un tentativo.
Quella di Alex mi sembra la piů completa ma a causa delle mie scarse
conoscenze
ci metterň un po' di tempo prima di digerirla.
Comunque grazie.
Pippo


 ha scritto nel messaggio
news:W3cg8.54777$v7.19...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Progress Bar: come fare?

Mi sono sempre chiesto come fare ad inserire delle Progress bar
per indicare lo stato di avanzamento in operazioni che richiedono
scritti in sql, oppure in operazioni tipo "compactdatabase".
Possibile che non sia possibile? (scusate il gioco di parole)
Che dite?
Saluti
Sceriffo

Con l'istruzione Compactdatabase non c'è alcun modo di aggiornare
l'avanzamento di una progressbar ( sembra che l'istruzione sia "atomica" )
, inoltre ipotizzando che l'istruzione possa essere "sospesa", quale
intervallo di valori assegni alla progressbar?
La via per visualizzare un avanzamento dell'operazione di compattazione
(cosa che è presente in access) penso sia possibile solo attraverso alle
chiamate API della DAO, tuttavia non saprei indicarti quali.
P.S.: il tuo problema mi si era presentato tempo fa, avevo postato sugli NG
inerenti al VB senza ottenere la soluzione. 
Ciao Marco 
-- 
Remove xxx from E-mail.


C'è il Microsoft Windows Common Control 5.0 che include anche la progress
bar.
Ciao

questo lo avevo capito.....
io volevo sapere come utilizzarle con strutture sql....

Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione File MDB in un File TXT

Salve e scusate se vi chiedo un semplice aiuto.
Mi sono da poco avvicinato a Visual Basic !!
Chi mi può aiutare nella conversione di un archivio MDB in un File TXT ?
Naturalmente la conversione viene effettuata a livello di singola Tabella
Grazie anticipatamente
                                    Alex
 
ex...@tin.it

 Naturalmente la conversione viene effettuata a livello di singola Tabella
Naturalmente! ;)
--
Ciao a tutto il NewsGroup
Alex
alm...@tin.it

Prova Questo, poi fammi sapere
praticamente apre il file dbname e crea nel direttorio specificato da
destdir un file [nometabella.txt]
Private Sub CopyTxt(Dbname As String, DestDir As String)
Dim Db As DAO.Database
Dim Tdx As DAO.TableDef
Dim Fdx As DAO.Field
Dim Rs As DAO.Recordset
Dim Handle As Long
Set Db = Workspaces(0).OpenDatabase(Dbname, False, True)
For Each Tdx In Db.TableDefs
    If Tdx.Attributes = 0 Then
        Set Rs = Tdx.OpenRecordset(dbOpenTable)
        With Rs
            Handle = FreeFile
            Open DestDir & "\" & Tdx.Name & ".txt" For Output As #Handle
            If .RecordCount > 0 Then
                Do While Not .EOF
                    For Each Fdx In .Fields
                        Print #Handle, Fdx.Value & vbNullString & vbTab;
                    Next
                    Print #Handle,
                    .MoveNext
                Loop
            End If
            .Close
            Close #Handle
        End With
    End If
Next
End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: ricerca in listview

Ho una ListView da 5 colonne. Nel programma č presente un form che contiene
5 textbox relative alle 5 colonne e un bottone "cerca".
Che codice potrei utilizzare per fare in modo che sia possibile cercare una
stringa nella relativa colonna della listbox.
Es: se io scrivo nella seconda textbox il programma deve trovare il testo in
una qualunque riga ma solo nella seconda colonna.
Questo codice dovrebbe funzionare anche se fornisco piů di un criterio di
ricerca, scrivendo in piů di una textbox.
Come faccio poi a evidenziare in blu (come quando seleziono manualmente) la
riga selezionata? Ho provato con listview1.ListItems.Item(1).Selected = true
 ma non evidenzia
Grazie, Ciao

  listview1.ListItems.Item(1).Selected = true ma non evidenzia
Poni la proprietà FullRowSelect=True

> Poni la proprietą FullRowSelect=True
E poni la proprietą HideSelection=False
-- 
Rivolterņ il mondo per trovarlo, e anche se andasse in Indocina uno dei 
nostri starą nascosto in una ciotola di riso pronto a sparargli nel culo.
(Pulp Fiction)

 Grazie, Ciao
come popoli la listview? è per caso un recordset?
se lo è, allora ti conviene fare il tutto a monte: fai la ricerca nel
recordset e poi popoli la listview in base a questo recordset, che dovrà
ovviamente contenere solo i record interessati.
se invece non hai nulla a che fare con un database, ti conviene a mio modo
di vedere comunque gestire un recordset disconnesso, fare la ricerche lì
usando un banale sql e popolare la listview di conseguenza....
good coding!!!
-- 
Alletun
"Se ti va di spassartela adesso
Prendi il Vettore oggi stesso."
Terre Desolate - Stephen King