mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Schedulazione

Esistono OCX che mi permettono di schedulare una funzione 1 o piů volte al
giorno?
Grazie
Ciao

giorno?
Non lo so, ma penso che sarebbero totalmente inutili: sugli NT
esiste il buon vecchio at (il "Task Scheduler"), sui 9x mi pare che ci
sia qualcosa di analogo.
-- 
ciao, hal

 sia qualcosa di analogo.
Peccato che su NT 4 se per qualche motivo instali explorer 5.5 a volte sei
nella merda, l'AT viene aggiornato con lo scheduled tasks, che però spesso
non funziona, almeno non su NT4 dopo averlo aggiornato con ie5.5.
Al lavoro ci abbiamo pastrocchiato per 2 mesi e non c'è stato verso di farlo
andare.
Abbiamo posto il problema all'attenzione di un tecnico microsoft, che però
dopo averci sbocchinato per un giorno ha risposto con un Mah! non so! boh...
non và....
Alla fine ho dovuto fare io un programmino che lo sostituisse.
Sul server di fianco, stesso modello, stesse App e servizi installati
funziona perfettamente.
I casi della vita.......

 Alla fine ho dovuto fare io un programmino
PROGRAMMINOOOOOOOOOOO!!!!
NOOOOOOO!!!
Scusate, non volevo....
:-)

 ha scritto nel messaggio
news:I1sF8.76988$US3.1...@twister1.libero.it...

Ritieniti frustato sulla pubblica piazza, con virgulti di bambů usati come
presi per non intaccarne la crudezza dei nodi ;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Help: Microsoft Excel 8.0 Object Library

Nei riferimenti di un progetto VB5 decido di utilizzare le funzioni
matematiche di Excel 8.0. La funzione è diversa da quella descritta dai file
della guida. Si tratta di un calcolo del determinante di una matrice. La
funzione nella guida è spiegata cosi:
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sintassi
MATR.DETERM(matrice)
Matrice   è una matrice numerica quadrata.
· Matrice può essere specificato come intervallo di celle, quale A1:C3, come
costante matrice, quale {1;2;3\4;5;6\7;8;9}, o come nome.
· Se in matrice sono presenti celle vuote o contenenti del testo,
MATR.DETERM restituirà il valore di errore #VALORE!.
· MATR.DETERM restituisce inoltre il valore di errore #VALORE! se matrice
non contiene lo stesso numero di righe e di colonne.
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+++
 In effetti la funzione è MDeterm e non funziona con questa sintassi.
Qual è la sintassi corretta?
Grazie a chi mi risponderà
Curioso

Curioso,
alla funzione MDeterm devi passare una matrice (array):
esempio:
    Dim ExcelApp As New Excel.Application
    Dim MyMatrix(1, 1) As Integer
    Dim nDeterm As Double
    MyMatrix(0, 0) = 3
    MyMatrix(1, 0) = 6
    MyMatrix(0, 1) = 1
    MyMatrix(1, 1) = 1
    'la matrice e' {3;6\1;1}
    nDeterm = ExcelApp.WorksheetFunction.MDeterm(MyMatrix)
    Set ExcelApp = Nothing
nell'esempio nDeterm  = -3
spero di essere stato utile,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

Curioso,
*****

Newsgroup: it.comp.lang.visual-basic
Titolo: Qualcuno mi dia una risposta!!! Grazie

Vorrei sapere a cosa serve questo file, dato che ho un programma che me lo
richede, ed eventualmente dove potrei trovarlo.
il file in questione e' : winsck.ocx.
Mi sembra di aver letto che centra qualcosa con visualbasic e
active x.
Scusate l' ignoranza, ma non si finisce mai d' imparare.
Grazie, a chiunque mi aiuti.

Scusate l' ignoranza, ma non si finisce mai d' imparare.
Ehm ... esatto !!!
Ciaps
Stracca
P.S. Io il tuo post l'ho letto, ma solo perche' sono curioso, la prx volta
usa un subject che spieghi cosa chiedi ... ad esempio "[?] File Winsock.ocx
???"

Newsgroup: it.comp.lang.visual-basic
Titolo: Formattazione RTF

Ciao a tutti!
vorrei sapere se qualcuno ha in giro esempi di vbcode in cui scrive su un
file RTF
utilizzando appunto i comandi nativi RTF (\par ..... definizione set colori,
set fonts eccetera.)
sostanzialmente dovrei devinire due colori, due font (1 arial e 1 symbol)
poi sarei interessato a capire meglio i vari      \qualcosa       per
formattare il testo.
La mia idea sarebbe quella di dire al mio oggetto di scrivere le righe a
seguire riga di quel colore, centrata o meno, di dimensione X ecc... se poi
non dico + nulla lo stile rimane quello fino ad un nuovo comando.
inoltre magari inserire dei piè di pagina e intestazione.
E' possibile anche aggiungere righe?
E le tabulazioni?
scusate le idee confuse ma non ci sto + dentro.
Grazie a chi saprà anche darmi una dritta.

 ha scritto nel messaggio
news:9ha2v6$cdv$1...@phobos.ibnetwork.net...


 set fonts eccetera.)
Prova a dare un'occhiata su 
http://www.wotsit.org/
Dovrebbe esserci ciň che cerchi se non ho capito male...
ciao, Assa.
--
Sito comune del NG: 
http://www.it-lang-vb.net/
http://digilander.iol.it/assatarram/index.html
 (nuova sezione vb ora
disponibile)

 Dovrebbe esserci ciň che cerchi se non ho capito male...
Mi sembra di ricordare che la documentazione sul formato rtf era stata
mandata da qualcuno (Roal, e' possibile?) anche sul sito...
Ciao,
Marco

 ha scritto nel messaggio
news:9ha2v6$cdv$1...@phobos.ibnetwork.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: Vb6 e sp4

Ciao a tutti,
ho installato su nt4 sp6a e dove avevo già vb6 sp3 la sp4 di visual studio,
il progetto che porto avanti è un ocx che esegue connessione a dati
attraverso Ado e Rds. Per prima cosa dopo l'installazione mi sono accorto
che non posso fare + adodb.recordset, sostituite le vecchie chiamate con
Ador.recordset compilo il software e quando vb dobrebbe caricare l'ocx in
explorer (5.5) mi dice impossibile aprire Ie ( che per altro funziona
benissimo ) :( . Ma che è successo ? Avete avuto problemi del genere ?
  Buon lavoro
  Andrea

 wrote in message
93klhr$1d6$1...@news.flashnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: come gestire gli eventi in una classe ?

ciao a tutti ho da poco scoperto la possibilità di gestire gli eventi dei
controlli all'interno di moduli di classe. da un esempio postato sul
newsgroup ho intuito il loro funzionamento, solo che riesco a farli
funzionare solo se istanzio un oggetto public della classe mentre io vorrei
che funzionassero anche se l'oggetto è istanziato in una subroutine con dim.
esempio:
Modulo di Classe clsData:
    Public WithEvents Casella As TextBox
    Event Change()
    Event GotFocus()
    Event KeyDown(KeyCode As Integer, Shift As Integer)
    Event KeyUp(KeyCode As Integer, Shift As Integer)
    Event KeyPress(KeyAscii As Integer)
    Event LostFocus()
Private Sub Casella_Change()
    RaiseEvent Change
End Sub
Private Sub Casella_GotFocus()
    '--seleziona tutto il testo
    Casella.SelStart = 0
    Casella.SelLength = Len(Casella)
    RaiseEvent GotFocus
End Sub
Private Sub Casella_KeyDown(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyDown(KeyCode, Shift)
End Sub
Private Sub Casella_KeyPress(KeyAscii As Integer)
    RaiseEvent KeyPress(KeyAscii)
End Sub
Private Sub Casella_KeyUp(KeyCode As Integer, Shift As Integer)
    RaiseEvent KeyUp(KeyCode, Shift)
End Sub
Private Sub Casella_LostFocus()
    '--sulla perdita del fuoco formatto il testo
    Casella = xFormattaData(Casella)
    RaiseEvent LostFocus
End Sub
form:
public cData as new clsData 'tutto ok
private sub form_Load()
    set cData.Casella=text1   'tutto ok
    'se invece istanzio un oggetto qui
    dim cData2 as new clsData
    set cData2.Casella=text2
    'non mi gestisce gli eventi descritti nella classe !!!!!!
end sub
Perchè ?????
come devo fare x risolvere il problema ?
grazie a tutti!


Se tu istanzi un oggetto all'interno di una sub, la visibilità dell'oggetto
è limitata a quella Sub, e quindi, giustamente Vb non ti permette di gestire
gli eventi dell'oggetto, dal momento che la loro area di visibilità deve
essere definita a livello di form.
Evita quell'orribile Public e fai, più semplicemente,
Dim WithEvents cData2 as clsData
nell'area Generale del Form, cos' da dare visibilità agli eventi della
classe
private sub Form_LOad()
    set cData2= New clsData
    ' così istanzi l'oggetto quando ti serve
    ...
end sub
ciao
ugo

Dim WithEvents cData2 as clsData
Perchè "orribile"?
Io ad esempio uso le Dim solo all'interno delle sub.
Altrimenti specifico sempre o Public o Private.
In questo modo non c'è ambiguità, dato che VB usa le Dim diversamente a
seconda che sia messa in un modulo o in un form...
Ciao


???
In che senso "usa diversamente le Dim"?
???
ciao
ugo

In che senso "usa diversamente le Dim"?
Hai ragione, la storia non č proprio cosě.
Il problema č che la Dim si comporta come la Private.
In compenso le Sub/Function che non hanno il prefisso Pubblic o Private si
comportano come Public.
Quindi io per non confondermi uso sempre o Public o Private, anche quando
non č richiesto dal compilatore e comunque al posto di Dim.
D'accordo sul concetto di Public, che č da evitare il piů possibile.
Cioč quasi sempre.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: QUERY banale !!!

Che query devo scrivere per ottenere record non ripetitivi !!
es tabella :.
        data                  cliente
    25-10-2000          rossi
    25-10-2000          verdi
    26-10-2000          ........
    27-10-2000          ........
    27-10-2000          .........
dalla query fatta sulla data voglio ottenere i seguenti record:
     25-10-2000     ........
     26-10-2000     ........
     27-10-2000     ........
grazie 100000000 !!!!
MAX


Per ripetitivo si intende che tutti i campi selezionati contengano
dati uguali. Per evitarlo premettere SELECT DISTINCT o SELECT
DISTINCTROW alla query. (Controlla sull'help).
Ma dal tuo esempio non sembra perņ che sia questo quello che intendi.
Prova a spiegarlo meglio.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!


cosa vuoi al posto dei puntini ?
mi spiego...
se vuoi solo l'elenco delle date non ripetute ti basta fare
Select DISTINCT data from <tabella>
se invece devi fare tipo la somma di qualcosa per ogni data
puoi usare la GROUP BY
e quindi, se devi per esempio sommare un importo, fare cosi'
Select Data, Sum(Importo) as TotImporto
from <tabella>
GROUP BY DATA
Ciao
Enrico

grazie mille sei stato di grande aiuto!!
CIAO MAX

grazie Enrico sei stato di grande aiuto!!
MAX

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

Mi servirebbe un programmino possibilmente in Vb che ad un ora prestabilita
emetta un suono, per realizzare una sveglia.
Sapete se ne esistono già fatti?
Grazie 1000 a tutti.
Ciao
Maurizio

 ha scritto

la prima cosa che mi sono scritto in vb,
palarm, sul mio sito, con sorgenti vb5. ne puoi puntare sei, di sveglie.
ciao, a.
--
andrea....@tin.it
http://members.xoom.it/xday
free/vb sw -- 
http://www.comune.modena.it/cittadini/apal
--
p.f. usate solo testo, non html, nei vostri messaggi !
please use plain text, not html, in your messages !
Newsgroup: it.comp.lang.visual-basic
Titolo: Insert into e date

Ho un altro problema. Terminata la scrittura dello script sql non so come
recuparare la data inserita in un textbox.
Mi spiego meglio:
insert into tabella1 (cognome,nome,datanascita) values ('" &
trim(text1(0).text) & "' , '" & trim(text1(1).text) & "' , .......);
e la data dal text1(2).text ??? Dovrei ottenere tipo #data# ma non mi
ricordo come.
Grazie.

Francesco ha scritto:



http://groups.google.it/groups?hl=it&lr=&q=inserimento+data&meta=group%3Dit.comp.lang.visual-basic
Ave
giuseppeD
---
CCR
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ha scritto nel messaggio
news:XLiYd.9222$zZ1.1...@twister1.libero.it...

Hai diverse possibilità:
1)Convertila nel formato americano (mm/dd/yy)
2)o nel formato ISO (yyyy-mm-dd).
3)o nel formato a precisione doppia CDbl(TuoCampoData)
Io abitualmente uso il formato ISO:
Dim strSQL   as string
Dim strData  as string
strDate = Format(Me!TuoControlloData.Text, "\#yyyy\-mm\-dd\#")
strSQL="INSERT INTO tabella1 " & _
            "(cognome,nome,datanascita) " & _
       "VALUES ('" & trim(text1(0).text) & "'," & _
                "'" & trim(text1(1).text) & "," & _
                strData & ");"
Saluti
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

                 strData & ");"
Grazie Alex

Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco Visual Studio Enterprise Edition

Cercasi software originale con licenza di sviluppo. Visual Studio
Enterprise Edition. Inviare offerte a:
info...@vizzavi.it

Enterprise Edition.
http://msdn.microsoft.com/vstudio/prodinfo/purchase/default.asp
-- 
ciao, hal

 ciao, hal
hal....non č per intromettermi nella tua comunque utile ed esauriente
risposta perň non pensi che magari Stefano lo cercasse usato? Altrimenti non
si spiega il post in quanto piů che andare sul sito di microsoft forse gli
conviene fare un giro dal suo fornitore di fiducia...
Davide

conviene fare un giro dal suo fornitore di fiducia...
Eh eh, penso che tu abbia ragione ;-)
-- 
ciao, hal

 Enterprise: e' altamente probabile che chi ce l' ha la usi.
uomo di poca fede :)
negli ultimi mesi si sono visti vari post con offerte di vendita (spero)
legali, con confezioni integre, anche della ent. pochi giorni fa c'era un
pro o forse proprio una ent.
j.ent

 pro o forse proprio una ent.
Sě, era qui:
gandrek (24/11/01 13:08)
"Causa inutilizzo, svendo VB 6.0 professional ed Enterprise entrambi
originali ancora da registrare"
Mi ha colpito come si possa avere cosě voglia di programmare da comprare sia
il Pro che l'Ent e poi veder svanire la voglia addirittura prima della
registrazione...
Curioso...
Ciao,
Carlo.

 Curioso...
no so, no visto, no sentito.
"comprare" comunque l'hai scritto tu, non il poster... potrebbero averglieli
regalati con un grosso ordine hw/sw... potrebbero... potrebbero...
ciao, j.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Definizione degli indirizzi ????

Mi sfugge sempre il nome , me lo ripetono da anni e ancora non so come si
chiamano questi indirizzi :
a) C:\windows
b) \\server....
c) Z:\windows (unita' di rete connessa)
cioe' la definizione delle varie tipologie di indirizzo , mi ricordo
vagamente, indirizzo fisico, circolare, parallelo, verticale ... boh !
Chi me lo rispiega per l' ennesima volta ?

 Chi me lo rispiega per l' ennesima volta ?
Una bella ripassata non fa mai male....
attendo anch'io qualcuno che, gentilmente, mi rinfreschi....
MIk

vagamente, indirizzo fisico, circolare, parallelo, verticale ... boh !
Credo che tu ti riferisca a:
UNC
Universal Naming Convention
Vedi anche
http://www.wown.com/j_helmig/guidunc.htm
Ciao
Stefano "HappyMan" (Lago Maggiore - NO)
--
Personal Web 
http://www.sgr.info
Email happyman69 (at) 
libero.it

 Universal Naming Convention
non precisamentente , cioe' volevo sapere come si chiamano i diversi tipi di
indirizzi !
Es:
a) C:\windows = "Indirizzo fisico"
b) \\server.... = "Indirizzo verticale relativo trigonometrico"
c) Z:\pippo  = "Indirizzo parallelo pincopalla antani X 2"


è sempre un absolute path che poi sia una unità virtuale fatta con il subst
o una unità di rete connessa una volta che ha un nome è utilizzabile a
quello che so come una normalissima unità, cioè come un hd o un floppy o un
cdrom
\pippo\topolino.txt è invece un relative path


 c) Z:\pippo  = "Indirizzo parallelo pincopalla antani X 2"
No, quello č indirizzo con terapia tapioca e supercazzola. :-))
Gigio mitico.
Saluti,
--
Antonio Cangiano
Webmaster & Content Manager 
www.visualcsharp.it
Il portale italiano della programmazione C# e .NET

 un hd o un floppy o un cdrom
Bho forse mi staro' confondendo con qualcosaltro, logicamente gli Absolute e
Relative path le conoscevo ... ma forse il contesto in cui venivano usate
"quelle definizioni" era un altro ... bho... sara' il caldo ma io continuo a
ricordare cose come "Parallele" e "Perpendicolari" O_o
Aito voglio il condizionatore!!!
Qualcuno mi trova uno spaziettino in qualche CED(*)  ?
*= Si accettano CED con condizionamento 24h/24 a 10° Celsius , astenersi
perditempo !
-- 
<Gigio2K>
Sito Comune
Nokia -> I.T.H.N. -> 
http://www.ithn.it/
VB -> I.C.L.VB -> 
http://www.it-lang-vb.net/

 Una bella ripassata non fa mai male....
Io nemmeno sapevo esistesse ^_^; quindi attendo anche io!
Alex

 astenersi perditempo !
18°, se ti va bene. Per te posso abbassare un po', volendo.
Bye, G.

 c) Z:\pippo  = "Indirizzo parallelo pincopalla antani X 2"
unità connessa
questo è ....
-- 
Saluti
Andrea Moro
Sito Comune : 
http://www.it-lang-vb.net

 questo è ....
Guardate scusate tutti, avro' frainteso qualcosa, queste definizioni le
conoscevo ... cmq grazie a tutti per il tempo speso in questo OT !
Newsgroup: it.comp.lang.visual-basic
Titolo: Per chi cerca un sendmail SMPT


Usage:  SENDEM~1.EXE [options]   or   command | sendEmail [options]
  Required:
    -f <from>            from email address
    -t <to> [<to>]       to email address(es) (space separated list)
  Common:
    -u <subject>         (this will soon be -s, and -s will become -h[ost])
    -m <message>         if -m is absent the message is read from STDIN
    -s <server[:port]>   default is localhost:25
  Optional:
    -a <file> [<file>]   file attachment(s)
    -cc  <to> [<to>]     cc  email address(es)
    -bcc <to> [<to>]     bcc email address(es)
  Paranormal:
    -l <logfile>         log to the specified file
    -v                   verbosity - use multiple times for greater effect
    -q                   be quiet (no stdout output)
: log risultante
Sat Feb 11 08:34:17 2006 - 145257 - SENDEM~1.EXE - Email was sent successfully!  From:  ecc
--
Fosco

 Per chi cerca un sendmail SMPT
si inzommma  SMTP
--
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: Drag and Drop

Ho un form che contiene una lable. La lable funge da titolo del form. Ho
bisogno di spostare il form utilizzando la lable come se fosse la barra
superiore.
Come posso fare??

 ha scritto nel messaggio
news:Iq_9a.24424$zo2.7...@news2.tin.it...

sul sito comune c'e' un esempio su "come spostare form senza bordi" che
utilizza delle api per lo spostamento , credo sia proprio quello che serve a
te !

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

Come posso cambiare la descrizione di una colonna
in un oggetto ListView1 in runtime  ?

 wrote in message
news:QSYv6.2748$yU4.4...@news.infostrada.it...


 in un oggetto ListView1 in runtime  ?
prova a cercare sulla guida "Oggetto ColumnHeader, insieme ColumnHeaders" per
poter manipolare le intestazioni di colonna; nel caso specifico basta fare, ad
esempio:
ListView1.ColumnHeaders(1).Text = "Colonna 1"
mi raccomando, l'oggetto del messaggio un po' più descrittivo ;-)
Ciao
--
Luca Dormio
luca....@tin.it

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi "crystal32.ocx"

Ciao a tutti
Quando provo a installare il mio programma su un computer mi viene fuori che
č impossibile installare questo file " crystal32.ocx" sapete perchč??
Grazie ciao

Io sono buono e ti rispondo forse per primo.
Hai già posto la domanda e ti è stato risposto: **Hai verificato la
risposta?**
Ciao Gab

 ha scritto nel messaggio
news:c412jc$29u52c$1...@ID-126639.news.uni-berlin.de...


aveva risposto e ho ricontrollato anche adesso.
Due persone ti hanno risposto ...
http://makeashorterlink.com/?X3A1139D7
Cmq. hai provato a registrarlo a mano?
Copiando anche crystal32.oca e crystal32.dep?
Prova a postare il file con le dipendenze se usi l'installer di VB.
Ciao!

Io che ti ho risposto.... invece mi incazzo!!!
Controlla le risposte prima di aprire un nuovo thread!
Ciao, Vincenzo
Newsgroup: it.comp.lang.visual-basic
Titolo: VORREI CAPIRCI QUALCOSA SU......

Ho la mia bellissima applicazione in DAO che gira bene!
Ho letto che se vuoi stare al passo con i tempi e' ora di usare ADO perchè
sarà l'accesso universale di Microsoft.
Ho provato una cosa semplicissima! Accedere in ADo con SELECT * from tabella
(tabella mdb con circa 200.000 record)  è una cosa lentissima. Ho fatto la
stessa prova sia in codice ADO che con Controllo ADODC ma è semprte lento!
Qualcuno mi può spiegare perche'?
E' una cosa normale?
Se è una cosa normale, come mai dovrei scegliere ADO che è piu' lento?
Forse in rete le cose migliorano in quanto DAO diventa lentissimo!
Fino a quante postazioni è consigliabile DAO, e quante ADO?
Grazie già da ora!
Mi serve una risposta subito perchè devo capire se devo iniziare il
trasporto della mia applicazione da DAO in ADO....

 wrote in message
1tdd5.13297$z%4.15...@news.infostrada.it...


 necessaria sempre la preposizione "Where".;-)
What? Sono circa due anni che lo uso e sta cosa mi risulta nuova... Le mie
"SELECT * FROM PIPPOPLUTOEPAPERINO" hanno sempre funzionato a meraviglia....
Ciaotutti,
Alessandro

 necessaria sempre la preposizione "Where".;-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Un problema con Access <g>( mooooolto lungo )

Salve,
Per quanto io detesti Access, è il DB piu' semplice che posso
utilizzare senza farmi di dopamina ed antidepressivi durante le
ferie.
Ergo, ecco il quesito:
Ho un parco autotreni di tabelle, però quelle che mi interessano sono :
Vetrine, prodotti, categorie,sottocategorie, offerte ed adesioni
La tabella vetrine è composta da:
IdVetrina,
IdAdesione,
IdCategoria,
IdSottoCategoria,
NomeVetrina
La tabella prodotti è composta da:
IdVetrina
IdProdotto
IdCategoria
IdSottoCategoria
NomeProdotto
ImgPiccolaProdotto
ImgGrandeProdotto
La tabella Adesioni è composta da:
IdUtente
IdOfferta
IdAdesione
NomePromozione
DataPrimaAdesione
DataUltimaAdesione
Fatturata
La tabella Offerte è composta da:
IdOfferta
NomeOfferta
DescrizioneBreve
DescrizioneLunga
ValoreOfferta
PrezzoOfferta
NumeroProdotti
NumeroMesi
Visibile
Categorie e sottocategorie sono composte di Id e nome.
Adesso, nella pagina principale per ogni categoria e sottocategoria
selezionate( e fin qui non ho problemi ), devo far vedere:
1) Tutte le vetrine valide
2) Tutti i prodotti appartenenti a quella sottocategoria che non
fanno parte di una vetrina e le cui vetrine sono valide.
Tenete conto, in tutto questo, che la query dovrebbe essere
abbastanza fluida da consentirmi di processare il result set "a pezzi":
prima tutte le vetrine e poi tutti i prodotti.
Qualche idea?
Grazie,
Andrea
co

 prima tutte le vetrine e poi tutti i prodotti.
Anche qui non č chiaro. Puoi fare un esempio con qualche dato?

> fanno parte di una vetrina e le cui vetrine sono valide.
select *
From Prodotti
Where
Prodotti.idsottocategoria=id_sottocategoria_specifica
and
Prodotti.idVetrina <> id_vetrina_esclusa
And
Prodotti.idcategoria In
(select idvetrina from Vetrine)

 Cosa intendi per "valide"? Esistenti in tabella Vetrine?
No, intendo che non siano scadute, quindi che abbiano una
DataUltima valida e non siano passati numero mesi.
Ciao,
Andrea

[*Andrea Raimondi* = 
rain...@tin.it
 in
news:BB%Gb.10638$_
P.42...@news4.tin.it
] ha scritto:

E dove sarebbe questo campo? :-P
Non vedo nemmeno alcuna relazione fra le tabelle Adesioni/Offerte con
Vetrine/Prodotti/Categorie/SottoCategorie... :-(

 Vetrine/Prodotti/Categorie/SottoCategorie... :-(
C'è c'è.
E' in Vetrine( IdAdesione )
Ciao,
Andrea

#12/20/2003#
Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio

Raga, sto per trasferirmi a milano ed avrei intenzione di andare a lavorare 
come programmatore.
Attualmento conosco i linguaggi C\C++\Visual Basic 6 ed SQL.
Mi consigliate di imparare alche altri linguaggi di programmazione oppure 
vado bene?
Grazie 

 ha scritto nel messaggio 
news:OvTOh.32311$6.2...@tornado.fastwebnet.it...

VB6 è quasi fuori mercato.
Ma la cosa peggiore è che Milano è uno schifo: forse trovi lavoro più 
facilmente, ma lo stipendio sarà da fame e lo stile di vita pietoso... 
Sicuro di non avere di meglio?
Ciao 

 ha scritto nel messaggio 
news:460c11f1$0$37201$4faf...@reader3.news.tin.it...


 Mi consigli allora qualche altro linguaggio da imparare?
Ragazzo, mai sentito parlare di .Net?
VB.net, c#?
Java?
Perň non capisco: o sei costretto a trasferirti a milano (ti sposi?), oppure 
come programmazione non sei messo bene, stai scegliendo di trasferirti per 
trovare lavoro e vai a finire a milano senza sapere a cosa vai incontro?
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE!!

Allora, in una mia applicazione devo far scegliere all' utente la directory
in cui copiare una serie di eseguibili. Il problema è che non trovo un modo
per far scegliere una directory tramite il common control, e se utilizzo il
solito trio textbox,drive list e directory list non sò come permettere all'
utente di accedere ai computer in rete.
Nessuno sà come aiutarmi?
Grazie,
Byez'

...


Devi usare il controllo BrowseForFolder. Allegato ne trovi un esempio.
Ci sono rimasto male...

Newsgroup: it.comp.lang.visual-basic
Titolo: visualizzare pagina html

vorrei visualizzare in un form pagine html, come devo fare ?
considerato che la mia pagina html lo salvata .rtf che oggetti devo usare e
in che modo?
--------------------------------
Inviato via 
http://usenet.libero.it

 in che modo?
Oggetto webbrowser.

voglio visualizzare una pagina html in un form. Mi è stato detto di usare
una listview con il rispettivo metodo refresh, come si usa(considerando che
devo visualizzare la paigna prova.rtf)?

Newsgroup: it.comp.lang.visual-basic
Titolo: funzione keydown ?????

ho impostato nel mio programma la funzione keydown per fere in modod che
alla pressione del tasto pageup e page down siano associate a movlast e
moveprevious del data control, e fin qui tutto bene.
come faccio però a far capire al computer quando nel mio database sono
finiti i record e non fargli forzare la procedura?
il codice che ho inserito è il seguente:
private sub nomeform_keydown(keycode as integer, save as integer)
if  keycode = vbkeypageup then nomedata.recordset.movenext
if keycode = vbkeypagedown then nomedata.recordset.moveprevious
end sub
questo funziona fino a quando arrivo all'ultimo o al primo record, dopodiche
se premo uno dei tasti la funzione mi forza la procedura move e mi da errore
record inesistente e devo uscire.
ho provato con una chiave primaria e recordcount ma quando filtro il
database la chiave primaria non è più una sequenza logica e non funziona
come posso fare? potete aiutarmi?
grazie
andrea    e-mail 
viva-l...@lycosmail.com

Ciao,
private sub nomeform_keydown(keycode as integer, save as integer)
    if  keycode = vbkeypageup then nomedata.recordset.movenext
    if keycode = vbkeypagedown then nomedata.recordset.moveprevious
    If NomeData.Recordset.EOF Then NomeData.Recordset.MoveLast
    If NomeData.Recordset.BOF Then NomeData.Recordset.MoveFirst
end sub
bisogna anche usare un po' l'aiuto in linea.
beppe

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] [?] Programmi per demo

Ciao a tutti
Spesso si vedono su siti che vendono sw delle demo animate che spiegano il
funzionamento dei propri prodotti (per rimanere in tema ad es. questo:
http://highspeed.realsoftware.com/flashmovie/index.html
)
Qualcuno sa se esistono altri strumenti di questo tipo, anche molto
semplici, oltre a Flash?
Inutile dire che se fossero gratuiti sarebbe ancora meglio :P
Ciao

 ha scritto

http://tinyurl.com/eyy6a
toh, il primo msg e' mio :)
mi sembra che in particolare gbc avesse suggerito qualcosa, magari prova
mettendo lui come autore in google_ng
ciao, a.

 ciao, a.
Andrea

 l'audio.
In effetti non č niente male per essere gratuito.
Non ho ancora capito se e come sia possibile inserire "tooltip" che spiegano 
cosa stai facendo.
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Database e listview

salve a tutti io vorrei sapere come devo fare per far visualizzare i
dati del mio database in una listview...Vi prego aiutatemiiiii

ciao,
sei in VB6? 

 sei in VB6?
si sono in vb 6

per prima cosa imposta le colonne (se vuoi usare la vista tipo "dettagli di 
explorer")
1)supponiamo tu abbia creato le colonne
 - Nome e Cognome
 - Indirizzo
 - Città
 - Email
rispettivamente i campi del DB:
 - ID
 - Nome
 - Cognome
 - Indirizzo
 - Citta
 - Email
2)crei un oggetto Connessione (se hai già una connessione col DB allora vai 
al punto 3)
set Con =createobject("ADODB.Connection")
apri una connessione col db mediante stringa di connessione che trovi sul 
sito 
www.connectionstrings.com
in base al tuo db
con.open "stringa"
3) crei l'oggetto recordset che di fatto si interfaccia col DB per 
estrapolare i dati
set Rs =createobject("ADODB.Recordset")
lanci la query:
rs.open "select * from tabella order by cognome,nome",Con,3,3
4) cicli il record set
with ListView1.listitems
    .clear             'cancelli la lista
    do until rs.eof
        .add ,"a" & rs("id"),rs("cognome") & " " & rs("nome")            ' *
        .item(.count).subitems(1)=rs("indirizzo")                    ' **
        .item(.count).subitems(2)=rs("citta")
        .item(.count).subitems(3)=rs("email")
     rs.movenext
    loop
    set rs=nothing
end with
*    la funzione add ha diversi parametri
    il primo [index] corrisponde all'ordine dove visualizzare l'oggetto
    il secondo [key] rappresenta la chiave UNIVOCA dell0oggetto che 
inserisci
    la dicitura "a" & rs("id") la uso in modo tale da ottenere la chiave 
dell'oggetto identica all'ID del record del DB
    la "a" la metto perchè il valore [key] non puo essere numerico!
** dato che aggiungo sempre in coda alla lista richiamo l'ultimo elemento 
aggiunto mediante
    .item(.count) e imposto le varie "sotto colonne" con l'oggetto vettore 
.subitems()
    le sotto colonne iniziano da 1 quindi di fatto la colonna 2 si ottiene 
richiamando .subitems(1)
spero di essere stato chiaro
ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: AIUTO!! PLEASE!

Ciao sono Iacono Giancarlo (
g_ia...@hotmail.com
) ed ho questo problema:
Ho costruito un database in Access e da Visual Basic voglio memorizzare
in fase di esecuzione delle immagini grafiche (.tif e .bmp),voglio
inoltre visualizzare le immagini memorizzate nel db all'interno dei miei
form. Ho provato ad usare degli oggetti OLE ma non riesco a visualizzare
le immagini.
All'interno di Access ho provato ad inserire una immagine di tipo
package e di tipo psp ma non cambia nulla.
Vi ringrazio tantissimo per la vostra attenzione!!
Ciao Giancarlo.

Usa un campo di testo dove registri il percorso dell'immagine.
Il db risulta più piccolo è hai meno problemi di gestione.
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Autorun.inf

Ciao a tutti, avrei la necessità di far partire un programma da
chiave usb quando questa viene inserita nel pc. Ho provato
a creare un autorun.inf ma in realtà mi parte la maschera di
windows che mi chiede se lanciare il mio programma o
esplorare la chiave, ecc..
quanlke info in merito?
Grazie,
pusky re delle rane.

 esplorare la chiave, ecc..
Per default su USB l'autorun chiede conferma, diversamente dai CD.
Potresti riuscirci volendo usare qualche trucco da acaro, ma col
rischio di venir incastrato da qualche antivirus o da qualche utente
un po' più attento alla sicurezza.
E in ogni caso non *dovrebbe* funzionare mai su Vista.
http://www.microsoft.com/technet/technetmag/issues/2008/01/SecurityWatch/default.aspx?loc=it/
Bye, G.


Ti dirò, i pc non hanno vista ma xp home e sono tutti... nostri.
Ti spiego l'esigenza... Lavoro per una ditta che offre dei pc
ai clienti. Questi pc sono privi di tastiera, mouse e monitor.
Vengono gestiti dalla società presso cui lavoro in remoto.
per facilitarci durante le installazioni, volevo mettere un programma
su una chiave usb, questo partiva una volta inserito ed eseguiva
una sorta di diagnostica di cui risultato era un output su scheda
audio :-) se tutto ok si staccava la chiavetta e tanti saluti.
sono poche le macchine con il lettore cd/dvd.
Comunque grazie della risposta.
Saluti,
pusky re delle rane.


--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Scusa, è partito per sbaglio.


 Scusa, è partito per sbaglio.
Ma poi torna ? (cit.)
Bye, G.


Povero JB, se ne vanno sempre i migliori...


Newsgroup: it.comp.lang.visual-basic
Titolo: [Stringa SQL] non funziona,potete controllare ?

Salve,
sono alle prese con una stringa SQL di ricerca e non capisco perchè non
filtra come penso debba.
La stringa è questa:
Set rst = dbDati.OpenRecordset("SELECT * from TObj WHERE ObjDn Like '*"
& Trim(txtCerca.Text) & "*' OR ObjMateriale Like '*" &
Trim(txtCerca.Text) & "*" & "*' AND ObjID = '" & TipoID & "'")
Se lancio la ricerca per Materiale,funziona e mi ritorna tutti gli
elementi con quel materiale e per quel tipo (TipoID è una famiglia),se
provo per diametro (DN) è come se l'ultima parte, quella
--> AND ObjID = '" & TipoID & "'") venisse saltata e non
filtrasse,infatti mi ritornano tutti i tipi (ID) e non solo quelli
impostati da me.
Grazie per l'aiuto
R.Zanni
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 impostati da me.
E' una questione di interpretazione dell'ordine della logica.
Basta mattere le parentesi:
Set rst = dbDati.OpenRecordset("SELECT * from TObj WHERE ( ObjDn Like '*"
& Trim(txtCerca.Text) & "*' OR ObjMateriale Like '*" &
Trim(txtCerca.Text) & "*" & "*' ) AND ObjID = '" & TipoID & "'")
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: controllare programma esterno (modificare Z-order)

un altro problema legato al post di 2 giorni fa in cui chiedevo aiuto per
capire come poter premere automaticamente il bottone di un altro
programma....con il vostro aiuto ci sono riuscito, devo dire che era anche
molto banale...ma era una cosa nuova per me..:-)
Ora devo mi si presenta un problema simile:
Ho un'applicazione sviluppata da altri, i quali hanno avuto la brillante
idea di tenere la finestra sempre in primo piano, conoscendo l'handle della
finestra è possibile minimizzarla o quanto meno modificare il suo ordine
sull'asse Z? ...con quale comando?

Proprio il zorder magari non potrai gestirlo (credo), ma
forse il fatto che sia in background o in foreground si.
Se dai un occhio a SetForegroundWindow e simili
forse ti potranno tornare d'aiuto.
-- 
Saluti
Andrea Moro

Newsgroup: it.comp.lang.visual-basic
Titolo: Copiare tabelle Access

E' possibile copiare una tabella access da codice all'interno dello stesso
database.

database.
dai un'occhiata sul mio sito..
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
---------------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: How can I put a form "always on top" on Visual Basic 4?

How can I put a form "always on top" on Visual Basic 4?
Thanks

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Differenza di prezzo...

Allora un 
vb.net
 sul sito microsoft prezzo 670 euro
Vb.net standard su computer discount prezzo 73 euro...
Le differenze quali sono????
Grazie
Giacomo

 Le differenze quali sono????
Uno è 
VS.NET
 (l'intera suite), uno è 
VB.NET
 (solo VB)
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
Gestione Ottica - Gestionale per Ottici e Programmi Gratuiti su:
http://www.nicolaottomano.it


Ok...ci sono...ma le differenze nello specifico????
Vorrei iniziare a programmare in VB cosa mi consigliate????

> Vorrei iniziare a programmare in VB cosa mi consigliate????
VB.NET
 a 73 euro... (controlla che sia il 2003 e non 2002)


 bye
GRAZIE!!!!!!!

Vorrei iniziare a programmare in VB cosa mi consigliate????
Il solo SDK ... e Notepad.



Dimentichi martello e scalpello, per i gioielli di famiglia :-P

 ha scritto nel messaggio
news:sworc.66021$Qc.26...@twister1.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6: Programma in Background

Sto cercando il modo di caricare un programma in background e
far comparire una piccola iconcina nell'angolo di destra della barra
delle applicazioni di Windows (dove c'è l'orologio).
L'iconcina servirebbe solo per attivare\disattivare una modalità del
programma e per uscire dal prog..
Ciao e grazie a tutti per l'aiuto
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio
news:200501261...@mynewsgate.net...

Quell'angolino a destra della barra delle applicazioni di Windows (dove c'è
l'orologio) si chiama SYSTEM TRAY AREA.
Se vai su google e cerchi queste 3 parolini magiche, vengono fuori un
milione di risultati e esempi di codice... praticamente il programma bello e
fatto!
Ciao, Vincenzo

Grazie!
Inviato da 
www.mynewsgate.net

Newsgroup: it.comp.lang.visual-basic
Titolo: [Vb.net] Aggiornam valore in una tabella DB

Ciao a tutti.
Vi espongo il problema. Ho 2 dataTable che contengono le mie tabelle. Una è 
"carico e scarico" e l altra "prodotti". Su prodotti ho l 'attributo 
quantità. Vorrei che quando faccio l'update sulal tabella "carico scarico" 
inserendo la quantità caricata (o scaricata) aggiornassi (incrementare o 
decrementare) il campo quantità su prodotti.
Graize a tutti
ciao


Presumo che i due datatable hanno un id in comune.
Quindi, rilevando l'id del primo è possibile intervenire nella riga del
secondo.
Es.
L'id rilevato è 5 e la quantità da aggiungere è 45.
Nel secondo datatable potremmo intervenire selezionando una riga, tipo:
 Dim dr() As DataRow
 dr = myDataTable.Select("id=5")
 dr(0)("giacenza") = Int32.Parse(dr(0)("giacenza").ToString()) + 45
così il secondo datatable è aggiornato secondo il nuovo valore.
Ave
giuseppeD
---------------
Basta con le ingiustizie
modifichiamo i Comandamenti. Aggiungiamo:
Non desiderare l'uomo d'altre
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 wrote in message 
news:444621c3$0$29735$4faf...@reader2.news.tin.it...

Campi calcolati (ancorché indirettamente) su una tabella?
Che bello avere il carico col segno +, lo scarico col segno -
e il saldo al volo da una query...
No?
Bruno

 ha scritto nel messaggio 
news:e27foe$1ke$1...@news.newsland.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Cerco Visual Studio o Basic 6 PRO in ITA.

come da oggetto

 scritto nell'articolo


Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo scanner da vb

Salve a tutti ,
sto utilizzando i componenti di controllo immagine kodak, e fin qui tutto
bene ....
Ora il problema mio è il salvataggio dell'immagine...., che a parer mio
funge, ma quandoi apro l'immagine con l'oggetto image, nella proprietà
picture, il controllo mi da errore e mi dice che l'immagine non è valida...
Come posso fare???
devo usare qualche altra cosa per utilizzare lo scanner......????
grazie

 ha scritto nel messaggio
news:ahlodl$d4b$1...@fe2.cs.interbusiness.it...

Guarda il sito comune
--
Minervini Corrado Danilo
Sito Comune Ng: 
http://www.it-lang-vb.net
Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt


wrote:

Newsgroup: it.comp.lang.visual-basic
Titolo: larghezza Dbgrid

Salve a tutti,
E' possibile impostare la granezza e il numero di colonne di un dbgrid
collegato ad un controllo data?
Grazie

 wrote in message
95odej$de3$1...@fe1.cs.interbusiness.it...

dbgrid.columns(index).visible = true o false
dbgrid.columns(index).width = quello che ti serve
ciao stefano

Newsgroup: it.comp.lang.visual-basic
Titolo: Da Recordset a Excel

Qualcuno magari l'avrà già fatto, come si fa a esportare i risultati di una
query (e più precisamente di un recordset creato in VB) in un file di Excel?
grazie in anticipo
davide


Già risposto al massimo 2 giorni fa...
ciao
ugo

Newsgroup: it.comp.lang.visual-basic
Titolo: Facciamo un team:VB & GDR (per tutti)

allora non credo che sarò brevissimo ma la mia richiesta comporta un minimo
di specificità...
indietro nel tempo <<<
nacqui a taranto...nel lontano '80...
ehm..no...stop   [] troppo indietro...
Fast ffw >>>
tempo fa ( mo va bene!) ebbi un idea...
che non ho ancora visto in giro per la rete ...
tentai di applicarla in linguaggio scripting per mirc..
ma il codice di mirc è (1) apertissimo e questo non mi va ...
2) troppo semplicistico ..
ci andai cmq MOLTO vicino alla fine ...( 80%)
Il vb va piu che bene ...
insomma...
prima di spiegare tutto tutto ..
chiedo l'aiuto a un progetto di mia iniziativa da parte di gente che abbia
queste qualità :
1) conoscenza VB (client server)
2) passione per i Gdr
Avrei anche un altro progetto in mente per (probabilmente) fare qualche $$$
..
server il punto 1 di cui sopra e 2) voja de fà $$$!
:)))
facciamo questo team ?
aspetto risposte ...


Proponi il progetto, poi vediamo se si fa il team, se il progetto assume
consistenza ed e' interessante ne facciamo un bel OS e magari qualcuno
dall'alto di Leo ci da' una mano :)
Questo ovviamente se c'e' una base tecnica consistente.
Ciaotutti,
Asterix

 che non ho ancora visto in giro per la rete ...


 wrote in message
news:9eg3vt$iiv$1...@diesel.cu.mi.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: winsock + connessioni

Ho un problemino con il controllo winsock.
Sto facendo un progammino così fatto (è più una prova
che un'applicazione vera).
C'è una form  "server" che si mette in ascolto e due "client"
che le inviano messaggi.
Se ul client1 invia un messaggio e prima che venga generato
l'evento "ConnectionRequest" sul server il client2
invia anch'esso un messaggio, compare l'errore
10048, la porta è in uso.
Ho seguito (m sembra) passo passo le istruzioni del manuale
per le multiconnessione con protocollo TCP, ma niente,
il codice del server è questo dove sbalgio?
'**************+
Private Sub cmdEnd_Click()
    Unload frmClient1
    Unload frmClient2
    Unload frmServer
    End
End Sub
Private Sub Form_Load()
    sckServer.LocalPort = 1001
    sckServer.Listen
    frmClient1.Show
    frmClient2.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
    sckServer.Close
End Sub
Private Sub sckServer_DataArrival(ByVal bytesTotal As Long)
    Dim strData As String
    sckServer.GetData strData
    txtData.Text = strData
End Sub
Private Sub sckServer_ConnectionRequest(ByVal requestID As Long)
    If sckServer.State <> sckClosed Then sckServer.Close
    sckServer.Accept requestID
End Sub
Private Sub sckServer_Error(ByVal Number As Integer, Description As String,
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal
HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "Server: " & Number & " " & Description
End Sub
'***********************

10048, la porta è in uso.
Senza provarlo, comunque... il codice mi pare giusto, ma non ho ben
capito invece qual'e' il problema. TU dici che la porta appare
occupata quando uno dei 2 programmi client si connette al server?
Ciao
********* Federico Emanuele Galli  *********
Sideralis Programs (Visual-Basic and Delphi)
 
http://www.softitaly.com/sideralis
  Hai domande ? It.comp.lang.visual-basic
---> 
http://www.murialdo.it/it_lang_vb
 <---

Il problema è questo:
- Client 1 : chiama il metodo sckServer.connect
  sul Server non viene generato immediatamente l'evento
  ConnectionRequest (passano tre, questtro secondi)
- prima che questo evento venga generato (e quindi caricata
  l'istanza successiva si sckServer) il Client 2 chiama il metodo
  sckServer.connect
e qui viene generato l'errore che dice che la porta è già occupata
(giustamente,
perchè il Client 1 non ha ancora generato l'istanza successiva del controllo
sckServer)
Per ora ho tamponato la falla intercettando l'errore e riprovando dopo
qualche
secondo ma non è una soluzione che mi piace...
Newsgroup: it.comp.lang.visual-basic
Titolo: Dove sbaglio?

Ciao a tutti...
vi pregherei di dare un'occhiata al mio listato (è solo un esempio) per
farmi capire dove sbaglio.
Nell'esempio, ho due file: testo.txt e stringa.txt.
Quando clicco sul pulsante voglio che il testo contenuto nel file
"stringa.txt" venga inserito in una determinata posizione nel file
"testo1.txt". A mò di editor esadecimale...
Mi serve anche per imparare le varie funzioni...
Ho provato a fare un listato, però non mi funziona: chi mi sa dire il
perchè?
Ecco il listato:
Private Const filedaaprire1 = "testo.txt"
Private Const filedaaprire2 = "stringa.txt"
------------------------------------------
Private Sub Command1_Click()
    Dim buffer1 As String
    Dim nrfile1 As Integer
    Dim nrfile2 As Integer
    Dim address1 As Integer
    Dim lungh As Integer
    nrfile2 = 2
    nrfile1 = 1
    address = 5
    Open App.Path & "\" & filedaaprire1 For Binary As nrfile1
    Open App.Path & "\" & filedaaprire2 For Binary As nrfile2
    lungh = LOF(nrfile2)
    While Not EOF(nrfile2)
        buffer = Space(lungh)
        Get nrfile2, address, buffer
        Put nrfile1, , buffer
    Wend
    Close nrfile2
    Close nrfile1
End Sub

 End Sub
Penso che prima di approfondire l'analisi del tuo codice sarebbe bene
chiarirne dettagliatamente e puntigliosamente lo scopo.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

 chiarirne dettagliatamente e puntigliosamente lo scopo.
Grazie Maurizio per la risposta:
lo scopo finale č di fare un programmetto che mi permetta di specificare un
determinato indirizzo di un file principale (testo.txt) e di sostituire a
quel determinato indirizzo, tutto il testo presente nel file 2 ovvero
"stringa.txt". Esempio: nel file testo.txt abbiamo questa frase "Prova
microfono prova microfono". Nel file stringa.txt abbiamo questo testo
"armadio". Voglio che la parola armadio sia scritta della posizione 6 del
testo.txt e che quindi alla fine si abbia un file "testo.txt" cosě scritto:
"Prova armadioono prova microfono". Ecco, spero di essere stato piu chiaro!
:-)

dim tmp, tmp1 as string
dim xmp1 as string
dim finale as string
open "stringa.txt" for input as #1
do while not eof(1)
line input #1, tmp
tmp1=tmp1+tmp
loop
close#1
open "testo.txt" for input as #1
do while not eof(1)
line input #1, tmp
xmp1=xmp1+tmp
loop
close#1
finale=left$(tmp1,6)+xmp1+right$(tmp1,len(tmp1)-6) 'dove 6 è la posizione
ciao
_pixel_
p.i....@katamail.com
http://vbios.cjb.net

> finale=left$(tmp1,6)+xmp1+right$(tmp1,len(tmp1)-6) 'dove 6 è la posizione
grazie mille per la celere risposta!
ho provato, ma quando si arriva a questa linea, il debugger mi da errore
"Chiamata di routine o argomento non valido".. posso risolvere?

 finale=left$(xmp1,6)+tmp1+right$(xmp1,len(xmp1)-6) 'dove 6 è la posizione


 dim tmp, tmp1 as string
dim tmp as string, tmp1 as string
solo per essere pignoli !! ;o))
ciao
Ven

> finale=left$(tmp1,6)+xmp1+right$(tmp1,len(tmp1)-6) 'dove 6 è la posizione
...e magari se usassimo la corretta concatenazione tra stringhe:
finale=left$(tmp1,6) & xmp1 & right$(tmp1,len(tmp1)-6) 'dove 6 è la
posizione
;)
- SonicBoom -