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

 - Trova messaggi di
questo autore
Data: 7 Jul 2005 07:42:19 -0700
Locale: Gio 7 Lug 2005 16:42
Oggetto: Re: IDENTITY_INSERT
Rispondi | Rispondi all'autore | Inoltra | Stampa | Messaggio singolo |
Mostra originale | Elimina | Segnala illeciti
I have 2 different programs with 2 different databases.
The first database where i have just the new table without data and the
second one where i have all.
I must take all data from the second database and insert in teh second.
The databases have similar table but not egual and i made a program to
pass the data.
But i have some identity column in the second databases that i must
update with the data of the first.
For example :
in the original database i have
TABLE CUSTOMERS  - COLUMN ID WITH VALUE
1
2
5
6
the save data i must put in the aother databases.
I use 
vb.net
 and i have a table in sqlserver 2000.
I'd like to update also the value of an identity column.
How can i update the value ?
Can i set IDENTITY_INSERT OFF and after set IDENTITY_INSERT ON.
how can do it ? what is the command ? 
Thank you 
Luca

 how can do it ? what is the command ?
Guarda nei BOL per quanto riguarda INDENTITY_INSERT e usa il metodo 
ExecuteNonQuery dell'oggetto SQLCommand.
Ciao!
P.S. La prossima volta, visto che questo č un ng italiano, abbia almeno la 
pazienza di tradurre il testo. Grazie.
-- 
Gianluca Cannalire
Microsoft MVP/MCP - Visual Basic
http://www.visual-basic.it
http://community.visual-basic.it/gianluca

1' grazie per la sollecita risposta
2' scusate tutti per il testo in inglese ma era ovviamente un copia e
incolla di un post in altri newsgroup e non avevo fatto caso al fatto
che questo fosse in italiano :-) 
Grazie ancora  
Luca
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] salvare in un db, metodo più efficiente

Ciao ragazzi,
mi date un consiglio o un parere?
Programmo con vb6+sp5 e devo gestire un db sotto Access 2000 usando ADO
2.7......
questo è il punto: qual'è il metodo più efficiente per creare/modificare i
record nel db?
Io utilizzo il seguente metodo:
1) apro il recordset (SELECT * FROM Tabella WHERE ID=5)
2) una volta "beccato" il record da modificare, salvo tutti i campi così:
    temp("Campo1")=ValoreCampo1
    temp("Campo2")=ValoreCampo2
    temp("Campo3")=ValoreCampo3
e così via, fino a quando non faccio Temp.Update per salvare il tutto.....
ho sempre fatto così finora. E' la cosa più giusta da fare oppure è
preferibile utilizzare query di esecuzione, tipo INSERT INTO o UPDATE a
seconda dei casi?
ovviamente non parlo solo di velocità, ma anche di manutenzione, leggibilità
e così via....
io preferisco la prima; se il thread sarà ricco, magari discuterò anche il
perchè!!!
:-)))
grazie!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
---
"Tu devi capire che lei è nuova a queste cose..."
"Th, bhè, che cosa ci vuole?"
"Ci vuole, ci vuole, è questione di orizzonti che non è abituata a
vedere..."
Una persona che conosco, 8 Novembre 2002

e così via....
IMHO:
Velocita': usa le stringhe SQL;
Scalabilita' e portabilita': usa il recordset;
Manutenzione: dipende dalla confidenza che hai con il linguaggio SQL.
-- 
ciao, hal

 Manutenzione: dipende dalla confidenza che hai con il linguaggio SQL.
Ok.
Personalmente uso _normalmente_ il metodo di Igor.
Faccio a volte eccezione nel caso in cui debba inserire record in tabelle
correlate dove può bastare una semplice INSERT.
...e ovviamente nel caso in cui, per es. faccio una export di x record
da un database a un altro.
ciao
ugo

Sì, ma sulla INSERT di 1 record...
Non credo che un loop sulle righe da aggiornare
sarebbe poi cosi' doloroso: internamente il recordset
dovrebbe fare proprio cosi' ;-)
-- 
ciao, hal

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

Devo ricercare un file .txt in una determinata directory ( Es. C:\documenti)
come posso fare quale chiamata api devo usare??
Grazie
Gabriele

 come posso fare quale chiamata api devo usare??
Dim strDirectory As String
Dim strFileName As String
strDirectory = "C:\Documenti\"
strFileName = "Miao.txt"
If dir(strDirectory & strFileName) <> "" Then
    'Il file esiste
Else
    'Il file non esiste
End If
prova a guardare sull'help la funzione Dir
Ciao
Faber
Newsgroup: it.comp.lang.visual-basic
Titolo: Registrazione programma informatico

Buongiorno, devo registrare presso la Siae un programma informatico
pubblicato. Qualcuno ha già svolto questo iter burocratico?
Praticamente i "diritti fissi" sono composti da:
registrazione di un programma (modulo 349)
registrazione di un atto (modulo 346)
visura di registrazione
visura di documenti o atti
copia certificata di registrazioni o di documenti
Non ho capito chiaramente cosa sia la visura di registrazione e la visura di
documenti o atti, e se la registrazione dell'atto va fatta dopo la
registrazione del programma o contemporaneamente.
Ultima domanda: qual è il costo approssimativo dell'atto pubblico o
scrittura privata presso il notaio?
Grazie anticipatamente,
Roberta

 registrazione di un atto (modulo 346)
A cosa serve spendere questi soldi?
-- 
Greg 


A pensare che non ti copino il programma

Lascia perdere la SIAE.
Il copyright è tuo indipendentemente dalla registrazione SIAE (era un
errore in cui ero caduto anche io).
La registrazione alla SIAE serve solo per avere i diritti d'autore sul
tuo software (diritti che non ti arriveranno MAI, perchè sei un signor
nessuno, mica Microsoft).
Ascolta il consiglio: l modo più semplice per ottenere una
certificazione della data del tuo software è quello di prendere una
firma elettronica (puoi utilizzare una delle tante CA gratuite, presso
le quali devi recarti personalmente con un documento valido) e poi
firmare eseguibile e sorgenti.
Altra cosa abbastanza valida è mettere una demo scaricabile da un server
web (es uno spazio aruba). La data di upload sul server è un buon
certificato.
bye
wintelc...@yahoo.it
 ha scritto:


Newsgroup: it.comp.lang.visual-basic
Titolo: [ot] oe

alle 18 aggiornati 2 pc coll'ultima patch 'critica' per ie.
il desk sembra tutto ok
nel lap (questo) vedo l'elenco di mail e post in alto, ma nella finestra del
testo zero via zero.
in sincronizzazione ecc non da' errore, e se faccio ^f3 vedo header ecc
correttamente.
ma i post li ho letti sul desktop, e due mail arrivate stasera le leggo o
guardando gli header o salvando come .eml e aprendo con l'editor...
io ho fatto l'upd, andava, sono uscito a cena con amici, mo' sta cosi'.
mia moglie non dovrebbe aver toccato niente, usa l'altro, e j no senz'altro,
era fuori con me :)
virus direi di no.
a quest'ora sono stancuccio, e non ci capisco molto.
se avete suggerimenti, mi sembra di leggere roba scritta a inchiostro
simpatico...
come dire, un po' una palla...
grazie e ciao, j.

J ... troppo vino ???
-- 
Saluti
Andrea Moro
Newsgroup: it.comp.lang.visual-basic
Titolo: webbrowser e upload file

Salve,
ho la necessità di inviare dei file via http, usando però il vb6.
In pratica fare quello che fa questo codice html:
<form action="
http://www.sito.it/pagina.pl
" method="post"
enctype="multipart/form-data" name="modulo" id="Ricerca">
<input type="file" name="fname" id="fname">
<input type="submit" value="Verifica" name="B1" >
</form>
ho provato l'oggeto webbrowser ma non capisco come funziona. Ad esempio:
URL = "
http://www.sito.it/pagina.pl
"
Flags = 0
TargetFrame = ""
PostData = StrConv("C:\path\file.ext", vbFromUnicode)
Headers = "Content-type: multipart/form-data" + vbCrLf
wb.Navigate URL, Flags, TargetFrame, PostData, Headers
ma non funziona, la pagina in perl mi dice che non riceve nessun nome di
file.
Grazie per ogni eventuale aiuto.
HD

invece del web browser prova ad usare il controllo Inet.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.ita

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB5 e vocabolario

Un saluto a tutti, vorrei tanto sapere se è possibile utilizzare in un
programma (vb) il vocabolario di word.
Nel caso non sia possibile qualcuno poterbbe indicarmi dove reperirne uno ?.
Ciao e grazie.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: Quesito MOLTO interessante!

Probabilmente questa domanda non avra' risposta..
comunque...
Quello che sto cercando di fare e' calcolare il perimetro di un'immagine
vettoriale.
In pratica devo misurare la lunghezza del contorno di una figura o testo.
Piuttosto complicato vero?
1000 grazie per eventuali risposte...:-)
David
--
E-mail: 
d...@iol.it

Supponi di avere una strttura di dati che contiene le coordinate dei punti
che definiscono la figura:
La funzione Distaz ritorna la distanza tra un punto e l'altro. La somma
globale ti da il perimetro.
Sub Calcola()
Dim Dis as Double
Dim x1 as Double, x2 as Double, y1 as Double, y2 as Double
Dim i as Integer, i1 as Integer, i2 as Integer
For i = 1 to nPt  - 1
    i1=i
    i2=i+1
    X1 = Pts(i1).Pt.x
    Y1 = Pts(i1).Pt.y
    x2 = Pts(i2).Pt.x
    y2 = Pts(i2).Pt.y
    Dst= Distaz(X1, Y1, x2, y2)
    Dis = Dis + Dst
Next
    X1 = Pts(nPt).Pt.x
    Y1 = Pts(nPt).Pt.y
    x2 = Pts(1).Pt.x
    y2 = Pts(1).Pt.y
    Dst= Distaz(X1, Y1, x2, y2)
    Dis = Dis + Dst
' Ora Dis = Perimetro.
End Sub
Function Distaz(X1 As Double, Y1 As Double, X2 As Double, Y2 As Double) as
Double
   Dim De As Double
   Dim Dn As Double
   De = X2 - X1
   Dn = Y2 - Y1
   Distaz = Sqr(De ^ 2 + Dn ^ 2)
End Sub
Fabio Guerrazzi

Newsgroup: it.comp.lang.visual-basic
Titolo: Permuto Vs.net Professional con Vb6

EVENTUALE CONGUAGLIO DA CONCORDARE.

 EVENTUALE CONGUAGLIO DA CONCORDARE.
Avete qualche altra notizia di gente che abbandona :) ??????????'


LoL...Perň dai, č da stupidi arrendersi subito cosě...
A me .NET piace tantissimo, anche se č un pacco e si deve imparare tutto da
0...;)

 EVENTUALE CONGUAGLIO DA CONCORDARE.
NON URLARE!
Rivolgiti alla microsoft ed effettua il downgrade č un tuo diritto! Fatti
mandare i media se non ce li hai gią.
Newsgroup: it.comp.lang.visual-basic
Titolo: Creare dll in vb5: è possibile?

Scusate la mia ignoranza, ma č possibile creare in visual basic una
semplice DLL come in C? Nel wizard di creazione progetto, mi viene
offerta la possibilitŕ di creare DLL activex, ma ciň vuol dire che tale
dll, credo, puň solo essere utilizzata come classe oggetto registrata
nel registro di configurazione.
Quello che voglio č creare una dll 'leggera' (non una classe) che renda
disponibile le sue funzioni alle applicazioni che ne fanno uso.
E' possibilie fare ciň in VB? se sě, come?
Grazie anticipatamente,
Fabrizio

 E' possibilie fare ciò in VB?
No!
  Il C è il C,
Visual Basic è un'altra cosa.

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema facile

Ciao a tutti.
Sono un novellino lo so... ma aiutatemi!
come faccio a fare in modo che un valore aumenti ogni volta che clicco
un pulsante?
Questo ad esempio non funziona. Perch=E9?
Private Sub Command1_Click()
Label1.Caption =3D t
t =3D t + 1
End Sub
Ciao!
Intanto la propriet=E0 a cui fai riferimento =E8 applicabile ad oggetti come
Etichette, Bottoni ecc.
Questa propriet=E0 =E8 di tipo testo ed =E8 soltanto descrittiva, quindi=
 fare
t=3Dt+1 non pu=F2 darti nessun risultato.
Per incrementare un valore devi utilizzare un campo di tipo numerico e
allora vedrai che con quel sistema funziona.=20
        fare: descrizione+1=3Derrato
        al limite dovresti fare:   descrizione & "descrizione aggiuntiva"
--
Automatic posted from 
server.vds.it
 [194.91.75.1]
via Mailgate Server - 
http://www.mailgate.org

...
Ciao a tutti.
Sono un novellino lo so... ma aiutatemi!
come faccio a fare in modo che un valore aumenti ogni volta che clicco
un pulsante?
Questo ad esempio non funziona. Perché?
Private Sub Command1_Click()
Label1.Caption = t
t = t + 1
End Sub
Ciao!
Intanto la proprietà a cui fai riferimento è applicabile ad oggetti come
Etichette, Bottoni ecc.
Questa proprietà è di tipo testo ed è soltanto descrittiva, quindi fare
t=t+1 non può darti nessun risultato.
Per incrementare un valore devi utilizzare un campo di tipo numerico e
allora vedrai che con quel sistema funziona. 
        fare: descrizione+1=errato
        al limite dovresti fare:   descrizione & "descrizione aggiuntiva"
--
Automatic posted from 
server.vds.it
 [194.91.75.1]
via Mailgate Server - 
http://www.mailgate.org
----------

Se qualcuno ha capito cosa si voleva dire me lo dica!
com ho gia' scritto all'autore io fai molto + semplicemente:
Private Sub Command1_Click()
   static t as long
   Label1.Caption = ltrim$(str$(t))
   t = t + 1
End Sub
Nicola ha scritto nel messaggio


Prova cosě:
  Private Sub Command1_Click()
  Label1.Caption = trim(str(val(Label1.Caption) + 1))
  End Sub
Newsgroup: it.comp.lang.visual-basic
Titolo: Lettera per lettera

Come posso inserire lettera per lettera di una txtbox in delle variabili
contenenti ciascuna una lettera?
Grazie

 wrote in message
tSnt5.12358$_U1.2...@news.infostrada.it...


 wrote in message
news:8p53r9$o0g$1...@pluto.sm.dsi.unimi.it...


Qualche esempio?

 ' quindi ogni byte contiene un carattere.
Ciao,
e poi puoi continuare ad accedere ai carattere della stringa indicizzando b?
dim terzocarattre as string *1    // or byte
terzocarattere = b(3)?
Ma questa è manna! Peccato che con il VB4 rimane un sogno :-((
--
Princi, 
princ...@programmer.net
--------------------------------------------------------------------------
"Tutti sanno che una cosa è impossibile da realizzare,
finché arriva uno sprovveduto che non lo sa e la inventa." A.E.

 la option explicit? :-))))
Ciao,
perdonami ma OE l'Option Explicit non me la riconosce, che ci vuoi fare...
alla M$ fanno sempre le cose a metà ;-))
In effetti ora ho controllato con il VB4 e funziona. Non ero a conoscenza di
questa possibilità ed mi rammarico di non averla potuta sfruttare nelle
tante circostanze in cui mi sarebbe stata veramente utile.
    Option Explicit
    Dim myStr As String
    Dim a_str() As Byte
    Dim terzoChar As String * 1
    myStr = "Ciao Mondo!"
    a_str() = StrConv(myStr, vbFromUnicode)
    terzoChar = Chr$(a_str(2))
    'ovviamente il carattere è accessibile con la Chr$
Ti ringrazio ancora per l'attenzione con la quale partecipi sempre. Ciao.


 Ti ringrazio ancora per l'attenzione con la quale partecipi
sempre.
Dovere. Qui se si presta il fianco non te lo restituisce
nessuno. Io il tuo me lo tengo per un probabile prossimo
trapianto.
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
Newsgroup: it.comp.lang.visual-basic
Titolo: Container come elemento di un array

Ciao,
dunque, ho un array di tre PictureBox.
All'interno di ciascuna di esse ho una TreeView.
Ora, in una mia funzione devo recuperare il Contenitore della
TreeView, ma se faccio una cosa del genere:
Dim mParent as Object
Set mParent = TreeView1.Container
mParent.BackColor = vbRed
Viene modificata sempre la prima Picture dell'array!
Il problema è che cmq la proprietà Container non ritorna la
"collection di Picture" per cui non posso fare una cosa del tipo:
For Each mPic in mParent
...
Next
Quanche idea?
Tnx.
Daniele.

 Viene modificata sempre la prima Picture dell'array!
Non so, secondo me dovrebbe funzionare...
Forse ho capito male, non è che questo ti succede perché setti comunque
mParent sul container della TreeView1 (quindi presumibilmente la treeview
contenuta nella _prima_ picture dell'array) ?
Bye
Raf
----------------------------------------------------------------------------
----
La mia Cartella di Posta in Arrivo è protetta con SPAMfighter
94 messaggi contenenti spam sono stati bloccati con successo.
Scarica gratuitamente SPAMfighter!

 Non so, secondo me dovrebbe funzionare...
Si, infatti funzia!
Non so dove avevo la testa stamattina!! Come'è facile perdere tempo!!!
Tnx!
Daniele.
Newsgroup: it.comp.lang.visual-basic
Titolo: 2 Domande da newbie

Ho iniziato da poco a studiare vbasic e ho due domande alle quali non 
so rispondere. La prima: come faccio ad interfacciarmi ad un file (del 
tipo: salvo le impstazioni del programma nel file status e se non c'e' 
lo creo). La seconda e' legata alla prima perche' non so come poter 
leggere o scrivere un file in una certa riga senza doverlo riscrivere 
tutto. 
Ah, quasi dimenticavo! volevo fare un controllo di errore che impedisse 
all'utente di scrivere in una textbox caratteri che non siano numeri. 
Andando a fare un if carattere <> 1 or 2 or 3 ecc... il programma poi 
non sembra cagarmi e mi da sempre errore. Ho risolto con if annidati, 
ma mi sembra una cosa orrenda: if carattere <> 1 then 
    if carattere <> 2 then
   ....
    msgbox "errore"
endif
endif
Qualcuno mi puo dare una mano o indirizzare ad un doc web?
Grazie

So google trovi decine, se nono centinaia di risposte alla tua domanda
eccoti l'url
http://groups.google.com/advanced_group_search?num=25&hl=it&group=it.comp.la
ng.visual-basic
Davide

Newsgroup: it.comp.lang.visual-basic
Titolo: Come leggere i vecchi progetti (o anche solo forms) VB3 nel VB6?

Salve a tutti, è la prima volta che posto.
Il mio problema nasce dal fatto che ho bisogno di recuperare dei codici all'interno di un vecchio
progetto VB3 del '95. Ora il fatto è che il VB6 non ne vuol dapere di aprirmi il .frm
(incompatibile, poichè binario: il VB3 non faceva i .frx e i .frm ma buttava il tutto nel .frm) nè
il .mak.
Ovviamente leggendo il file con un editor non si capisce nulla in quanto binario.
C'è un programmino di conversione che analizzi i vecchi .frm e ne tiri fuori qualcosa di compatibile
con VB6?
Mi basterebbe al limite anche il codice interno.... E' una routine quella che devo recuperare.
Grazie a tutti
Regards LaZ
.·´¯`·.¸.·´¯`·.¸ ><((((º> ....... <º))))>< .·´¯`·.¸.·´¯`·.¸
Mi riservo, con fermezza, il diritto di contraddirmi. (Paul Claudel) 
.·´¯`·.¸.·´¯`·.¸ ><((((º> ....... <º))))>< .·´¯`·.¸.·´¯`·.¸

 ha scritto

quando mi e' capitato, ho riaperto con vb3 e salvato in txt.
ciao, a.

quando mi e' capitato, ho riaperto con vb3 e salvato in txt.
Il problema è che il VB3 non l'ho più...


 Il problema è che il VB3 non l'ho più...
se non e' grosso e ti fidi, puoi mandarmelo. reinstallo (non prima di
domattina, quindi nel caso aspetta seno' me lo scordo pure) e te lo
converto. se qualcuno ha ancora vb3 installato fai anche prima.




 wrote in message
3a0bda64...@news.interbusiness.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Autocomposizione installazione!

Quando creo un' autocomposizione installazione questa mi inserisce anche
files inutili, come dll che non servono però a volte non sono sicura del
fatto che servano o meno come faccio a saperlo?
Grazie
--
Antonello Cordella
ant...@libero.it
http://members.xoom.it/Lello

 wrote in message
y2%y3.8720$E4.1...@typhoon.libero.it...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Controllo Data

Salve Nws..!
Chi di voi mi consiglia un controllo ocx per gestire l'inserimento di una
data di nascita...?
Ne ho provati già tanti...ma nessuno mi ha entusiasmato + di tanto.....!
Scusate per l'espressione...ma sto cercando un controllo a cui fumano le
pa**e !  : ))))

 ha scritto nel messaggio
news:vH5_7.5746$WQ2.2...@news2.tin.it...

Che cosa devi gestire nell'inserimento della data di nascita?
Se il controllo che devi fare è sulla validità della data, potresti usare la
funzione IsDate() nell'evento LostFocus, oppure nell'eventuale CommandButton di
conferma dei dati inseriti.
Ciao!
--
Esteban
Hosted by 
www.seber.it
Remove 'nonspammare' for reply

 ha scritto nel messaggio
news:F1d_7.38356$s04.1...@news.infostrada.it...


 ha scritto nel messaggio
news:F1d_7.38356$s04.1...@news.infostrada.it...


 ha scritto nel messaggio
news:_ci_7.6693$WQ2.2...@news2.tin.it...


 ha scritto nel messaggio
news:Mbi_7.6688$WQ2.2...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Veterani di VB, Aiutatemi!!!

Devo assolutamente stampare del testo con caratteristiche tipiche dei Fonts
di windows (bold, size, fontname) ecc...
Se stampo il testo distanziato regolarmente su linee diverse ovviamente è
tutto ok.
Il mio programma deve sovrapporre il testo. Se non faccio variazioni sulle
proprietà del Font (mi stampa in Ms Sans Serif 8, normal) il testo si
sovrappone regolarmente lasciando intravedere quello sottostante.
Come tocco anche una sola proprietà il testo diventa come un rettangolino
bitmap coprendo tutto quello che in quella posizione è stato stampato in
precedenza. Ho provato con le API TextOut e il problema persiste. Ho
spulciato la documentazione in linea, il Developer Starter Kit, tutte le
guide possibili e non ho trovato niente.
Non sarà mica che Microsoft mi costringe ad inventarmi fonts vettoriali????
Grazie, Fabio Guerrazzi

 guide possibili e non ho trovato niente.
Ho avuto anche io lo stesso problema, che per altro non ho ancora risolto!!!!!
AIUTO Dunque.....
Il bello che le stesse routines in VB3 funzionano!
-- 
Hi, Ciao
Ettore                 By -MES-
http://www.aspide.it/freeweb/ilmes
Newsgroup: it.comp.lang.visual-basic
Titolo: sapere se una cartella è vuota o no

come posso sapere se in una cartella esiste almeno un file o è vuota?
infatti devo cancellare tutti i file se esiste almeno un file e non farlo se 
la cartella è vuota.
Grazie. 

 come posso sapere se in una cartella esiste almeno un file o è vuota?
Controllando nei post vecchi:
http://groups.google.it/group/it.comp.lang.visual-basic/browse_thread/thread/7b6288abaae29623/cb87f6ea124fd276?lnk=st&q=elenco+file+directory+group%3Ait.comp.lang.visual-basic&rnum=1&hl=it#cb87f6ea124fd276

 se la cartella è vuota.
On Error Resume Next
Kill "miacartella\*.*"
Ciao

 wrote in message
news:43d7f70d$0$47902$
4faf...@reader3.news.tin.it

Sei parente alla lunga con Marco Tosto che su ICAA ha postato
la stessa domanda...?
@Alex 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 > come posso sapere se in una cartella esiste almeno un file o è vuota?
Ecco qui una cosa "alternativa" :
PS:
da usare solo per uso personale e se NON si intende redistribuire
'Al posto di Windows mettici la folder che vuoi
sStartPath = "c:\windows"
Set oFSO = CreateObject("Scripting.FileSystemObject")
sReportName = "log.txt"
'Set oFSo = CreateObject("Scripting.FileSystemObject")
Set fReport = oFSo.CreateTextFile(sReportName, True)
ListFolders(sStartPath)
Sub ListFolders(sPath)
  Set oFolder = oFSO.GetFolder(sPath)
  fReport.Writeline oFolder
  fReport.Writeline "Base name: " & oFolder.Name
  fReport.Writeline "File count: " & oFolder.Files.Count
 t =oFolder.Size/1024000
     S = formatnumber(t,,,,0) & " MB "
''''''' fReport.Writeline "Folder size: " & S
  fReport.Writeline
  For Each oFldr In oFolder.SubFolders
    ListFolders oFldr.Path
  Next
End Sub
set oShell = CreateObject("WScript.Shell")
while not oFSO.FileExists("log.txt")
WScript.Sleep 100
Wend
oShell.run"log.txt"
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Test.vbs)
'se ti da' errore disattiva l'antivirus
--
Fosco
Newsgroup: it.comp.lang.visual-basic
Titolo: ShotDown in win2000

Vorrei un aiuto.
Necessito di fare lo Shot Down del PC da un mio programma, e per farlo ho
pensato di usare l'API ExitWindowsEx.
Ma qui la sorpresa: nn mi riesce di farla funzionare correttamente sotto
Windows 2000 professional, poichè passando i parametri dovuti come 'flags'
nn succede nulla!
L'unica cosa che sembra accettare è il Logoff, al massimo in modalità
'Force' (riconnette come altro utente senza chiedere conferma nel chidere i
vari programmi aperti), ma di spegnere tutto nn se ne parla.
Come posso fare?
Mi hanno detto che in Win2000 la procedura di shotdown è diversa da NT (dal
sito 
allapi.com
 ExitWindowsEx è 'certificata' per 95/98 e NT), questo può
essere la ragione?
Grazie a tutti e buon lavoro! :)

 ha scritto
| Necessito di fare lo Shot Down del PC da un mio programma, e per farlo ho
| pensato di usare l'API ExitWindowsEx.
Penso tu abbia bisogno di un fucile a canne mozze per fare lo Shot Down, anziche' ricorrere alle
api... (che fanno del buon miele se non sono disturbate)... :)))))
| Ma qui la sorpresa: nn mi riesce di farla funzionare correttamente sotto
| Windows 2000 professional, poichč passando i parametri dovuti come 'flags'
| nn succede nulla!
Scherzi a parte, ti consiglio di cercare tra i vecchi post usando le parole chiavi "Shut Down": mi
sembra se ne sia gią parlato in precedenza.
Ciao,
Jabba

 
:-D
A volte lo shot down di win non e' una brutta idea ... ;-)
	maxx

 maxx
Vabbč....il mio solido inglese m'ha tradito ancora 1 volta ...ma che scuole
avrň mai fatto per sparare alla Microsoft? CMQ grazie!

 ha scritto
| > > Penso tu abbia bisogno di un fucile a canne mozze per fare lo Shot Down,
| anziche' ricorrere alle
| > > api... (che fanno del buon miele se non sono disturbate)... :)))))
| > >
| > A volte lo shot down di win non e' una brutta idea ... ;-)
|
| Vabbč....il mio solido inglese m'ha tradito ancora 1 volta ...ma che scuole
| avrň mai fatto per sparare alla Microsoft? CMQ grazie!
Beh, non hai mica tutti i torti... a sparare alla M$... :)))))

 ha scritto nel messaggio
news:9ubn2a$eq8$1...@pegasus.tiscalinet.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: msgbox

quando creo un "msgbox-yesno",la eseguo,
 mi da un valore in base a quello che ho sccelto.
come faccio a visualizzare questo valore?
grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 come faccio a visualizzare questo valore?
se intendi come fai a testare quel valore fai semplicemente
dim risposta as byte
risposta = msgbox("",vbyesnocancel,"")
e confronti il valore di riposta con le costanti vbyes, vbno e vbcancel.
MIk

la Msgbox è una Function, quindi ti restituisce un valore......quindi:
Risposta = Msgbox(Messaggio,vbYes+vbNo,Titolo)
a questo punto dentro la variabile Risposta hai il valore vbYes se l'utente
ha cliccato su Yes, oppure vbNo se l'utente ha scelto No.
facile, no?
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 come faccio a visualizzare questo valore?
Non ho capito benissimo, ma se fai:
Dim RetVar
RetVar=MSGBox("Sei sicuro?",VbYesNo)
la variabile RetVar assume i seguenti valori:
Yes=6
No=7
Comunque sulla guida trovi il resto
-- 
Ciao Gab
ICQ#158859446

 come faccio a visualizzare questo valore?
Comunque il valore restituito da MsgBox non č ne byte ne long ne variant ma
vbMessageBoxResult.
Basta verificare nell'object explorer.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 Ciao
MIk

Newsgroup: it.comp.lang.visual-basic
Titolo: grafici a linee e MSChart

Sto provando ad inserire un grafico nel mio progetto. Tutto ok se il tipo di
grafico e' quello a torta o a barre o area ecc... MA se imposto il tipo di
grafico su linee(naturalmente quello che serve a me) ecco che non mi
visualizza + niente.
Ho cercato sulla documentazione di msdn ma tutti gli esempi e riferimenti
sono associati a grafici a barre o ad aree o a torte.
Il problema, penso, risieda nel fatto che oltre a fornire i valori dell'asse
Y devo fornire anche dei valori per l'asse X, ma non ho la piu' pallida idea
di come si possa fare cio'....
--
____________________________
   G 1 0 X®
Web: 
www.giox.net
Alt. Mail: 
info...@libero.it
Icq Uin: 47698601
Irc Chan. @azzurranet:
   #mhackerone; #ahccc; #linux;
_____________________________

With Form1.MSChart1
.chartType = VtChChartType2dLine
     .ColumnCount = 2
        .RowCount = 2
            .Column = 1
            .Row = 1
            .Data = 38
                  .Column = 1
                  .Row = 2
                  .Data = 23
             .Column = 2
             .Row = 1
             .Data = 105
                 .Column = 2
                 .Row = 2
             .Data = 100
           End With
Ciao. :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Problemi con ON ERROR RESUME NEXT

Esistono dei casi non riportati sull'MSDN di malfunzionamento di ON
ERROR RESUME NEXT (nel senso che l'errore noon viene trappato)?
Bye by Massimo 8-]
P.S.
Codice:
Dim K as Long
...
K=-1
On Error Goto TrapError
K=Ubound(MioArray)
On Error Goto 0
...
TrapError:
' Gestione dell'errore
MioArray e' un array di UDT
In alcune parti del programma questa sequenzqa di istruzioni mi ritorna
un 'Subscript Out Of Range' quando MioArray non e' ancora stato
dimensionato (ho fatto solo Public MioArray() as MioTipo), ed in altre
parti (stesse condizioni di MioArray non dimensionato) l'errore viene
trappato.

altreparti (stesse condizioni di MioArray non dimensionato) l'errore >viene
trappato.

...


Newsgroup: it.comp.lang.visual-basic
Titolo: ExitWindowsEX.......e se ci sono utenti connessi?

Utilizzo questa API per il reboot automatico del PC. Però windows mi dice
che ci sono utnti connessi e quindi attende l'assenso alla
disconnessione.....
Qualcuno sa come come posso bypassare ciò e farmi il reboot in ogni
caso??????
Grazie
Marcello

 wrote in message
1%Hg7.10656$vC1.1...@news1.tin.it...

Usalo così:
ExitWindowsEx EWX_REBOOT Or EWX_FORCE, 0
Ciao
Sir Jo

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

E' possibile lanciare il Winzip da un programma VB6 per salvare e zippare un
database
su floppy ?   Grazie .Ciao.

E' possibile lanciare il Winzip da un programma VB6 
Sicuramente e' possibile, che sia anche conveniente... dipende ;-)
Su 
info-zip.org
 sono disponibili librerie free per comprimere e decomprimere
in formato zip, eventualmente con password e amenita' varie, che possono
essere usate anche da vb.
-- 
ciao, hal

Facile se lanci con vb un file batch esterno che contiene la stringa
completa per zippare.
Giorgio

 E' possibile lanciare il Winzip da un programma VB6 per salvare e zippare
un
E' facile se lanci con vb un file batch esterno che contiene la stringa
completa per zippare.
Giorgio

qualcuno di voi usa zip32.dll, io si da un paio di settimane, all'
inizio nessun problema poi la sorpresa sotto W2000o Xp se uso la
funzione recurse subdirectory ogni tanto si pianta windows con un
messaggio la memoria xxxxxx doveva essere read.
Chi mi aiuta ? il sito 
infozip.org
 non riporta nulla 
Saluti
 Alessandro
-----------------------------------------
Alessandro Bilato 
ale...@tin.it
http://www.geocities.com/abilato/

Newsgroup: it.comp.lang.visual-basic
Titolo: elementi in un array

Scusate la domanda (forse banale)
qual'e' il modo piu semplice possibile per conoscere il numero di elementi
di un array ??
grazie

>di un array ??
Con LBound(v) e UBound(v) puoi sapere il limite inferiore e superiore.
Antonio

Hmm... forse meglio "Tot=UBound(MioArray) - LBound(MioArray) + 1".
Fabio Pagano
Andrea Fabbri ha scritto nel messaggio ...


...

Newsgroup: it.comp.lang.visual-basic
Titolo: Conversione PDF to TIF da VisualBasic

Fino a poco tempo fa per convertire un documento PDF in TIF
seguivo i seguenti passi:
- attraverso un printer driver "HP Laserjet IIIP", fornito
  con windows 9x trasformavo il file .PDF utilizzando Acrobat 
  Reader 4.x in PCL, con la linea di comando 
  C:\....\Acroread.exe /p/s/h file.pdf, utilizzando la stampa 
  su file del suddetto driver
- poi servendomi del programma SwiftView (
www.swiftview.com
)
  trasformavo il file .PCL creato dal printer driverr in .TIF
I parametri /p/s/h mi permettevano di stampare un documento
.pdf in modo nascosto e di far si che Acrobat Reader alla
fine della stampa si chiudesse in modo automatico
Ora dalla versione 5 in poi di Acrobat Reader succede una
cosa strana, la stampa viene effettuata con successo ma
il programma non si chiude in modo automatico
Sapete qualcosa al riguardo ?
Inoltre conoscete un altro modo di convertire un documento
da .PDF in .TIF, magari una libreria, anche a pagamento ?
Grazie per l'aiuto

ghostscript dovrebbe farlo ed è freeware (credo), cercalo in rete

Newsgroup: it.comp.lang.visual-basic
Titolo: cercare un finestra

Ho necessita di sapere se una finestra esiste dal suo hWnd come posso fare
grazie a tutti
Ranghetto Stefano

...


Onestamente non lo so, perň ono certo che potresti avere molti problemi
perchč hWnd tende a cambiare nel corso dell'applicaizione ( non č univoco e
puň cambiare anche piů volte)

Exact, the hWnd (window handle) doesn't change as long as the window exists in
the system.
Let's say I have a window with the following caption : "La mia finestra"
When I create it (when I load it) Windows gives it the handle "1604" for
example.
The window "La mia finestra" will have this handle "1604" as long as it is not
unloaded.
But then, if I unload this window and reload it just after, Windows may give
another handle to my window, let's say "1234" and in this case, the "1604"
handle won't point to anything anymore...
So, you can rely safely on a handle *as long as the window is not destroyed*.
Non parlo suffisamente bene Italiano, scusate mi.
julien.

Newsgroup: it.comp.lang.visual-basic
Titolo: Foglio Word

Ciao a tutti!
scusate non sono esperto... è possibile inserire all'interno di un progetto
VB il foglio di lavoro di Word? se si potreste spiegarmi come si fa?
grazie mille!

 ha scritto nel messaggio
news:Dpux8.17741$8D3.4...@news1.tin.it...


 > scusate non sono esperto... č possibile inserire all'interno di un


 ha scritto nel messaggio
news:FGux8.17791$8D3.4...@news1.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Consiglio per SSTab

Ciao a tutti.
Devo mettere mano ad un sotware scritto da un mio ex-collega e mi viene già
da piangere.
Il form principale di questa applicazione contiene un SSTab con 6 Tabs,
ognuna delle quali è piena di TextBox, Label, Combo ecc. ecc.
Tutto il codice di gestione di queste centinaia di oggetti è in un unico
modulo: il Form.
A me piacerebbe gestire ogni tab come entità a sè stante, separata dalle
altre, come se fossero form separati, per intenderci.
Avete qualche suggerimento per gestire diversamente la cosa?
Conoscete altri componenti con cui sostituire SSTab che siano più efficienti
e più "ordinati"?
Grazie a tutti.
Skysurfer

 efficienti e più "ordinati"?
Scusa, perchè pensi che SSTab sia poco efficiente e "disordinato"?
Io non conosco di meglio.

 ha scritto nel messaggio
news:atta0v$2i5dj$1...@ID-174464.news.dfncis.de...

Quello che non mi piace è il fatto che memorizzi tutto il codice in un unico
form.
Nel progetto che sto guardando ci sono un sacco di controlli e mi sarebbe
piaciuto tenere il codice di ogni tab separato dagli altri.
Ciao

 sarebbe piaciuto tenere il codice di ogni tab separato dagli altri.
Capisco, ma questo č un problema organizzativo del codice, non del SSTab.
Vale per qualsiasi altro controllo piů o meno cumulativo, anche per ogni
form.
Se mi posso permettere, visto che stai mettendo le mani in qualcosa scritto
da altri e se c'č una certa fretta, lascia le cose come stanno e ...
adeguati.
In ogni caso, se pensi di riorganizzare il tutto, fallo con estrema calma e
attenzione.
Newsgroup: it.comp.lang.visual-basic
Titolo: URGENTE: tooltiptext su più righe

Salve,
come posso inserire del testo in un tooltiptext di una textbox usando più
righe?
ho provato ad inserire sia chr(13) che vbcrlf ma invece di darmi l'effetto
INVIO mi inserisce un riga verticale
Nel mio caso:
dataeora.ToolTipText = "Esempio:" + vbCrLf + "19/10/2002 23:00"
Grazie!


secondo quanto detto in vecchi post dovrebbe funzionare, sostituendo il "+"
con il "&"
Fammi sapere
Salutoni
Sergio

 ha scritto nel messaggio
news:oRay9.78906$aL4.2...@news1.tin.it...

no, controllando meglio sembra non sia vero, mo riguardo
Sergio

Ho provato a sostituire il "+" con "&" ma non funziona! C'è sempre l'effetto
riga verticale!
Comunque grazie x essere stato così tempestivo!

 ha scritto


 INVIO mi inserisce un riga verticale
Non e' possibile con i Tooltip "standard".
Esiste pero' una validissima classe sul sito comune (in calce sotto la
firma). Cerca --> Tooltip.
hth,
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org

Grazie 1000 a tutti!

 scrisse:

Sostituendo la "+" con la "&" funziona con Win2k ma non i sistemi 9x,
almeno così mi sembra di ricordare...
Ciao
Aran
<math> 2 + 2 = 5 for sufficiently large values of 2</math>

 almeno cosě mi sembra di ricordare...
ti ricordi male... non funziona..
Ho provato a caricare nella tooltip delle caption di label
delle text di textbox, di richtext ed una decina di altre prove ma...
nisba, niet, picche, nada, nulla....
Ciao
Pixel
Newsgroup: it.comp.lang.visual-basic
Titolo: [.NET] Visualizzare icone

Salve!!
Io vorrei caricare un'icona in memoria e poi visualizzarla. Lo si fa con una
istanza alla classe icon? Come faccio a dare il riferimento ad un'icona?
Cioč, per non passare una stringa (che implicherebbe di inchiodare un path
dell'icona stessa), dove posso caricare queste icone? Io pensavo in
un'imagelist, ma poi non so come richiamarle per visualizzarle :(
Scusate la domanda, ma sono piuttosto nuovo del .NET... C'č un post sotto
che poteva essermi utile a cui perň non č stata data risposta...
Grazie a tutti!
Stefano

Aggiungi l'icona al progetto e imposta Build Action ="Embedded Content"
Supponiamo che l'icona si chiami led1.ico e che il progetto si chiami Ch8
ecco il codice per recuperare un oggetto Icon
Dim iconstream As Stream =
System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream("C
h8.led1.ico")
Dim oIco As New Icon(iconstream)
'//Associao l'icona al form...
Me.Icon = oIco
Attenzione alle maiuscole/Minuscole e al nome del progetto...
HTH
-- 
Corrado Cavalli [Microsoft MVP]
UGIdotNET - 
http://www.ugidotnet.org

Scusa, ma perchè questa funziona:
Private Sub InputParametro_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim iconstream As Stream =
System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream("P
ROJ.WireTrashFull.ico")
Dim ico As New Icon(iconstream)
Me.Icon = ico
End Sub
Mentre questa no?
Private Sub InputParametro_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim iconstream As Stream =
System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream("P
ROJ.WireTrashFull.ico")
Me.PictureBox1.Image.FromStream(iconstream)
End Sub

"Stefano" <stec...@REMOVEtin.it> ha scritto nel messaggio
news:Ffsea.91623$pG1.2...@news1.tin.it...

Dopo tentativi randomici ho trovato che queste due righe funzionano (pur non
avendone assimilato completamente il comportamento)
Dim ic As New Bitmap(iconstream)
Me.PictureBox1.Image = CType(ic, Image)
Grazie per l'aiuto!!!
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB & MPEG con API

Ho sviluppato una routine che prende un file AVI ne legge le
caratteristiche (tipo frame al secondo) e lo visualizza ai miei comandi
identificandone x ogni frame passato il tempo esatto trascorso con fermo
immagine e via dicendo.
Il tutto tramite API e qualche sporco trucco
Vorrei ripetere la stessa cosa con l'MPEG per dar compatibilità con +
tipi di filmato
Come faccio? qualcuno ha esperienza?
C'è qualche risorsa, esempio in rete?
grazie 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ok I dont understand French but judging by the subject you want to play MPEG
or AVI files with the API. Well use this
mciSendString "OPEN FILENAME TYPE MPEGVideo ALIAS MEDIA", 0, 0, 0
mciSendString "PLAY MEDIA FROM 0", 0, 0, 0
--
Bazza (EC)
Sanity is only a figment of my imagination
ICQ: 26476008
"Satans greatest trick, was convincing man he didnt exsist".
r...@agyjbeyq.pbz - to Email me use ROT13
Guvf Rznvy Nqqerff jnf fpenzoyrq jvgu EBG13.

 wrote in message
news:tjP98.16762$YA2.2...@news11-gui.server.ntli.net...



> Ok I dont understand French but [cut]
Cribbio ma perche' quando parliamo o scriviamo non capiscono che siamo
Italiani.
Quando in metropolitana a New York parlavo con i miei amici, mi scambiavano
per russo. Ma dico io si puo'... ?
Ohh io non sono certo un poliglotta, ma un francese da un russo li
distinguo.
Ciao
Michele


Puoi utilizzare il Windows Media Player
Newsgroup: it.comp.lang.visual-basic
Titolo: Conoscere Handle

Conosendo l' hadle della finestra di un programma è possibile risalire
all'handle di tutti i suoi oggetti tipo text box????
Ciao Ale!

 all'handle di tutti i suoi oggetti tipo text box????
Alessandro (senza asterischi) stai "scassando". Uso volontariamente questo
termine, intendendo richiamare l'attenzione sul tuo primo post.
Invece di rispondere, faccio una domanda: Che vuoi fare, _veramente_?
Occhio che (non io che devo uscire per quell'automation error, maremma
maiala e M$ pure!) se ti arriva un "troll", non è una brutta parola, ma il
"rughino" comincia...
Faccina conciliante ;-)

 Ciao Ale!
Leggi il post prelevamento dati da vb6
Se hai bisogno di ulteriori chiarimenti chiedi pure
Ciao
Alessandro
--
Morfeus®
Free Joint
:PII

> Ciao Ale!
Si
La funzione Api da usare è:
Declare Function GetWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal wCmd
As Long) As Long
Con le seguenti impostazioni per wCmd
 0 ' Identifica La finestra più alta in Z-order avente gli stessi genitori
della finestra data
1 ' Identifica La finestra più bassa in Z-order avente gli stessi genitori
della finestra data
 2 ' Identifica La finestra al di sotto della finestra data (in Z-order)
3 ' Identifica La finestra al di sopra della finestra data (in Z-order)
4 ' L'handle ritornato, identifica la finestrra proprietaria delle finestre
specificate ( da non confondere con la finestra "padre")
 5 'L'handle ritornato, identifica la finestra figlia più alta in Z order ,
se la finestra specificata è una finestra "Genitore"; altrimenti l'handle
ritornato è NULL.
La funzione esamina solo le finestre figlie della finestrra specificata


 ha scritto nel messaggio
news:ba2k4j$o9p9g$1...@ID-174464.news.dfncis.de...


 Certo che sei proprio il massimo della gentilezza.... complimenti
Grazie. Ah, ... i post precedenti li hai letti?
Newsgroup: it.comp.lang.visual-basic
Titolo: [vb6]Richiesta di aiuto su controlli collegati.

mi serve qualcuno veramente tosto riguardo a questo argomento.
devo fare alcune cosette abbastanza urgentemente, quindi preferirei una
via più diretta tipo mail o icq.
chi è disponibile si faccia avanti.
grazie
Daniele

scusate il disturbo.
con un po' (MOLTO) culo sono riuscito a risolvere tutti i miei problemi.


 con un po' (MOLTO) culo sono riuscito a risolvere tutti i miei problemi.
[10.40]


il CULO è la virtù dei forti... :-)))


 >

 se a qualcuno può interessare sono riuscito a collegare a run-time


un bel risparmio di risorse!!!!
Come accidenti hai fatto a collegare un recordset (spero ADO) ad una
datagrid?
A me da un'errore di tipo non corrispondente!
Grazie, ciao.

ho deciso di mostrare la POTENZA del mio CULO!!!! :-)))
ecco come collegare a run-time tutti gli oggettini che mamma M$ ci ha regalato.
(Premesso che ho installato la SP4)
*********************************************************************************
Option Explicit
Dim Conn As New ADODB.Connection
Dim X As New ADODB.Recordset
Private Sub Command2_Click()
Conn.Open Adodc1.ConnectionString ', "sa", "", -1
'non dimenticate di metterlo KeySet!!!!!!
X.Open "SELEct * from clienti", Conn, adOpenKeyset
'mostro il datareport collegato al recordset
Set DataReport1.DataSource = X
DataReport1.Show
'riempio la datacombo
Set DataCombo1.RowSource = X
DataCombo1.ListField = "ds_cognome"
'riempio la datalist
Set DataList1.RowSource = X
DataList1.ListField = "ds_cognome"
'collego la datagrid!!!
Set DataGrid1.DataSource = X
'collego la textbox
Set Text1.DataSource = X
Text1.DataField = "ds_cognome"
End Sub
*********************************************************************************
ciao a  tutti
Daniele
Newsgroup: it.comp.lang.visual-basic
Titolo: (OT) ricerca di un valore in tutti i campi di una tabella

Ciao a tutti, scusate l'OT, però forse c'è ki può aiutarmi.
Ho la necessita di fare una ricerca di una parola su tutti i
campi di una tabella. Esiste un trucco per risolvere questa
necessitò oppure devo mettere in OR la condizione
per ogni campo?
Diciamo (scritto grezzo) una cosa del tipo
"select * from tabella where * like '*parola*'"
A dire il vero sono abbastanza convinto ke non
sia soluzione se non di scrivere tutte le condizioni...
Utilizzo VB6 con un db di access 97 e DAO.
Spero di essermi spiegato.
Saluti,
Pusky

 ha scritto


 ciao, j.
Grazie javalab,
ho risolto nello stesso modo ke mi suggerisci tu.
Comunque grazie.
Saluti,
Pusky

occhio, perchè se magari la tabella contiene numerosi campi, rischi di
andare incontro ad errori di "query troppo complessa". Almeno a me ogni
tanto succede, non so a voi.....
good coding!!!
--
Damiani Liborio Igor
ig...@igordamiani.it
 - 
dam...@italiainfiera.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262
---
"Tu devi capire che lei è nuova a queste cose..."
"Th, bhè, che cosa ci vuole?"
"Ci vuole, ci vuole, è questione di orizzonti che non è abituata a
vedere..."
Una persona che conosco, 8 Novembre 2002


E fare cosi' ? (non molto elegante in effetti ...)
select * from tabella where campo1 & campo2 & ... campo<n> like '*parola*'
Anzi per la precisione:
select * from tabella where campo1 & "|" & campo2 & "|" &  ...  & campo<n>
like '*parola*'
dove "|" non è un carattere di "parola"

 dove "|" non è un carattere di "parola"
temo di non aver capito.
j.

 ha scritto

E' un piccolo artificio che in qualche occasione anch'io:
Devo cercare l'occorrenza di una serie di caratteri nei contenuti di una
serie di campi.
L'artificio consiste nel creare un campo virtuale contenente l'accodamento
(è quindi giusto & e non And) dei contenuti dei campi (testo) reali
interessati. La Like la faccio su quel risultato. Funziona.


per evitare che la sottostringa sia trovata a "cavallo" di due campi..

 per evitare che la sottostringa sia trovata a "cavallo" di due
campi..
grazie. ingegnoso. hai fatto qualche timing per un confronto fra i due
sistemi ?

 ha scritto nel messaggio
news:ar3sv0$etmb0$1...@ID-51318.news.dfncis.de...

Makke', ma piu' o meno penso siano equivalenti ...

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] VB3 e ShellExecute

Esiste un'API per VB3 che faccia l'equivalente della ShellExecute ?!?!?
--
Ciaps
Stracca
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Cerca le risposte alle tue domande sul Sito Comune del
newsgroup it.comp.lang.visual-basic: 
http://www.murialdo.it/it_lang_vb
Magari prima leggi l'Help in linea!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Esattamente ShellExecute, cambia solo la declare...
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto: Errore Imprevisto

Salve,
sto realizzando una sorta di catalogo per la mia azienda.Praticamente il
progetto e' un visualizzatore di immagini con la possibilita' di inviare
ordini.
Ho pero' un paio di problemi:
1) quando compilo e lancio il programma sul computer che ho utilizzato per
programmare va tutto ok, mentre se lancio il file .exe su un altro computer,
mi compare una msgbox che dice "Errore Imprevisto". Qualcuno a idea da cosa
possa dipendere? E' possibile che sia una questione di versioni diverse di
dll o OCX?(io ho VB5 sp3)
2) E' possibile visualizzare i file nella filelistbox senza estensioni?
Grazie.
Roberto.

 wrote in message
news:8rmo14$isc$1...@fe1.cs.interbusiness.it...


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

devo fare un cd autoavviante che parta con il file index.htm come si fa?
lo so che non ci incastra nulla con il vb ma siate clementi

 lo so che non ci incastra nulla con il vb ma siate clementi
Ne ho fatto uno grafico parametrico (non in VB, perché rischi di non 
trovare i runtimes). 
Consente di inserire un titolo, un sottotitolo e tre comandi (programma da 
eseguire, link alla pagina dell'autore, sfoglia il cd), un piccolo logo 
(opzionale) ed un suono di sfondo (opzionale e disattivabile); il tutto si 
personalizza modificando un file di testo.
L'autorun stesso ha la forma di un CD (ho preso un DVD+R, l'ho messo nello 
scanner voltato e ne è uscito un bel blu profondo) col buco in mezzo (non 
tutte le ciambelle riescono col buco, ma questa si).
Se ti interessa dimmelo che lo metto un line...
-> GbC

 trovare i runtimes).
eheh. quando invece non si sa fare
si delega: io ne ho fatto fare uno in c, 3k o 12k
nome di fantasia: shellexec.exe :)
in vb cmq uno shellexec ormai ci vuole una bella sphiga perche' non trovi la
sua dll...


Ciao

 wrote in message
Xns934361331D86Cg...@193.70.192.192...

grazie mi faresti un favore
ciao

> Se ti interessa dimmelo che lo metto un line...
http://www.gbcweb.com/iclvb/myAutoRUN.zip
Enjoy :)
-> GbC

"-> GbC" scrive:
dimenticavo...
720 k lo zip...
 
-> GbC