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

Stavo dando un occhio ad un sorgente scritto da un mio amico
c'e' un'instruzione che non mi convince per niente:
 viene ripetuta piu' di 150 volte, nell'arco di tutto il programma, la
seguente istuzione:
(connessione e' dichiarato come adodb.connection)
connessione.open "Provider=Microsoft.Jet.OLEDB.3.51;DAtaSource=nomedatab
ase.mdb"
 segue un insert, una select o altre operazioni su dtaabase
e poi
connessione.close
il database utilizzato e' access, premetto che non ho mai lavorato con
access+ vb ma mi suona tutto mooolto strano, solitamente un database
viene aperto una volta sola all'inizio del programma e chiuso alla fine
qualcuno puo' darmi un consiglio??
   Simo
Sent via Deja.com
http://www.deja.com/

 ha scritto nel messaggio
news:958qda$15u$1...@nnrp1.deja.com...


A meno di casi particolari di solito si apre la connessione una volta e la
si chiude alla fine come giustamente intuisci.
Un caso particolare possono essere un db con una sola licenza per la
connessione (si puo' simulare una multiutenza aprendo e chiudendo la
connessione ad ogni operazione) ma non credo sia questo il caso (con access)


Newsgroup: it.comp.lang.visual-basic
Titolo: N.Serie dell'Hard Disk

E' possibile reperire il numero di serie dell'hard disk con Visual Basic.
Thanks
Franco (alias Sgainz)


---
Vorrei vedere le piramidi di Cheope,
ma sono miope, ma sono miope.
---

 wrote in message
39800d81...@100.0.57.0...



Io ho fatto un procedura che lancia un batch, che redirige l'output del
comando dir su un file, e poi leggo il file da VB e intercetto il serial.
Ciao, Andrea.

Newsgroup: it.comp.lang.visual-basic
Titolo: VB6 e database

Salve,
Sto tentando di creare un database autonomamente, al di fuori di quelli
disponibili dai componenti di VB6.
Ci sono moltissimi esempi su libri e documentazione in linea (che mi
funzionano regolarmente in VBA di Access) che iniziano con l'istruzione:
Dim NomeDatabase As Database
Niente da fare, quando lo faccio partire mi da il seguente errore di
compilazione:
Tipo definito dall'utente non definito
In effetti la parola chiave ...As  "Database" non e' disponibile
dall'elenco a tendina dell'editor.
Dove sbaglio???
A proposito... l'istruzione non mi funziona neppure in VB5.
    Grazie anticipatamente,    Paolo

...


Gli ADO li avevo gia' inseriti, ma il vostro suggerimento con "dovrebbero" mi
ha indotto a ritentare ancora ed ho provato ad inserire i DAO: ora funziona.
    Grazie,    Paolo

Newsgroup: it.comp.lang.visual-basic
Titolo: Buon manuale VB in italiano

Buon pomeriggio a tutti
Vorrei iniziare a studiare un po di VB e mi chiedevo se qualcuno poteva
suggerirmi qualche buon manuale da cercare in libreria. Grazie
 
Ciao - Daniele
 
 
 
-- 
The best Italian leather bags and belts at 
www.leatherstuscany.com
 
 
 


 
Se ti interessa per trasloco  cedo
Libro 'Programmare visual 
basic.net
 versione 2003'
 
edizioni mondadori informatica
 
francesco balena
 
pag.1310   + cd  allegato
 
30 Euro 
 
 


se non ti fa paura leggere e poi "provare a fare"....
http://totemslair.org/guide/vb.php
 
ti assicuro che è superiore a molta carta stampata che trovi in libreria 
( ed inferiore a molto altro ovvio)
Per un utente inesperto basta ed avanza....cosa non da poco...gi esempi 
li fa con mysql...mentre tutti i libri usano sqlserver!
Imho questo è un vantaggio nella vita reale: ti troverai ogni tanto a 
collegare Access o Mysql o (più raramente ) postgresql o Oracle invece 
del "solito" Sqlserver
 
p.s.
E' gratis!...

 E' gratis!...
 
Ti ringrazio per il suggerimento. Ho già dato una prima sbirciatina e mi 
sembra un'ottimo suggerimento.
Ciao - Daniele
 
the best italian leather bags and belts at 
www.leatherstuscany.com

Newsgroup: it.comp.lang.visual-basic
Titolo: aiuto, non mi trova winsock

nei riferimenti del mio progetto la voce microsoft winsock ecc. ecc. non è
presente come posso quindi usare il controllo winsock, sapte forse dove
posso scaricarlo?
grazie a tutti.

 posso scaricarlo?
MSWINSCK.OCX, dovrebbe essere nella cartella System
o System32, a seconda del tuo Win. Se non c'è, o lo hai
cancellato o non l'hai installato :-) comunque puoi tirarlo
giù dal solito:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q193366
che dovrebbe essere aggiornato.
Bye, G.

 non è presente come posso quindi usare il controllo winsock
forse perché è un OCX, quindi va cercato tra i "componenti" e non tra i
"riferimenti".
Comunque puoi caricarlo anche come riferimento, ma devi avere l'accortezza
di cambiare "Tipo di file" nella finestra "Sfoglia" impostando ".ocx",
altrimenti ti cerca solo tra .olb .tlb e .dll.
Comunque anche se lo carichi come riferimento, ti porti comunque dietro
tutta la baracca dell'ocx. L'unico vantaggio è che puoi inserirlo in un
modulo di classe che non ha alcuna finestra. Io ho fatto così per un server
multiconnessione.
Ciao, Silv:o)

 multiconnessione.
...bello, veramente bello. Non sapevo si potesse fare :-)
Bye, G.
Newsgroup: it.comp.lang.visual-basic
Titolo: librerie

Ho sto benedetto prog che su alcuni pc mi da problemi con le librerie dao
il programma di installazione mi installa mdac2.0, ma su alcuni pc devo
installare mdac2.6
Come faccio a far installare in automatico SOLO mdac2.6?
nel file setup che mi crea vb che azz devo cambiare? Non vedo comandi che
lanciano alcuna installazione aggiuntiva.
ciao
Mauro

 ha scritto nel messaggio
news:BQmk9.143033$ub2.3...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: programmino che salva i dati

 ciao a tutti avrei un piccolo problemino...vorrei realizzare un piccolo
programmino strutturato simile a un form che si trova in genere sui siti
web....piazzando questo programmino su un pc vorrei che quelli che usano il
pc potessero scrivere all'internoo di campi form il loro nome,
cognome,ecc...e poi che tutti questi dati venissero poi memorizzati in un
file locale, possibilmente in excel (visto che e' strutturato per
suddividere righe e colonne)..se mi opteste aiutare siccome sono ancora alle
prime armi ve ne sarei infinitamente grato..grazie, ciao.
roberto.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 programmino...
per coerenza, i dati dovrebbero essere scritti su un filettino...
roberto, la tua richiesta sembra molto del tipo: il mio professore mi ha
chiesto di fare per compito un programma fatto così e cosà, siccome io
durante le sue ore di lezione, invece di ascoltarlo, chiacchiero con la
mia compagna di banco che è una topona pazzesca, non ho la minima idea di
come farlo.
ho sbagliato di molto?
-- 
Salutoni
Sergio
Per rispondere... togli il group dall'indirizzo
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

putroppo si hai toppato...sono un neo laureato in medicina e specializzando
in anestesia e rianimazione ma siccome faccio anche il volontario, nella mia
asociazione hanno kiesto chi può gentilmente e gratis ovviamente dare una
mano in questo modo: contribuire a costruire un piccolo programmini che i
volontari usino per segnarsi ai turni, in modo che il nostro presidente
abbia un quadro preciso...siccome un pò mela cavo con il visual basic ma
piu, con il php volevo sapere se potevate aiutarmi..tutto qua..niente
sarcasmo....ciao! :-)
l 22 Ott 2004, 15:50, 
news...@cssoft2001.com
 (Melchiade Bedrosian Baol) ha
scritto:



Ok, allora se ti accontenti ... se vai sul sito comune, ci
sta un vecchio progetto di lupo che si preoccupava di gestire
la turnistica di una caserma di pompieri.
E' molto semplice, senza troppe pretese, ma fa il suo dovere.
Lo prendi, lo compili e lo porti all'associazione con tutti gli
omaggi del sito comune e del nostro gruppo, sperando che vi
torni utile come si era prefisso il buon vecchio Lupo.
Ciao
Andrea 

           ok grazie mille...ma qual'è il sito comune?


Newsgroup: it.comp.lang.visual-basic
Titolo: E' possibile ottenere l'handle della finestra attiva?

Vorrei sapere se è possibile farlo e, in caso positivo, se è possibile
cambiare alcune proprietà di quest'ultima attraverso un programmino VB6.
pepefe...@tiscalinet.it

e, in caso positivo, se è possibile cambiare alcune proprietà di
quest'ultima attraverso un programmino VB6.
quali proprieta'?
Roby


GetActiveWindow()
GetForegroundWindow() 'se ti interessa la win in primo piano (attiva o no)
Per modificarne le proprietà è un po' più difficile:
Get/SetWindowLong()
SendMessage()
Get/SetText()
ChiPiuNeHaPiuNeMetta()
Ciao

Newsgroup: it.comp.lang.visual-basic
Titolo: [Controllo Remoto] Configurazione via VB

Ciao a tutti,
devo realizzare una applicazione che configuri automaticamente il Controllo
Remoto di Windows per la connessione ad internet.
Dovrà inserire:
-numero di telefono del provider
-username
-password
Suppongo che dovrò ricorrere ad API per scrivere nel registro di
configurazione, ma non l'ho mai fatto.
Vi ringrazio per qualsiasi aiuto.
THE_1PUNISHER

configurazione, ma non l'ho mai fatto.
Dai un'occhiata sul mio sito, trovi un articolo, un OCX ed un esempio che ti spiega come fare.
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: [?] ocx con ocx: è necessario anche il 2° per il funzionamento?

Io creo un ocx dove all'interno inserisco un richtext ed un winsock.
Una volta compilato il nuovo ocx per il suo funzionamento è necessario
disporre anche del richtext.ocx e del winsock.ocx o il nuovo componente è
indipendente?
Dalle prove che ho fatto sulle mie macchine sembra di no, ma purtroppo non
credo di aver le necessarie capacità per verificarlo.
Sarei grato se qualcuno mi sapesse dire qualcosa in merito.
Ciao
            _pixel_
p.i....@katamail.com
http://vbios.cjb.net

 indipendente?
No.
Devi installare anche gli ocx che hai utilizzato nel tuo.
ciao
ugo
Newsgroup: it.comp.lang.visual-basic
Titolo: Database : FIND

Ma perche' questo non funziona ?
Dim info As String
info = Federico
    rst.FindFirst info
        If rst.NoMatch Then
            MsgBox "Nessun record trovato"
        End If
 
Dovrebbe mica trovare il primo record con "Federico" ?
Ciao
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
 -----------Federico Emanuele Galli----------
 ----------Visual Basic's Programmer---------
 
 Sideralis Programs (Visual-Basic and Delphi)
 
http://www.softitaly.com/sideralis
         NUOVO SITO ULTRAVELOCISSIMO !!!
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
                 Trust no ONE.

Il problema sta nel fatto che tu passi alla funzione dei dati tipo stringa.
Per fare questo devi usare gli apici come nell'esempio sotto:
Dim info As String
info = Federico
    rst.FindFirst " ' " & info & " ' "
        If rst.NoMatch Then
           MsgBox "Nessun record trovato"
        End If
Cosě dovrebbe andare.  Altrimenti scrivimi senza problemi
CIAO !!!


 Così dovrebbe andare.  Altrimenti scrivimi senza problemi


 [.......]
Il criterio da ricercare segue la sintassi della condizione WHERE
dell'istruzione SQL perciò devi impostare :
info ="[Nome]='Federico'"

        End If
Modificato con gli apici, con " cpn un po' di tutto, comunque questo
non trova nulla... mi genera sempre lo stesso incomprensibile errore:
=======================================================
Operazione non supportata per questo tipo di oggetto (3251).
Si stava cercando di eseguire un metodo o di assegnare un valore ad
una proprietà che è in genere valida per l'oggetto, ma non è
supportata in questa istanza specifica. Il metodo Edit, ad esempio, è
in genere valido per gli oggetti Recordset, ma non per gli oggetti
Recordset di tipo snapshot. Questo errore potrebbe verificarsi anche
nei casi in cui l'operazione non è consentita a causa del tipo o dello
stato dell'oggetto, come quando si cerca di utilizzare il metodo
MovePrevious su un oggetto Recordset di tipo forward-only scrolling.
Alcune operazioni non sono inoltre supportate, a seconda che si acceda
a un'origine dati ODBC o Microsoft Jet.
=======================================================
Ho provato anche spostandomi nel BD, ho modificato anche un po' a caso
le sringhe :) Ma questo qui non funziona proprio... Nessuno ha per
caso un esempio, o puo' provare a scrivermelo, su cometrovare i dati
all'interno di un DB ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Handle Grafico

Forse il quesito sara' passato altre volte sulla lista...
Il solito: devo passare un'immagine grafica alla "finestrella" di preview
della scheda screen saver delle "Proprieta' dello schermo" di Win NT. Ebbene
Windows lancia il mio screen saver col parametro "/p XXXXXXX" dove gli X
stanno per l'handle grafico della suddetta finestrella. Da profano, speravo
che un semplice "ImageList1.ListImages(1).Draw (Handle)" potesse bastare,
invece  nisba. Dov'è che si cela il mio errore? (Uso VB5 SP3 sotto WinNT4.0
SP3, ho usato un controllo ImageList per contenere le immagini in formato
.bmp). Grazie a tutti.

...

Non ho mai provato con Nt, comunque l'handle grafico lo puoi ottenere
utilizzando la proprietà picture. Dovresti quindi utilizzare
ImageList1.ListImages(1).Picture
Ciao Bruno






No, l'handle grafico della finestrella di preview lo posseggo gia'....
Io devo solo passare un'immagine tra due "contesti di periferica" (ah se
sapessi usare la BitBlt...). Ciao.


L'uso della funzione BitBlt è abbastanza semplice e viene utilizzata per
trasferire un'immagine tra due contesti di periferica. I parametri sono :
hDestDC handle al DC su cui vuoi copiare l'immagine
x,y = coordinate (in pixel) dell'angolo superiore sinistro
nWidth, nHeight = larghezza e altezza del'immagine da copiare
hSrcDC = handle al DC da cui si vuole copiare l'immagine
xSrc, ySrc = coordinata dell'angolo superiore sinistro dell'immagine che si
vuole copiare, la larghezza è determinata da nWidth e nHeight
dwRop = flag che specifica come avviene il traferimento dell'immagine (per
una operazione di copia semplice SRC_COPY)
Se ho ben capito il tuo problema, tu vuoi copiare un'immagine contenuta in
un controllo imagelist in un'altra finestra di cui conosci il DC. In questo
caso devi:
passo 1: creare un DC di memoria nel quale selezionare l'immagine che vuoi
copiare
hSrcDC = CreateCompatibleDC(hDestDC)
passo 2: selezionare al suo interno  l'immagine da copiare
oldBitmap = SelectObject(hSrcDC, ImageList1.listimage(1).picture)
passo 3: copiare l'immagine dalla memoria allo schermo
BitBlt hDestDC, 0,0,nWidth, nHeight, hSrcDC,0,0,SCRCOPY
passo 4 : liberare le risorse utilizzate
SelectObject hSrcDC, oldBitmap
DeleteDC hSrcDC
Ciao Bruno
Newsgroup: it.comp.lang.visual-basic
Titolo: Printing Strings

Hello to all.
I have inline string. what I mean is that the strings have no line feed or 
enter or return in them. they are completely strait. when I try to print 
them and they don't fit on the page they just get cut off. is there a way to 
convert them to paragraph? 

 ha scritto nel messaggio news:e6be2$42889240$40ed98ae$27...@COQUI.NET...

If Printer.TextWidth(Strings) > Printer.ScaleWidth Then
...
End If

 wrote in message 
news:4288abb9$1...@news.unimib.it...


 ha scritto nel messaggio news:6f21d$428968cc$4232e5c0$31...@COQUI.NET...

    'here you must find the index strings where don't fit begin
    'then need to break with vbCrLf constant
    'after process the rest of strings with the same way
End If

 ha scritto nel messaggio
news:e6be2$42889240$40ed98ae$27...@COQUI.NET...

Use the DrawText() API function.
P.S.: this is an ITalian NG, so, please, post in Italian.
--
Reporting tool: 
http://www.neodatatype.net

 wrote in message 
news:4ekie.907953$b5.39...@news3.tin.it...


 NG
Oh, welcome here, where are you writing from?
-- 
ciao, hal

"Oin Zea" ha scritto nel messaggio

Well, going on the next line is just a matter of printing a vbCrLf...
On a generic reasoning, you should behave so: take the long lines you
have, separate them in an array with Split, then measure their
would-be end point with StringWidth. If it still falls into the printable
area,  simply print them out on your [form | picturebox | printer], else
print a vbCrLf before it, and zero in on the beginning of the x-axis.
Well, that's at least is what *I* would do...
I'd gladly write down some code lines for you, but I know a more
clever way to make you know the "Real Brilliant Way To Do Things" :-)
Click here: 
http://www.google.com/groups?as_q=vb+printing+long+lines
I'm ready to bet two, and even three :-) eurocents that there is a pre-cooked
solution in, say, the first five-six answers to the query :-)
Bye, G.

 | Date: Tue, 17 May 2005 15:22:32 -0700
"The answer is into yourself... and it's wrong" :-P
I *think* he's from Puerto Rico.
Bye, G.

 Oh, welcome here, where are you writing from?
I found the answer by myself:
| Date: Tue, 17 May 2005 15:22:32 -0700
-- 
ciao, hal
Newsgroup: it.comp.lang.visual-basic
Titolo: Lanciare un file

Qual è il codice da dare ad un bottone affinchè quando lo premo mi fa
partire il file "C:\Esempio\esempio.xls(oppure "txt" oppure "doc" oppure
...)"?
Ciao e grazie

ret=Shell("start nomefile.txt",vbNormalNoFocus)
Gianni Moretti

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto per velocizzazione query

Ciao a tutti sono Daniele, ed ho un quesito da proporvi.
Ho in un database una tabella che contiene circa 30000 record, e nel mio
programma devo aprire una lista che li visualizzi.
Sto utilizzando ADO e la datagrid, ma su un normale pentium 200 la lista ci
mette un tempo inaccettabile a mostrarmi i dati.
Con access per esempio, quando faccio la query per aprire la stessa tabella
lui mi visualizza le righe mano a mano che la query va avanti.
Come posso fare a far visualizzare i dati mano a mano che la query va avanti
anche nel mio programma ?
Vi faccio presente che la query che devo utilizzare deve contenere un order
by su un campo che č chiave, ma in questo momento č molto lenta anche senza
inserire l'ordinamento.
Grazie anticipate a tutti coloro che riusciranno ad aiutarmi


Newsgroup: it.comp.lang.visual-basic
Titolo: Aprire DBF

Salve,
mi è successa una cosa raccappricciante.
Sono anni che lavoro con VB e Access e adesso che devo aprire un file DBF
non so come fare.
Ho provato con una semplice OpenDatabase xchè tanto i Dbf sono database ISAM
ma niente da fare . Come si fà ( i dbf li faccio con FoxPro)
GRAZIE 1000
Ciao

...


 wrote in message 7j8ero$2dc$1...@aquila.tiscalinet.it...


Devi passare il percorso del db senza il nome del db, cioè se hai un db
in "C:\MyDb\db.dbf" in opendatabase devi usare "C:\MyDb"
questo concetto vale ogniqualvolta ti vuoi riferire ad un dbf (ad
esempio anche createdatabase usa la stessa sintassi).
Inoltre nel quarto argomento (fonte) devi specificare il tipo di db, ad
esempio "dBASE III;" oppure "dBASE IV;". Fai un salto alla proprietà
Connect per avere tutte le diciture corrette.
Comunque ti conviene veramente utilizzare il formato Access, vuoi perchè
è più comune, vuoi perchè occupa meno spazio fisico (parlo in confronto
con i dbf di dBaseIII).
Ciao!
-- 
May
---------------------------------------------------------
MaySist...@lycosmail.com
Togliere MAYBE
ICQ_UIN: 27234690
---------------------------------------------------------
Giangi ha scritto:


Ciao
Ciao.
---
Daniele Grison
gri...@tin.it
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Modifica campo data in database

Ho un controllo textbox associato ad campo data di un database Access.
Dopo aver impostato un valore in questo campo non è più possibile rimuoverlo
?
in sostanza, come si può cancellare (lasciare vuota)  la data nel campo del
database senza generare "Errore di conversione del tipo di dati ?"
Ho provato a mettere il contenuto del textbox a vbNull, Empty, "", a fare
tutte le conversione che conosco (CDate, ecc) ma nulla da fare !
L'unica soluzione che ho trovato è quella di cancellare il record e crearne
uno nuovo lasciando non assegnato il suddetto campo data.
Grazie per l'aiuto
#fedi#@
sirt.pisa.it
 (remove #)

E' un "problema" del controllo data; dovresti riscrivere un Null tramite
codice oppure (se non è un problema) cambiare la proprietà del campo del
database in modo che accetti la stringa nulla (consenti lunghezza zero).
Ciao Marco. 
-- 
Remove xxx from E-mail.

Marco Rodriquez ha scritto nel messaggio
<01be21c2$0ec33a00$LocalHost@rodry>...

Peccato che non io non riesca a scrivere un Null via codice in un campo
data, e neppure a mettere a true il campo AllowZeroLength (Non sembra
consentito in un campo Data) nè con Visdata nè con Access.
Se qualche "anima pia e coscenziosa" sa come fare ......  e me lo dice, mi
fa un grosso piacere
Grazie di nuovo

Nedo,
Il tuo problema e' legato al DataBinding con un campo di testo:
il campo testo ha una proprieta' text che e' uno string e non consente il
Null:
Se usi vb6 prova a bindare il tuo campo data con un DataTimePicker ed
abilitare
il checkBox.. ti consente di settare un campo data a Null.
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/

database senza generare "Errore di conversione del tipo di dati ?"
Proprio per eliminare alla radice questo ed altri inconvenienti dei
DataControls, c'è sul sito comune del NG
(
http://members.xoom.com/it_lang_vb/
) e sul sito di Carlo Berti
(
http://www.dex-net.com/EC837
) un listato con esempio ed istruzioni (...
L'ho fatto io).
Il file da scaricare è DB_Con_Query.zip.
Ciao
Maurizio B.
mrzNOMMI...@tin.it
 (eraseNOMMISPAMMA)
Newsgroup: it.comp.lang.visual-basic
Titolo: Apertura files in VB6

Ho copiato da qualche parte il codice che ho trascritto qui sotto per aprire
un file  di testo e scriverci qualcosa dentro, questo perchè anche avendo
comprato un manuale a caro prezzo non ho trovato da nessuna parte la
spiegazione di una operazione fondamentale come questa. Così ho trovato
questo codice in un esempio scaricato da qualche parte ed ho constatato che
funziona, ma il punto è che non mi basta per niente !!!
Vorrei capire cosa ho scritto e perchè, quindi ho due domande da farvi:
1) Qualcuno sa spiegarmi il senso di quello che ho scritto ?
2) Non c'è un modo più semplice per un'operazione così elementare ?
Preciso che sto lavorando in VB6.
Vi riporto di seguito il codice in questione e vi ringrazio fin da ora.
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
    Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
    Dim fs, f, ts, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.CreateTextFile "c:\test1.txt"
    Set f = fs.GetFile("c:\test1.txt")
    Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
    ts.Write "Salve"
    ts.Close
    Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
    s = ts.ReadLine
    MsgBox s
    ts.Close

Scusami, ma sono un pò arrugginito con la programmazione, e adesso che ho
ripreso ho trovato tutto cambiato.
Ho parecchie domande da porre ancora.
Per esempio se voglio fare un append mi basta comunque eseguire un print o
esiste anche l'istruzione append ? ed esiste ancora il concetto di files ad
accesso relativo, dove definivo dei campi con una determinata lunghezza in
dei record ?
Grazie.

 2) Non c'č un modo piů semplice per un'operazione cosě elementare ?


 ha scritto nel messaggio
news:0VtI4.113022$pn3.1...@news.infostrada.it...

Penso che oltre alla lettura dei manuali, possa esserti utile l'help in
linea: cerca print e segui i link proposti. Troverai molte risposte.
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

 dei record ?
Esiste ancora la modalità di apertura For Append (comunque puoi fare una
Seek a Lof(file)+1&) ed esistono ancora i file Random. Queste cose non
cambiano molto - o perlomeno: c'è sempre una notevole compatibilità.

Newsgroup: it.comp.lang.visual-basic
Titolo: Disabilitare controlli

Ho una serie di controlli in un frame, c'è la possibilità di
disabilitarli tutti in un unico botto senza farlo per uno alla volta?
grazie

 disabilitarli tutti in un unico botto senza farlo per uno alla volta?
Spiegati meglio. Vuoi una funzione tipo DisabilitaControlliNelFrame(Frame1)
che provveda da sola disabilitare tutti i controlli presenti nel frame? No,
perchè già se fai Frame1.Enabled=False li hai disabilitati tutti anche se
però appaiono ancora come attivi...
Antonio Mirarchi



Esatto proprio questo intendevo.
Quindi devo frlo per forza uno alla volta?

 wrote:

E se proprio non gli bastasse ...
    Dim c As Control
 
    For Each c In Form1.Controls
        If 
c.Container.Name
 = "Frame1" Then
            c.Enabled = False
        End If
    Next
Ciao!

> E se proprio non gli bastasse ...
[HyperCut]
Allora: la tua funzioncina va bene... Però 2 cose:
1. Non usare una stringa per verificare il container... Funzionerebbe pure
però è considerato un modo poco elegante di programmare
2. Mettici un On Error Resume Next perchè ci sono dei controlli (come Shape
e Line) che sono sprovvisti della proprietà Enabled
Quindi, la funzioncina finale dovrebbe essere:
Private Sub DisabilitaControl(IlFrame As Frame)
    On Error Resume Next
    Dim c As Control
    For Each c In Form1.Controls
        If c.Container Is IlFrame Then
            c.Enabled = False
        End If
    Next
End Sub
Antonio Mirarchi

 e Line) che sono sprovvisti della proprietà Enabled
Dimenticavo: Sostituisci Form1.Controls con Me.Controls!
Quindi:
 Private Sub DisabilitaControl(IlFrame As Frame)
    On Error Resume Next
    Dim c As Control
    For Each c In Me.Controls


Newsgroup: it.comp.lang.visual-basic
Titolo: Riachiamare un EXE

ciao a tutti,
come faccio a richiamare da un programma vb6 un altro eseguibile .exe ???
grazie mille a tutti .
ciao
Claudio .

 Claudio .
Prego mille a te.
Ciriciao
:-)

 :-)
Grazie davvero...ciaooo
Claudio .

     Shell "c:\windows\NotePad.exe", vbNormalFocus
ciao,
scusami ancora, sai come posso fare a controllare se il file che richiamo
con la funzione shell() è effettivamente presente in quella specifica
posizione dell'HD, voglio cioè che se il file non dovesse essere trovato, la
funzione mi restituisca un qualche valore in qualche atributo....come faccio
!?!!?!
grazie mille ancora e ciaooo
Claudio .

!?!!?!
La funzione si chiama Dir (o Dir$, che restituisce un tipo String,
mentre la prima ritorna una Variant).
-- 
hth, hal

, 
cla...@libero.it
 
says...


 Ciao   Paride

 posizione (ad es. c:\windows). Come faccio !?!?
Oh, Claudio, hai avuto due soluzioni, perchč non le provi?
Se ti serve sapere se un qualsiasi file esiste, usa la Dir (vedi post di
hal1961), poi, semmai, lanci la Shell (leggi bene il post di Paride, fino in
fondo)
Newsgroup: it.comp.lang.visual-basic
Titolo: Evento DocumentComplete

Articolo Microsoft Knowledge Base - 259935
questo articolo dice che l'evento in oggetto non viene generato quando
quando il controllo WebBrowser ha la proprietà Visible = False.
il workaround suggerito è quello di lasciare visibile il controllo, ma di
posizionarlo in un punto dove non possa essere visto.
Nel caso in cui questo accrocchio non sia applicabile, qualcuno ha idea di
cosa si possa fare per aggirare il problema?
Ringraziamenti anticipati.
--
Salutoni
Sergio

La butto li ... ma non sò quanto sia fattibile, ma comunque era l'unica
strada che avevo trovato qunado avevo iniziato a vedere di risolvere
il problema per un applicativo che poi è morto in fase di analisi.
Ti fai restituire ( ci sono delle proprietà non accessibili dall'oggetto,
non direttamente, ma tirando in ballo un altro ocx mi pare) la lunghezza
in byte della pagina, mentre ti sta tirando giù i byte, con uno degli
eventi che hai a disposizione che - se non ricordo male - veniva
"fairato" ogni tot byte ricevuti sommi e quando sei arrivato alla
fine quindi quando byteToDownload = byteDownloaded allora
sai che hai finito.
Scusa la vaghezza, ma era un progetto del 99 e non ho documentazione
in merito perchè lascai tutto al cliente.
HTH.
Andrea

 Scusa la vaghezza...
ehm... un po' troppo vago :-)
ti ringrazio comunque per il post "di solidarietą" :-)
--
Salutoni
Sergio

Newsgroup: it.comp.lang.visual-basic
Titolo: Ado + msxml + memo

Salve , sto sviluppando un programma che recupera dati da un archivio mdb
tramite msxml.
Ho creato una pagina asp che restituisce un documento xml che leggo tramite
ADO.
Fin qui tutto ok.
Quando cerco di leggere un campo memo  il risultato viene tagliato e ottengo
solo i primi 255 caratteri.
C'è qualche impostazione da settare in msxml oppure è una limitazione del
protocollo HTTP ?
Grazie per l'attenzione.

 protocollo HTTP ?
Hai verificato che non sia proprio la query a tagliare l'output?
-- 
ciao, hal

 ha scritto nel messaggio
news:e9Zpe.17986$is5....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: codice per il calcolo del sorgere e tramonto del sole e luna (effemeridi aeronautiche)

Salve a tutti, spero di non apparire  come uno che vuole la pappa pronta;
non saprei da dove iniziare.
Ringrazio in anticipo per chi puó e vuole aiutarmi.
 
Qualcuno Sto arrivando! Dove reperire il codice per poter calcolare le
effemeridi aeronautiche in relazione alle coordinate inserite.
Grazie, Bruno

 Grazie, Bruno
 
^^^^^^^^
Un grazie a Franco L. per la sua generosit� e aiuto.
Ho recuperato i moduli per il calcolo del sorgere/tramonto del sole e fasi 
lunari, gentilmente concessi da Franco L..
Ora devo studiarci sopra perch� di primo acchitto ho avuto l'impressione che 
avro difficolt� anche a farlo funzionare oltre alla comprensione del codice.
 
Considerato che non visito i NewsGroup giornalmente, se ci fosse la 
necessit�di richiamare la mia attenzione potere farlo anche con e-mail e 
subito acceder� subito al news group.
 
Grazie a tutti
 
Bruno
 
 

 Bruno
 
Potresti anche mettere il link qua, nel caso la materia potesse 
interessare qualcun altro.... sareste in due!
 
-- 
Greg
 
 


^^^^^^^^
Ciao Greg, non possiedo un link da inserire nel post; si tratta di due 
moduli VB.
Per correttezza nei confronti dell'autore..........penso che  a brevissimo 
provveder� direttamente lui, dando eventuali spiegazioni su come 
utilizzarlo.
Io potrei solo incollare il codice nel post.
Comunque non sparisco! Seguir� la cosa.
Ciao, Bruno
Newsgroup: it.comp.lang.visual-basic
Titolo: info su comboBox

ho un problema sicuramente banale, ma non ne vengo a capo.
Voglio che quando seleziono un valore della mia combo, questo non sia
modificabile come se fosse un TxtBox.
Voglio che si apra la tendina, seleziono il valore, poi non sia
modificabile.
Dove mi perdo ?? ho provato con enable e loked ma non va bene, qual'è il
comando ?
Grazie 1000

 ha scritto

.style=2
ciao, j.

 ha scritto nel messaggio
news:2uak9cF...@uni-berlin.de...

si può fare via codice ??
vorrei che fosse in defoult su 2 ma in caso si potesse riabilitare.
ho provato con
comboBox.stile = 0
ma mi dà un errore
Max

 ma mi dà un errore
mi sa di no: f1 su .style nella finestrina properties:
proprieta' style -- Restituisce o imposta un valore che indica il tipo di
visualizzazione e il comportamento del controllo. Di sola lettura in fase di
esecuzione.
per di piu' incasina un po' la gestione della proprieta' .text.
se non sbaglio puoi fare
    With cboOrder
        .AddItem "completo"
        .AddItem "id"
        .Text = .List(0)
    End With
ma non
        .Text = "id"
il che a volte rompe.
non ho mai provato, ma direi che nessuno ti vieta comunque di tenere un cbo
normale nascosto, caricato con gli stessi valori, e di alternare la
visibilita' dei due.
-- 
hth, ciao, j.
http://www.sundaysw.com

Newsgroup: it.comp.lang.visual-basic
Titolo: [Service pack]

Ciao a tutti,
mi sapreste indicare cosa contiene il Service pack 3 per VB5 che ne possa
giustificare l'installazione?
Fabrizio

 giustificare l'installazione?
Per esperienza personale...
corregge un paio di bug nella compilazione dei progetti
a me succedeva che alcuni controlli inseriti a design time
sparissero a runtime... o meglio erano visibili ma quando
si cliccava sopra di essi appariva
"Errore di runtime -2147.5457 membro ~ sconosciuto"
--
Fibia "Sakamoto" FBI
URL: 
www.geocities.com/fibiafbi
E-Mail: 
fibi...@hotmail.com
ICQ UIN 63586057
Membro #25 delle BT Sez. Sud
Newsgroup: it.comp.lang.visual-basic
Titolo: DTS e dipendenze

Dovendo inserire dei dati su un server SQL presso un cliente, e non avendo
nè VPN nè RAS, ho optato per questa soluzione:
I dati che ho nel server SQL di sviluppo sono stati esportati su tabella
Access;
Ho creato un pacchetto DTS che importa da MDB a Sql-Server;
Ho salvato questo pacchetto come modulo BAS e l'ho inserito in un mio
progettino, che darò al cliente da lanciare su un PC della rete.
A questo punto, testo e sul mio PC W2kPro va tutto perfettamente.
Preparo il pacchetto, e mi viene segnalato che non ci sono informazioni di
dipendenza per DTSPKG e DTSPUMP (le due librerie che mi servono e che
secondo BOL sono indispensabili).
Proseguo comunque, ma il pacchetto sui PC di test (W95 e W98SE) non va. O
meglio, si installa, parte correttamente, ma appena cerca di eseguire la
riga, che sotto indico con un asterisco, mi dà il classico 429 "Impossibile
creare l'oggetto".
Option Explicit
Public goPackageOld As New DTS.Package
Public goPackage As DTS.Package2
Public Sub Main()
Set goPackage = goPackageOld '*
Sostanzialmente, sembra che la libreria DTSPKG.Dll, che contiene
DTS.Package, non sia registrata, per cui quando l'exe cerca di istanziare
l'oggetto, avviene l'errore.
Ho provato anche a sostituire il COMCAT.Dll, che su MSDN viene citato come
fonte di problemi analoghi su sistemi NT4 (anche se lo stesso MSDN dice che
su W2k non ci sono problemi).
Sulle macchine di test sono stati installati DCOM, MDAC2.7, JET40SP3.
Qualcuno ha avuto esperienza simili?
Idee?
Ciao
Alberto

 Alberto
HTH
bye
R

 db coinvolti
Beh, mi adatterò anche io a fare questo.
Il problema è che la mia sub sarà lievemente più complessa, perchè quella da
te riportata non considera il tipo dati Uniqueidentifier, che in Access non
esiste. Per cui dovrò fare dei veri e propri insert dalla tabella Access che
invierò per e-Mail al DB Sql-Server presente sul server del cliente.
Ciao e grazie
Alberto

 Alberto
bye
R

 correttamente, cioe' restano gli stessi, dalla sub che ho postato.
Nel frattempo avevo già preparato la mia routine, per cui leggo solo ora il
tuo post.
Ho provato, perchè trovo molto pratica la soluzione del loop da te
consigliata, ad applicarlo, ma ho un piccolo problema: la tabella di
destinazione, al termine del ciclo, che non dà errori, risulta ancora vuota.
Eppure il recordset di origine è pieno, e il ciclo avviene regolarmente (ho
messo un contatore di loop).
Entrambi i recordset, sia origine che destinazione, sono aperti come:
RECST.CursorLocation = adUseClient
RECST.CursorType = adOpenDynamic
RECST.LockType = adLockBatchOptimistic
Per curiosità, tu come li apri (quantomeno quello di destinazione)?
Ciao
Alberto

 Per curiosità, tu come li apri (quantomeno quello di destinazione)?
Forse quel 'Batch' non si incastrava bene con l'Update...
Adesso è OK.
Ciao
Alberto
Newsgroup: it.comp.lang.visual-basic
Titolo: Drag

Ciao a tutti
1) stò realizzando un software di disegno. Ho un problema con il controllo
image. Ho la necessità di spostarlo all'interno del form e fargli mantenere
la posizione nuova, col metodo DragMode = Automatic riesco a spostarlo ma
non a fargli mantenere la posizione, come posso fare???
2) con il codice che segue, riesco a disegnare manualmente in un form delle
linee,
Dim DrawNow As Integer
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single,
Y As Single)
    DrawNow = -1
    CurrentX = X
    CurrentY = Y
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y
As Single)
    If DrawNow Then
        Line -(X, Y)
    End If
End Sub
ma voglio che le linee quando le si disegna le si possa vedere (come nel
paint di windows) come posso fare???
3) terza ed ultima: come posso colorare il testo presente in un
commandbutton (la caption per intenderci) o è possibile solo cambiare il
colore dello sfondo nei commandbutton???
ciao e grazie a chi riesce a risolvere almeno uno dei problemi

Newsgroup: it.comp.lang.visual-basic
Titolo: Ado e mySQL

Volevo sapere se qualcuno sta usando VB6 (ADO) e mySQL , mi viene
restituito un errore di VB non sempre in fase di update di un campo 
VARCHAR che è il seguente : "-
2147217887
 si sono verificati errori in
una operazione composta da più passaggi controllare i singoli valori di
stato."
Grazie in anticipo. 
Antonio 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 di stato."
questo errore si verifica, se non ricordo male, se stai cercando di scrivere
un numero di caratteri superiore alla dimensione del campo. o almeno: si
verifica anche in quel caso.
prova a vedere se è così anche per te.
Salutoni
Sergio

 ha scritto nel messaggio
news:bbkeji$afpsa$1...@ID-173193.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: come trovare un'API?

Ciao a tutti, qualcuno saprebbe dirmi come si fa a sapere se esiste e in
caso positivo qual'è l'API che svolge una determinata funzione?
Nel mio caso io ho bisogno di rilevare il computer name e mi hanno detto che
è necessario avvalersi di una DLL creata su misura. Come faccio a sapere
come e dove cercare?
Grazie infinite per il vostro interessamento!
James
--
mailto: 
b_...@hotmail.com

 come e dove cercare?
nessuna dll, almeno per questo basta una chiamata.prova come sotto
===
[private] Declare Function GetUserName Lib "advapi32.dll" Alias
"GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long
    dim nUser as string
    Dim strBuffer As String
    Dim lSize As Long
    Dim lRetVal As Long
    strBuffer = String$(255, 0)
    lSize = Len(strBuffer)
    lRetVal = GetUserName(strBuffer, lSize)
    nUser = Left$(strBuffer, lSize - 1)
===
quanto all'api, bisogna che un po' te la guardi. riposto suggerimenti dati
altrove.
hth, pal
--
andrea dot palazzi at tin dot it
free vb/sw: 
http://www.comune.modena.it/cittadini/apal/html/
===
* daniel appleman, visual basic win32 api: guida del programmatore,
zdpress -- mondadori informatica, isbn 88-7131-755-6, 120k, cd
-- sorry, this is the italian data -- you might search for it in amazon or
something.
* italian collection on win api:
http://members.xoom.it/cesarerizzi
* cool apiguide -- online / downloadable, free:
http://users.turboline.be/btl10148
* randy birch's site:
www.mvps.org/vbnet
API References:
www.mvps.org/vbnet/api/_acc/apiac.htm
* another very good site (in zip format too):
http://skyscraper.fortunecity.com/transmission/45/api/index.html
hlp on win32 (i didnt see it)
ftp://ftp.inprise.com/pub/delphi/techpubs/delphi2/win32.zip

 come e dove cercare?
--
Ciao.
Maurizio

L'Api è una delle più semplici, GetComputerName, oppure GetUserName se vuoi
il nome dell'utente, oppure WetUserName, ti consiglio di dare un occhio su
http://members.xoom.it/CesareRizzi
Ciao
--
Posted from 
mta03-acc.tin.it
 [212.216.176.34]
via Mailgate.ORG Server - 
http://www.mailgate.org

 wrote in message
003501bf74d2$d183e760$f8eaabd4@rizzi...


 wrote in message 882e9f$r6e$1...@nslave2.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Catching results of a call to a batch file

Basically, I want to be able to call a few DOS commands from a
vbscript.  Catch the result of the DOS commands and play with it.
Example:
x = shell("ping 10.1.1.5")
at this time this occurs:
     Y:\>ping 10.71.0.13
     Pinging 10.71.0.13 with 32 bytes of data:
     Reply from 
10.71.0.13
: bytes=32 time<1ms TTL=255
     Reply from 
10.71.0.13
: bytes=32 time<1ms TTL=255
     Reply from 
10.71.0.13
: bytes=32 time<1ms TTL=255
     Reply from 
10.71.0.13
: bytes=32 time<1ms TTL=255
     Ping statistics for 
10.71.0.13
:
         Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
     Approximate round trip times in milli-seconds:
         Minimum = 0ms, Maximum = 0ms, Average = 0ms
I want to be able to catch this and then use the info in vb.
Any ideas OTHER than using a text file, there has to be a better way
then sending the ping results to a file.
Thank you
Ro

 vbscript. 
This is an Italian and VisualBasic NewsGroup
try here :
news:microsoft.public.scripting.vbscript
news:microsoft.public.scripting.wsh
http://aumha.org/a/batches.htm
http://www.microsoft.com/resources/documentation/windows/xp/all/proddocs/en-us/batch.mspx
-- 
Fosco

Newsgroup: it.comp.lang.visual-basic
Titolo: Come trattare le date?

Salve a tutto il NG!
Ho un problemino nel trattare le date con il motore di ricerca SQL.
Questo e' il problema: nel database ho un campo chiamato datas (formato
data/ora), che quando il suo valore e' una stringa vuota deve prendere in
considerazione il valore di un altro campo dataf. Digitando il seguente codice:
"select * from dati where month (dataf) = 1 and datas <> ''"
il recordset e' sempre vuoto, PERCHE' ??? 
Grazie
--
Posted from 
velthur.krenet.it
 [194.143.128.45]
via Mailgate.ORG Server - 
http://www.mailgate.org

 ha scritto nel messaggio
news:2000022111...@velthur.krenet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Winsock: non ho capito una cosa:

Premessa:
applicazione client ed applicazione server.
faccio la connessione tra i due scatenando l'evento ConnectionRequest sul 
server
Non ho capito una cosa (e questo si era capito, presumo):
quando accetto la connessione (lato server), vorrei inviare dei dati al 
client (uso quindi ws.senddata "bla bla bla"), ma questi dati non vengono 
ricevuti fino a quando non do il comando ws.close
Funziona proprio così o sbaglio qualcosa io? 

 Funziona proprio così o sbaglio qualcosa io? 
Mi pare che tu sbagli qualcosa.
Appena connesso puoi già inviare dei dati con SendData "bla bla bla", e 
sul client viene generato l'evento DataArrival, i cui parametri ti 
indicano quanti bytes stanno arrivando.
Quindi fai un bel
   TuoWinSock.GetData VariabileDestinazione, BytesTotal
-- 
Quando noi ignoranti eravamo di più,
tutto era più bello...
(Adriano Celentano)

Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni prima dell'acquisto

Salve. Prima di acquistare il vb vorrei porvi alcune domande:
1) Cosa sono le librerie? Sono importanti?
2) Visto che sono alle prime armi dove posso trovare una lista di tutti i
comandi che si possono utilizzare ed eventualmente anche tradotti in
italiano?
3) La versione Beta di 
vb.net
 permette di creare gli eseguibili .exe e
soprattutto in che lingua è?
4) Se voglio creare un eseguibile .exe la sua dimensione sarà eccessiva?
5) Se creo una tabella dove chiederò di inserire dei dati è possibile far
stampare la cella dove è inserito il nome (TextBox1) a 1,7cm (dall'alto
verso il basso) e 4,5 cm (da destra verso sinistra)? Se si con quale
comando? (Ecco perchè mi servirebbe una lista dei comandi con spiegata la
loro funzione!!).
Grazie a tutti coloro che saranno pazienti con me.
P.S: A proposito della lista con tutti i comandi e le rispettive funziuni,
se non esiste perchè non si crea un gruppo di esperti in VB incaricati di
crearlo? Successivamente si potrebbe inserire nel sito comune.

- Le librerie sono basilari per linguaggi di programmazione complessi:
all'interno di esse sono ci sono infatti funzioni e subroutines
importantissime per la gestione di immagini, collegamenti a databases etc.
- Elenco delle funzioni: esiste l'MSDN (Microsoft Developers Network) su CD
e su Internet (se non sbaglio: 
http://msdn.microsoft.com
  )
- Eseguibili: gli eseguibili creati con VB, da soli, servono a poco. Hanno
necessariamente bisogno dei componenti run-time necessari per interpretare i
comandi (a meno che non siano già installati sul computer di destinazione) e
delle librerie necessarie a seconda del tipo di programma implementato (a
esempio un programma che crea connessioni TCP/IP avrà bisogno della libreria
MSWINSK.DLL). A tale scopo esistono i "Pacchetti di Installazione" che si
possono creare con un Wizard apposito fornito con VB.
-Stampa: pagine di Thread precedenti spiegano diversi metodi per stampare
con VB.
Per altri chiarimenti:
logic...@tiscalinet.it
(non fare "Rispondi" con Outlook et simili)
Michele Antolini
Newsgroup: it.comp.lang.visual-basic
Titolo: sintassi sql update

Ho un database clienti con i seguenti campi : NOME , COGNOME, INDIRIZZO
,CITTA', ho creato una form dove visualzzo in 4 textbox i suddetti campi.
Quando provo a cambiare il  nome del cliente nella prima textbox e poi provo
a salvarlo non riesco a ottenere nessun risultato.Nel pulsante che ho creato
per attivare le modifiche , ho inserito il seguente codice (che ovviamente è
sbagliato).
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
strconn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & App.Path &
"\contatti.mdb"
conn.Open strconn
conn.Open strconn
sql = "update clienti set nome= '" & txtnome.Text & "' where nome = '" &
txtnome.Text & " ' "
conn.Execute sql
grazie come sempre per l'aiuto

 ha scritto nel messaggio
news:kWZKa.125646$Ny5.3...@twister2.libero.it...


 '" & txtnome.Text & " ' "
Vedila cosě:
UPDATE CLIENTI SET NOME='NUOVONOME' WHERE NOME='NUOVONOME '
Cosa c'č di sbagliato (a parte lo spazio prima dell'apicino...)?
Ciao
Alberto

 č


>> update clienti set nome= '" & txtnome.Text & "' where nome = '" &
txtnome.Text & " ' "
E' ovvio che non da nessun risultato.

 > è


 ha scritto nel messaggio
news:kWZKa.125646$Ny5.3...@twister2.libero.it...


 ha scritto nel messaggio
news:Uv_Ka.125754$Ny5.3...@twister2.libero.it...


 > č


 Poterste farmi un piccolo esempi di come devo scrivere il codice. :-)
sql = "update clienti set nome='" & nuovo_nome.Text & "' where nome='" &
vecchio_nome.Text & "'"

vediamo se mi riesce questa lezione di teoria alle 11 della domenica
mattina.....
:-)))
allora, sara, immagina di avere la tabella con questo record:
NOME                COGNOME            INDIRIZZO        CITTA'
Igor                   Damiani               Via Rossi          Milano
ok? Adesso tu vai sul tuo bravo form, prendi il record e lo modifichi con le
textbox che hai messo. Modifichi solo il nome, che da 'Igor' diventa
'Liborio Igor'. Ok. La query che ne risulta e che lanci sul database è la
seguente:
sql = "update clienti set nome= '" & txtnome.Text & "' where nome = '" &
txtnome.Text & " ' "
cioè, sostituendo i valori, diventa:
sql = "update clienti set nome= 'Liborio Igor' where nome = 'Liborio Igor'"
Ecco perchè non funziona. La clausola WHERE dell'SQL filtra un record che
non esiste, perchè non c'è alcun record dentro la tabella con Nome =
'Liborio Igor'. Perciò la cosa giusta è cercare di impostare la WHERE
filtrando in qualche altra maniera, per esempio con un campo chiave (un
contatore o un numero intero lungo che l'utente *NON* può modificare.
Supponendo che tu abbia un campo ID, puoi scrivere l'sql come:
sql = "update clienti set nome= '" & txtnome.Text & "' where id = '" &
txtid.Text & " ' "
cioè, sostituendo i valori, diventa:
sql = "update clienti set nome= 'Liborio Igor' where id = 1"
ovviamente 1 è messo lì a caso, dipende quale record è. Spero di essere
stato chiaro, ok?
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262