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

ee = "Notepad"
ee = "Internet Explorer"
 
twnd = FindWindow(ee, vbNullString)
 
nel primo caso funziona, nel secondo fallisce!
Qualche indicazione per aitarmi a capire? Grazie
 
-- 
Greg

Il 04/11/2016, Greg ha detto :

Azzo.. non tocco 'sta roba da una vita, prova con "IEFrame"
 
 twnd = FindWindow("IEFrame", vbNullString)


https://msdn.microsoft.com/en-us/library/windows/desktop/ms633499(v=vs.85).aspx
 
 
i due parametri sono, **nell'ordine**, class name e windows title... tu per cosa vuoi cercare, per classe (nel qual caso il nome non è quello) o per titolo (nel qual caso l'ordine non è giusto)?!


ieframe è il nome della dll, non ci avrei mai pensato!
Ho provato, nonostante fossi scettico, ed effettivamente mi ritorna un handle, ma forse non è quello giusto, perchè 
quando  lo passo a SendMessage:
k = SendMessage(vHandle, WM_SETFOCUS, 0&, 0&)
non succede nulla.  Quindi binario morto pure questo :(
 
-- 
Greg


Mi puoi dire il nome della classe per favore? Ero sicuro fosse "Internet Explorer" oppure  
"InternetExplorer.Application" dal momento che io creo l'ggetto con:  Set IE = 
CreateObject("InternetExplorer.Application")
 
Ad ogni modo ho provato con un window title a noto a priori (explorer aperto su google):
ee = "
https://www.google.it/
 - Google - Internet Explorer"
twnd = FindWindow(ee, vbNullString)
in questo modo ottengo un handle, quindi la Find ha funzionato, purtroppo quando poi passo l'handle alla SendMaessage 
non succede nulla:
k = SendMessage(twnd, WM_SETFOCUS, 0&, 0&)
 
La SM restituisce 0, quindi funziona, ma IExplorer non prende ancora il focus
 
-- 
Greg

Il 04/11/2016 17:08:41 Luca D ha scritto:

Mi puoi dire il nome della classe per favore? Ero sicuro fosse "Internet Explorer" oppure  
"InternetExplorer.Application" dal momento che io creo l'ggetto con:  Set IE = 
CreateObject("InternetExplorer.Application")
 
Ad ogni modo ho provato con un window title a noto a priori (explorer aperto su google):
ee = "
https://www.google.it/
 - Google - Internet Explorer"
twnd = FindWindow(ee, vbNullString)
in questo modo ottengo un handle, quindi la Find ha funzionato, purtroppo quando poi passo l'handle alla SendMaessage 
non succede nulla:
k = SendMessage(twnd, WM_SETFOCUS, 0&, 0&)
 
La SM restituisce 0, è corretto? ma IExplorer non prende ancora il focus
 
-- 
Greg

 
 
La classe COM e la classe delle varie Window sono due cose diverse... come ti suggericvabno nell'altro post, la classe della finestra principale è IEFrame (ma anche lì, il fatto che sia il nome di una DLL è casuale)
 
Nel momento in cui cominci a giocherellare con SendMessage, FindWindow e compagnia varia, tieni sempre sotto mano Spy++ o altra ultility simile... VB6 dovrebbe averla già inclusa come componente opzionale da qualche parte sul CD, altrimenti guarda su 
http://www.catch22.net/software/winspy-17
 

 altrimenti guarda su 
http://www.catch22.net/software/winspy-17
 
 
Si, ce l'ho, ma mai usato, vedrò di usarlo.
 Grazie di tutto
 
-- 
Greg
Newsgroup: it.comp.lang.visual-basic
Titolo: Help convenzione chiamata DLL

Ho scritto una DLL in C e vorrei richiamarla in VB.
mi piacerebbe che funzionasse una cosa del genere....
la DLL
__declspec(dllexport) int prova (long a, long b)
{
.....
}
in VB
declare function prova lib "mialib.dll" (byval a as long, byval b as long)
as integer
ma invece non funzia!!!
Mi potete aiutare?
Grazie Fabrizio

 wrote in message
7ss9cm$pq3$1...@forst.ita.tip.net...


Newsgroup: it.comp.lang.visual-basic
Titolo: Ordinare records in tabella...

Ho un problemino...
Non riesco a fare il sort di una tabella tamite vb...
Faccio il Sort dei record ma quando vado a fare la visualizzazione č
tutto come prima...
Qualcuno mi illustrerebbe il procedimento esatto, forse sbaglio da
qualche parte...
Granzie in anticipo!

 Granzie in anticipo!
dao:
dim db as database,rs as recordset
set rs=opendatabase("tuo.mdb")
'unsorted
set rs=db.openrecordset("select * from clienti", dbopendynaset)
set data1.recordset=rs
data1.refresh
dbgrid1.rebind
'sort on cli_cod
set rs=db.openrecordset("select * from clienti order by cli_cod",
dbopendynaset)
set data1.recordset=rs
data1.refresh
dbgrid1.rebind
rs.close:set rs=nothing
db.close:set db=nothing
in ado cambiera' qualcosa tipo connessione e parametri del rs, ma l'idea
dovrebbe essere questa.
ho scritto al volo, controlla cmq anche se usi dao.
--
ciao, j.
www.sundaysw.com

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] Script control: è distribuibile?

Ciao a tutti, sto realizzando un'applicazione che utilizza il M$
ScriptControl, e vorrei sapere se questo componente è liberamente
distribuibile.

 wrote in message news:7hj39p$994$1...@nslave1.tin.it...


...

Il controllo mi è stato postato da più persone di questo NG proprio perchè
ho difficoltà a raggiungere il sito M$ (ironia della sorte, proprio con
IE... giudicate voi...).
Quindi mi piacerebbe sapere solo se è o no liberamente distribuibile.
Ciao

Prova con netscape o  cambia provider.
Comunque vai a
http://msdn.microsoft.com/scripting/default.htm?/scripting/ScriptControl/def
ault.htm
Troverai tutto quello che vuoi


Newsgroup: it.comp.lang.visual-basic
Titolo: Play WAVE

A parte il fatto che quando mandi messaggi al newsgroup non devi mandarli in
formato HTML, altrimenti non tutti li possono leggere, comunque....
Per far suonare un file wave non ci vogliono 100 righe di codice, ci
vogliono quelle che servono!! :-))
Sul sito comune trovi le dichiarazioni API per utilizzare le funzioni messe
a disposizione da Windows per far suonare file multimediali tramite sk
sonora. Prova ad andare a vedere!!
Damiani Igor
ico...@simcity.it


Newsgroup: it.comp.lang.visual-basic
Titolo: ??? Riconoscere e impostare una stampante come predefinita

Ciao a tutti,
come posso fare a riconoscere (in VB6) una stampante, impostarne una seconda
come predefinita e re-impostare la prima, nuovamente, come predefinita?
Spero di essere stato chiaro (anche se non penso proprio :) )
Grazie a tutti coloro che mi aiuteranno
Francesco C.

Hai provato ad usare l'oggeto Printer?
Se non sbaglio, quando la runtime VB parte vi ci viene memorizzato la
stampante predefinita.
Se lo setti con un'altra stampante dovrebbe cambiare l'impostazione:
Set Printer = Printers(2)
Non so se funziona...
Prova e posta eventuali problemi.
Ciao.
--
________________________________
Raffaele Tripodo
E-Mail:              
raff...@conmet.it
MSN Messenger: 
px...@hotmail.com
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.visual-basic
Titolo: errore di RunTime '438'

Ciao, ho un problema...ottengo sembre questo errore richiamando un Sub di
una classe nel quale gli passo un'istanza della classe stessa...ho fatto
un errore di concetto? oppure no?
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 un errore di concetto? oppure no?
E che errore è?
E qual è il codice che lo provoca?
Ciao 

Ho creato un modulo di classe per replicare le liste dinamiche...tutto
bene fino a che ho creato la Sub Clone...
Se istanzio 2 liste ed una la voglio "clonare" dall'altra non riesco,
ottengo errore di Runtime 438.
Ecco la Class List:
Private Declare Sub MemCopy Lib "kernel32" Alias "RtlMoveMemory" (Dest As
Any, Src As Any, ByVal cb&)
 
    Dim myArray() As Variant '*
Public Sub Class_Terminate()
    Erase myArray
End Sub
Public Property Get getValue(ByVal index As Integer) As Integer
 
    getValue = myArray(index)
 
End Property
Public Property Get size() As Integer
    On Error GoTo emptyarray
    size = UBound(myArray) + 1
    Exit Property
emptyarray:
    size = 0
End Property
Public Sub setValue(ByVal value As Variant, ByVal index As Integer) 'value
'*
 
    If index < size() Then
        myArray(index) = value
    Else
        ReDim Preserve myArray(index)
        myArray(index) = value
    End If
End Sub
Public Function Remove(ByVal index As Integer)
    On Error GoTo Hell
    Dim mysize As Integer
    mysize = size()
    If mysize = 1 Then
        Erase myArray
        Exit Function
    ElseIf index = (mysize - 1) Then
        ReDim Preserve myArray(mysize - 2)
        Exit Function
    End If
    MemCopy myArray(index), myArray(index + 1), Len(myArray(index)) *
(size() - index - 1)
    ReDim Preserve myArray(mysize - 2)
    Exit Function
Hell:
    MsgBox Err.Number & " - " & Err.Description
End Function
Public Sub Add(ByVal value As Variant, Optional ByVal index As Integer =
0) 'value '*
    Dim mysize As Integer
    mysize = size()
    If (index = 0) Or (mysize = index) Then
        If mysize = 0 Then
            ReDim Preserve myArray(0)
            myArray(0) = value
        Else
            ReDim Preserve myArray(mysize)
            myArray(mysize) = value
        End If
    Else
        ReDim Preserve myArray(mysize)
        MemCopy myArray(index + 1), myArray(index), Len(myArray(index)) *
(size() - index)
        myArray(index) = value
    End If
 
End Sub
Public Sub Clone(Cloned As List)
 
    Dim mysize As Integer
    Dim i As Integer
    mysize = Cloned.size
      For i = 0 To mysize
        myArray(i) = Cloned.getValue(i)
    Next
 
 
End Sub

Newsgroup: it.comp.lang.visual-basic
Titolo: Domanda su msde

Qualcuno sa' indicarmi dove trovare esempi su come utilizzare msde con VB.

 Qualcuno sa' indicarmi dove trovare esempi su come utilizzare msde con VB.
Scusate l'ignoranza, ma qualcuno potrebbe
spiegarmi che cos'è msde?
Thanks!
--------------------------------------------
             ASSA
http://assatarram.yohoo.it
Napster: Assatarram3
it.comp.lang.visual-basic: Assatarram
--------------------------------------------

 ha scritto nel messaggio
news:99abrc$cosc$1...@ID-60516.news.dfncis.de...



Volendo sul sito comune trovi un programma che fa da interfaccia.
Ciao VB

Newsgroup: it.comp.lang.visual-basic
Titolo: Dove trovo il sito comune ???

Come da subject... Grazie.
Cristian  -= EvErL@StiNg =-
e-mail: 
me_cr...@usa.net
Visit my site and my MP3 list: 
http://utenti.tripod.it/me_cristian/
--------
  I cani pensano che siamo superiori,
  i gatti pensano che siamo inferiori,
  i maiali pensano che siamo al loro pari.

Cristian  -= EvErL@StiNg =-
http://www.murialdo.it/it_lang_vb
Ciao
Marco Frazzoli




Se tutte le domande fossero cosi' semplici....  :-))))
Qui:
http://www.murialdo.it/it_lang_vb
Ciao
By -MES-   Maronese Ettore
http://ilmes.freeweb.org
(con OCX per stampare i recordset)
Sito Comune di programmatori Visual Basic
http://www.murialdo.it/it_lang_vb

Cristian  -= EvErL@StiNg =-


Newsgroup: it.comp.lang.visual-basic
Titolo: CD DI VISUAL BASIC 6

COMPRO CD DI VISUAL BASIC 6 CON LICENZA..... NATURALMENTE DI SECONDA
MANO....

 MANO....
http://www.emsps.com/oldtools/msvb.htm
gia che ci sei, con quello che risparmi ci dovrebbe stare una buona tastiera
con anche le minuscole.
ciao, j.
ps.gorgiato - ma sei la piccola samantha informathica da cithophonare che
dice  ( per esperienza ? :) wodka ?

 MANO....
Se non hai esigenze particolari, cerca il VB6 o 
VB.NET
 ma in Standard
Edition, costa poco (circa 150 Euro IVA inclusa) ed e' una licenza "vera"
(ad es. anche se la prendi di seconda mano, se ha fatto un upgrade non
potrebbe legalmente vendertela quindi il tuo acquisto rischia di essere
nullo dal punto di vista legale). Non e' pero' facile trovarlo disponibile,
prova dove l'ho preso anche io ossia su 
www.eprice.it
 e cerca le parole
"Visual basic".
--
   Alex Palmese
---
Sei anche tu stanco dei messaggi spam? Usa Terminator, il programma
anti-spam italiano FREEWARE! 
http://www.sertel.net/terminator/

Newsgroup: it.comp.lang.visual-basic
Titolo: Compilazione senza registrazione

Scusatemi, ma mi pareva che il vb6 potesse
compilare a riga di comando ... o mi sbaglio??
Tanto da poter specificare nome file di destinazione,
non registrare ocx ... e similari.
O mi sto confondendo con il .net?
Ciao Andrea

 non registrare ocx ... e similari.
Da dos "vb6.exe /?" ;-)

 O mi sto confondendo con il .net?
spero di non cannare anche io , se non sbaglio era "Make [opzioni]
[nomeprogetto.vbp]"
non ho vb sottomano e il mio cervello e' in pausa pranzo !

Si ma manca l'opzione ... se c'è mai stata di non
registrare il componente.
Ciao
Andrea
Newsgroup: it.comp.lang.visual-basic
Titolo: [?][VB6 & .Net]HTML Help Compiler --- Come si usa ???

Come si usa l' HTML Help Compiler ?
C'è qualche guida (possibilmente in italiano) a questo software ?
Ciao,
--
Carmine
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
Co-Webmaster di SceptilePage (
http://www.sceptilepage.altervista.org/
 )
giuseppe.giang...@tin.it
 (Togli la scritta NOSPAM)
pikachu...@gmail.com
 (Togli la scritta NOSPAM)
Account Messenger: 
thetot...@msn.com

 C'č qualche guida (possibilmente in italiano) a questo software ?
Lascia perdere.
Vai qui e scarica questo:
http://www.vizacc.com/gen_download.php
Sotto usa il compilatore microsoft, ma questo č usabile.
Se invece vuoi creare documentazione alla MSDN per .Net cerca NDoc su
google.
Ciao
--
Reporting tool: 
http://www.neodatatype.net

Grazie :-)
--
Carmine
Webmaster di The Total Site (
http://www.tekkentag.altervista.org/
 )
Co-Webmaster di SceptilePage (
http://www.sceptilepage.altervista.org/
 )


 ha scritto nel messaggio
news:4BAne.1478555$35.55...@news4.tin.it...


 ne esisteuna versione per i fle .chm ?
Veramente questo fa proprio file .chm ;)
Provato a compilare il progetto? :)


Ha già... infatti...
Avevo visto l'editor di testo e mi ero lasciato confondere...
Grazie


 ha scritto nel messaggio
news:VbBne.1478727$35.55...@news4.tin.it...

fortuna che avevi modificato la firma.
neanche sfrondi.

 neanche sfrondi.
Guarda che la firma la ho modificata.
è che quel c... di outlook express non me la salva !

Newsgroup: it.comp.lang.visual-basic
Titolo: CONTROLLO DATA

Devo creare un controllo sulla data; Mi spiego meglio: ogni mese devo sapere
se il 15 capita di sabato o di domenica e se quel mese č di 31, 30 o 28
giorni! In piů devo sapere qual'č l'ultimo giorno lavorativo del mese per
mandare un messaggio di avviso.
Aiutatemi!!!


Non mi viene in mente nulla di meglio di questo esempio, che potrai
adattare:
Private Sub Command1_Click()
    Giorno15 = Format(#15/8/2001#, "dddd")
    MsgBox "Il giorno 15 č " & Giorno15
End Sub
Private Sub Command2_Click()
    MeseAnno = InputBox("Inserire Mese/Anno (es. 2/2001)")
    If IsDate("31/" & MeseAnno) Then
        NumeroGiorni = 31
        ElseIf IsDate("30/" & MeseAnno) Then
            NumeroGiorni = 30
            ElseIf IsDate("29/" & MeseAnno) Then
                NumeroGiorni = 29
                ElseIf IsDate("28/" & MeseAnno) Then
                    NumeroGiorni = 28
     End If
     MsgBox "NumeroGiorni= " & NumeroGiorni
End Sub
Per sapere l'ultimo giorno lavorativo di un mese (cioč che non sia sabato o
domenica) basta verificare quanti giorni ha quel mese e  poi, cominciando
dall'ultimo, verificare a ritroso qual'č il primo giorno diverso da sabato e
domenica.

 ha scritto nel messaggio
news:hPTa7.6237$fA3.2...@news.infostrada.it...

1) WeekDay()
2) un trucco č questo:
    ' di quanti giorni č il mese corrente?
    Day(dateserial(Year(Date), Month(Date) + 1, 1) -1)
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: velocizzare la ricerca di record in un data base

ciao a tutti il mio problema e' questo:
ho un database con le estrazioni del lotto con le tabelle cosi
divise:ruota1(bari) ruota2(cagliari)...fino a ruota 10(venezia) e i campi 
sono: primo,
secondo, terzo, quarto, quinto, indice, e una tabella con il nome Tutte dove 
i campi sono:giorno,mese,anno,data,indice.  Vorrei fare in modo veloce
la ricerca dei ritardi e frequenze di tutti i 4005 ambi e visualizzarli in 
un controllo listbox come posso fare?
io ho scritto questo codice ma la ricerca impiega parecchio tempo esiste un 
modo per velocizzare la ricerca? grazie a tutti.
ciao henry.
For i = 1 To 89
For j = i + 1 To 90
my = "SELECT ruota10.primo, ruota10.secondo, ruota10.terzo, ruota10.quarto, 
ruota10.quinto, ruota10.indice, tutte.indice, tutte.numero, tutte.giorno, 
tutte.mese, tutte.anno From ruota10, tutte" _
& " WHERE (primo=" & (i) & " and secondo=" & (j) & " or primo=" & (i) & " 
and terzo=" & (j) & " or primo=" & (i) & " and quarto=" & (j) & " or primo=" 
& (i) & " and quinto=" & (j) & " or secondo=" & (i) & " and terzo=" & (j) & 
" or secondo=" & (i) & " and quarto=" & (j) & " or secondo=" & (i) & " and 
quinto=" & (j) & " or terzo=" & (i) & " and quarto=" & (j) & " or terzo=" & 
(i) & " and quinto=" & (j) & " or quarto=" & (i) & " and quinto=" & (j) & " 
or primo=" & (j) & " and secondo=" & (i) & " or primo=" & (j) & " and 
terzo=" & (i) & " " _
& "or primo=" & (j) & " and quarto=" & (i) & " or primo=" & (j) & " and 
quinto=" & (i) & " or secondo=" & (j) & " and terzo=" & (i) & " or secondo=" 
& (j) & " and quarto=" & (i) & " or secondo=" & (j) & " and quinto=" & (i) & 
" or terzo=" & (j) & " and quarto=" & (i) & " or terzo=" & (j) & " and 
quinto=" & (i) & " or quarto=" & (j) & " and quinto=" & (i) & ")and 
ruota10.indice=tutte.indice ;"
data1.RecordSource = my
data1.Refresh
data1.Recordset.MoveLast
List1.AddItem CStr(i) & "-" & CStr(j) & "  Freq" & "  " & 
data1.Recordset.RecordCount
Next
Next

       *-= El Dorado City =-*
impiega poco piu' di tre minuti per ruota 

 tieni presente che l'elaborazione richiede c.a. 2 sec. x ruota.
E questo su quali dati si basa? :)
Comunque ho notato che per le elaborazioni del lotto č molto piů veloce
lavorare su dati in memoria che su una base dati, che deve sopportare il
lavoro di tutto il db engine.
Io (ai tempi) mi sono trasferito tutto l'archivio in un file binario con
<data> e i 50 numeri in 50 byte, carico tutto in una struttura e lavoro su
quella.
Mi pare di ricordare che con il vecchio celeron 800 per la costruzione della
tabella dei ritardatari di *tutte* le ruote ci mettevo 4/5 secondi.
Ciao
--
Reporting tool: 
http://www.neodatatype.net
Qualunque mentecatto puň scrivere codice che un computer possa capire.
I buoni programmatori scrivono codice che gli uomini possano capire.
[Martin Fowler]
Newsgroup: it.comp.lang.visual-basic
Titolo: ADO: esportare un MDB

E' possibile esportare un MDB in altri formati (tipo DBF, EXCEL, ecc...) ?

 E' possibile esportare un MDB in altri formati (tipo DBF, EXCEL, ecc...) ?
non capisco bene cosa c'entri ado.
comuqnue in tutti e due i casi che fai, puoi esportare le singole tabelle.
ho postato piu' volte il codice per salvare una dbgrid in excel. richiede
excel installato. se carichi tutta una tabella in una griglia, in sostanza
la esporti. puoi cercare in deja "dbgrid" + "excel".
quanto ai dbf avevo provato tempo fa il codice seguente, e funzionava,
generando un txt o un dbf.
ciao, a.
Private Sub cmdSQLcreate_Click()
    On Error GoTo errman
    'If cbSQLdbms = "Text" Then txtSQLfile = txtSQLfile & ".txt"
    txtSQLresult = cbSQLaction.Text & " " & txtSQLwhat & " " & lblSQLinto &
_
        " [" & cbSQLdbms.Text & "; " & lblSQLdb & _
        App.Path & "].[" & txtSQLfile & "] " & _
        lblSQLfrom & " [" & cbSQLtable & "]"
    If txtSQLcond <> "" Then txtSQLresult = txtSQLresult & " WHERE " &
txtSQLcond
    If txtSQLorderby <> "" Then txtSQLresult = txtSQLresult & " ORDER BY " &
txtSQLorderby
    chkSQLok.Value = 0
    Exit Sub
errman:
    MsgBox Err & " -  " & Error
    chkSQLok.Value = 0
End Sub
Private Sub cmdSQLexport_Click()
    On Error GoTo errman
    chkSQLok.Value = 0
    If txtSQLresult = "" Then Exit Sub
    'Dim db As Database
    Set db = Workspaces(0).OpenDatabase(MainPath & "diskcat.mdb")
    db.Execute txtSQLresult
    chkSQLok.Value = 1
    Exit Sub
errman:
    MsgBox Err & " -  " & Error
    chkSQLok.Value = 0
End Sub

Grazie!



Se vuoi c'è un comando diretto in ADO per esportare il file in formato ADT
(advanced data table)
Io lo uso per esportare il file, trasferirlo (tramite rete, modem, o da una
dir all'altra),
per poi importarlo di nuovo su un altro MDB
Ciao
Sir Jo
Newsgroup: it.comp.lang.visual-basic
Titolo: File Random AIUTO !!!!

Ciao a tutti
Da un po cerco di usare dei file random, ma ogni tanto ho dei problemi. C'è
qualcuno in grado di spiegarmi a cosa serve per esempio "...As #1 Len =
32.767" ?
In somma, spiegatemi in parole povere le come funziano questi file random.
Grazie a tutti quelli che perderanno un po di tempo a rispondere :)


I file ad accesso casuale sono come dei "database": contengono cioe' dei
record di dimensioni identiche, e ogni record e' costituito da campi.
Quando dichiari l'apertura di un file ad accesso casuale, devi indicare
il numero del file e la dimensione dei record:
open "nomefile.dat" for random as numerofile len=lunghezzarecord
dove:
nomefile.dat= nome del file che verra' creato(dat e' l'estensione che
vuoi tu)
random = indica che il file e' ad accesso casuale
numerofile= variabile che indica il numero che vuoi attribuire al
file(puoi aprirne piu' di uno, ma devi sempre sapere a quale fare
riferimento; se imposti la variabile numerofile= freefile, ci pensa il
VB a trovarti un numero libero non occupato)
lunghezzarecord=lunghezza del record( con len(variabile) trovi la
lunghezza di una variabile, la quale puo' essere anche un tipo di dati
personale, di solito usata in questi casi).Se dichiaro dim variabile as
string *10, la variabile puo' contenere 10 caratteri, quindi anche la
lunghezza del record sara' di 10 caratteri
Ciao e buon lavoro!
Umpi

Grazie a tutti quelli che perderanno un po di tempo a rispondere :)
Prego e ciao! ;-) Marco.


La LEN e' importantissima e serve per specificare la lunghezza del tuo
record.
se ad esempio hai :
Type Record
         Campo1  as integer
         Campo2  as string *20
         ..............
End Type
dim MyRec as Record
devi mettere :
OPEN myfile FOR RANDOM AS #1 LEN=LEN(MyRec)
Il numero dopo il # serve x identificare univocamente un file ..... tutto
li' !!!!
Spero di esserti stato d'aiuto.
Ven.
Newsgroup: it.comp.lang.visual-basic
Titolo: Utilizzo SQL per selezione

Il problema potrà sembrare molto banale, ma non riesco a risolverlo mediante
SQL.
Ho una tabella di quattro campi:
A - DATA(in realtà un numero intero progressivo)
B - CONTENITORE (intero)
C - MATERIAPRIMA (intero)
D - QUANTITA (decimale)
Da questa voglio estrarre in quali B (Contenitore) con A (Data) più grande
per ogni B ho C (MateriaPrima) e in quale D (Quantità).
Esempio di tabella:
A        B        C        D
1        1        1        4
1        2        1        6
2        2        2        3
2        1        1        2
3        2        2        4
Pongo di cercare la C = 1, il risultato sarà:
B        D
1        2
2        1
Pongo di cercare C = 2, il risultato sarà:
B        D
2         4
Spero di essere stato un minimo chiaro e vi ringrazio di ogni aiuto.

2        6



Il tuo problema mi ha incuriosito e non l'ho trovato affatto banale.
L'ho risolto solo aggiungendo una tabella di appoggio, che chiamo
Temp, con gli stessi 4 campi della tua tabella originale, che chiamo
Dati.
db.Execute "DELETE * FROM Temp"   
db.Execute "INSERT INTO Temp SELECT Dati.* FROM Dati " & _
                   "WHERE  Dati.C=" & ValoreCDaCercare & _
                   " ORDER BY Dati.A DESC"
Spero di aver centrato il problema, anche se forse la mia soluzione è
un po' macchinosa. 
Ciao. Luigi P.
per inviare messaggi e-mail, togliere i numeri da 
n212...@tin.it

Ciao. Luigi P.
Ti ringrazio della risposta, ma ho avuto dal NG di it.comp.database.access
una idea di query che risolve in una interrogazione il problema. La
struttura č questa, in parte da me copiata e in parte da me riscritta:
select contenitore, quantita
from tabella
where data in (select max(data) from tabella group by contenitore) and
materiaprima = [CodiceMateriaPrima]
order by contenitore
l'unico parametro da inserire č [CodiceMateriaPrima] mediante VB la
sottoquery fra parentesi dopo IN si occupa di selezionare il massimo di data
per ogni contenitore.
Grazie comunque.


Non ho capito. Data più grande di cosa?
Puoi provare a spiegare meglio il problema?
Ciao
--------------------------------------------------------------------
Fulvio Senore
Eliminate "zz" dall'indirizzo e-mail per scrivermi (spammers...)
Remove "zz" from e-mail address to write me (spammers...)
--------------------------------------------------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: [?] - Nascondere Colonne nella FlexGrid

come si fa a nascondere una o piů colonne nella FlexGrid?
Grazie anticipatamente a tutti
bye Roberto

 come si fa a nascondere una o più colonne nella FlexGrid?


 wrote in message
w4285.15679$2s6.2...@news.infostrada.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: RS232 + BASIC.NET

Come faccio a comunicare con la seriale con visual basic .net?
Con vb6 c'era mscomm ma ora non lo trovo più.Come faccio??
Aioutooooo!!!
Grazie Marco

Vai su 
www.gotdotnet.com
 nella sezione Users Samples cerca Rs232 troverai
quello che cerchi ;-)
Ciao
Corrado
Newsgroup: it.comp.lang.visual-basic
Titolo: Ho fatto un OCX

Da un paio di settimane sto giocando con il Visual Basic (versione 5) e mi
mancava un contollo che riuscisse a simulare i bottoni in stile Win98 (per
intenderci, quelli senza cornice a cui compare quando ci passi sopra). Così
ho deciso di farlo...
Però non so se funziona su tutti i pc, l'ho fatto in maniera un poco
grossolana...
Vorrei che qualcuno si offrisse di provarlo, magari chi ha già compilato
altri controlli ocx...

Sono d'accordo, l'ho già visto pure, ma non mi piaceva, visto che io volevo
i bottoni standard, e non la toolbar (che devo mettere al bordo della
form)...

Newsgroup: it.comp.lang.visual-basic
Titolo: estrarre icona

È possibile estrarre l'icona di un file? Come?
Grazie a tutti quelli che mi risponderanno.

 ha scritto nel messaggio
news:4ijJ5.10018$3K3.2...@news.infostrada.it...


 wrote in message
WkjJ5.10035$3K3.2...@news.infostrada.it...



Il Sito Comune di questo NG
http://www.murialdo.it/it_lang_vb
Ma bastava guardare anche un po' di post precedenti (di ieri, mica
tanto indietro) per trovarlo.
Ciao
--
 
federic...@planet.it
Eliminare NOSPAM dall'indirizzo! Delete NOSPAM from address!

Newsgroup: it.comp.lang.visual-basic
Titolo: [Drag & Drop WebBrowser] ???

Volevo sapere se è possibile utilizzare l'oggetto WebBrowser per poter
"draggargli" sopra dei files che ho nel desktop e quindi pubblicarli come
con explorer (dato che come stringa di connessione uso un accesso ftp)
Datemi una mano che vorrei andare in ferie domani <sigh>
Carlito



ehm... scusa ma hai provato a farlo prima di postare??
Ciao,
Moreno
#sirri#@#
morenosoft.com#
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.msvbsite.net
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.it-lang-vb.net
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:fdqvmt8rr6vda1ofp...@4ax.com...


volta che utilizzo questo componente....
mah... io tutto quello che ci draggo lo visualizza....


 ha scritto nel messaggio
news:26tvmt4e4i3oaesrg...@4ax.com...


Grazie lo stesso Moreno
aaahhhh, forse ho capito... scusa, sono un po' duro io...
quindi tu vorresti uploadare dei files trascinandoli sull'oggetto webbrowser impostato su una
connessione ftp? Se è così non ho mai provato: teoricamente dovresti, nell'evento oledrop,
effettuare l'upload manualmente, solo che l'oggetto webbrowser non supporta quell'evento... :-))
Sinceramente non saprei come aiutarti, anche perché in questo momento non riesco a fare delle
prove...


 ha scritto nel messaggio
news:dvvvmtcacpp5k4v2r...@4ax.com...


file) ho provato con inet ma mi da sempre un casino di errori
Cerca sul Sito Comune il progetto di Ettore Maronese per l'upload differenziale di cartelle.

Newsgroup: it.comp.lang.visual-basic
Titolo: Query SQL in Access97

Salve a tutti,
Ho una applicazione VB6 che accede ad un db access97.
Nel db ho una tabella con due campi (id e data).
Devo eseguire una query che mi conti, per un id fissato, e per ogni mese
dell'anno i record presenti (cioe' il numero di date in ciascun mese)
Esempio se ho questi record:
1  1/1/99
1  2/1/99
1  5/5/99
mi deve restituire
gennaio = 2
maggio  = 1
Come potrebbe essere una query SQL.
	Grazie a chi mi vuole aiutare
		Lore.

 wrote in message
38EC8EB4...@agip.it...


 Lore.
Dunque.. cosi' al volo.. sparo giu' quello che mi viene in mente e spero che
se ho fatto errori qualcuno mi corregga.
SELECT SUM(DATA) AS TOTALE , ID, DATA FROM nometabella
WHERE ID = idfissato
GROUP BY DATA
ORDER BY ID ASC , DATA ASC;
Uhmm.. ammetto che non sono del tutto convinto, ma non posso testarlo. Prova
a creare una nuova query in Access, e passagli la stringa sopra, e poi vedi
se ti restituisce qualcosa.
Ciao Lore.
~~> DaVe <~~

 maggio  = 1
SELECT Month([Data]) AS Mese, Count(Month([Data])) AS [Numero volte al mese]
FROM Tabella1
GROUP BY Month([Data]);
--
Ciao.
Maurizio

                 Lore.
SELECT count(*),month(data) FROM miatabella WHERE year(data)=1999 GRUOP
BY month(data);
questa query funziona SOLO sotto JET in quanto fa uso della funzione
month che viene fornita dai servizi di VBA

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

Ciao a tutti, avrei un quesito, una cosina da risolvere in Windows 98:
Sostituendo la voce "shell" nel file "system.ini" è possibile far partire un
altro programma al posto della classica shell di Win98, e fin qui tutto ok.
Supponiamo ora che il programma che è partito al posto della shell possa
comunque terminare, non chiudendo Win, e far ripartire il desktop originale
senza dover procedere al riavvio.
Inizialmente avevo pensato che bastasse, prima di terminare il programma di
shell sostitutivo, avviare explorer.exe e poi terminare il programma...
invece non va perche mi carica Gestione Risorse, forse devo specificare un
parametro su explorer.exe oppure devo usare un altra via ?

guardati il collegamento presente sulla barra delle applicazioni, quello che
lancia il gestione risorse. Mi pare vengano passati dei parametri tipo /d o
qualcosa del genere.
--
------------------------
Jollyno - icq#35189805
http://come.to/Jollyno
------------------------

Newsgroup: it.comp.lang.visual-basic
Titolo: Crystal Reports

Ciao a tutti,
Qualcuno sa dove posso trovare dei tutorial, possibilmente in italiano, su
Crystal Reports 8.5 ?
In alternativa vanno bene anche degli esempi di utilizzo in Open Source.
Grazie a tutti e Buon Lavoro.
-
.:: necrøs ::.


prova a cercare qui':
http://support.crystaldecisions.com/updates/default.asp
HTH
bye
R
Newsgroup: it.comp.lang.visual-basic
Titolo: Ancora SEEK (vi prego aiutatemi)

Come ho postato ieri.
Devo cercare se in una determinata colonna c'è un valore da me specificato.
Il codice che ho scritto è:
With cnnTempor
     .CursorLocation = adUseClient
     .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
source=c:\windows\desktop\DB.mdb"
End With
ValoreRicercare = 1
Set cmdTempor.ActiveConnection = cnnTempor
  cmdTempor.CommandText = "SELECT Offerte.Servizio_Erogato FROM Offerte"
  rsTempor.Index = "Cerca_Servizio"
  rsTempor.Open cmdTempor, , adOpenStatic, adLockBatchOptimistic
  rsTempor.MoveFirst
  rsTempor.Seek ValoreRicercare, adSeekAfter
ma mi da il seguente errore
L'operazione richiesta non è supportata dall'oggetto o dal provider.
Sapete spiegarmi dove sbaglio.
Spero sia stato chiaro
Grazie antocipatamente
FormWare Corp
FormWa...@hotmail.com


quindi:
Dim cnnTempor As New ADODB.Connection
Dim rsTempor As New ADODB.Recordset
ValoreRicercare = 1
 With cnnTempor
      .CursorLocation = adUseServer
      .Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
source=c:\windows\desktop\DB.mdb"
 End With
  With rsTempor
        .Index = "Cerca_Servizio"
        .CursorLocation = adUseServer
        .Open "offerte", conTempor, adOpenKeyset, adLockOptimistic,
adCmdTableDirect
        .MoveFirst
        .Seek ValoreRicercare, adSeekAfter
        If Not rs.EOF Then
            ' codice tuo
        End If
    End With
spero di essere stato chiaro.
ciao
ugo

seek funziona solo con recordset creati direttamente con tabelle: il manuale
dice "This method can only be used when the Recordset object has been opened
with a CommandTypeEnum value of adCmdTableDirect"
"FormW@re" <formwa...@TOGLIMIhotmail.com> ha scritto nel messaggio
news:%CtD7.16060$74.4...@news2.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: selezione Command

Si riesce a togliere il rettangolo selezione quando mi posiziono su un
command ?

Ci sono due modi: uno è di intercettare il GotFocus e impostare un altro
controllo attivo (SetFocus), oppure impostare la proprietà TabStop = False.
Newsgroup: it.comp.lang.visual-basic
Titolo: Porta parallela

Nessuno conosce una dll o ocx per leggere scrivere sulla porta parallela
(per NT o 95).
Ho provato VBASM.dll ma sembra non funzionare perche' dovrebbe essere scitta
per i 16 bit.
Ciao Grazie

Sul Sito Comune c'è una DLL che potrebbe esserti utile: WinIo.DLL, se non erro...
Ciao,
Moreno
#sirri#@
morenosoft.com
(togliete "#" dall'indirizzo)
Moreno Sirri VB Site - 
http://www.morenosoft.com/MSVBSite/
Home Page - 
http://www.geocities.com/SiliconValley/Bridge/1414/
---------------------------------------------------------------------------
Le risposte alle tue domande le trovi sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
---------------------------------------------------------------------------


Ho visto 1k volte il medesimo quesito in questo NG
(o cose simili tipo com faccio ad accedere alle porte...
ecc.)
Purtroppo non è semplice, poichè mentre con Win9x
ancora si può accedere alla porta utilizzando una
DLL, con NT questo è impossibile, a meno di non
scrivere un VxD (o meglio un DRV per NT) apposito
o utilizzare tool (abbastanza costosi e professionali o
shareware ma che non conosco).
Ho trovato un po' di riferimenti su 
winfiles.com
, almeno
per iniziare, cercando WinNT (o Win9x) VXD e simili.
Strano che M$ non rilasci uno stupido VXD che permetta
semplicemente di fare I/O sulle porte.
Saluti, Massimo
(l'alternativa è studiarsi il DDK e scriversi il proprio driverino.
Mi piacerebbe provarci, ma non ho mai tempo!).

....
...
| (l'alternativa è studiarsi il DDK e scriversi il proprio driverino.
| Mi piacerebbe provarci, ma non ho mai tempo!).
|
Non dirmi niente... io me lo sto' scaricando il DDK per Win98 e Win2000!!!!!
una cosa come 30Mb !!!!!!
Poi se non funziona spacco tutto!!!
Ciao
--
Alberto G.
san...@tiscalinet.it

Tanti auguri ;-)) e buon lavoro!
Saluti, Massimo.

Newsgroup: it.comp.lang.visual-basic
Titolo: sicurezza (access97 da VB5)

Come si fa con codice VB5 ad accedere ad un database Access97 protetto a
livello di Workgroup Administrator, per poter effettuare modifiche od
inserimenti.
Il Workgroup è definito da un "workgroup information file" del tipo
[.MDW].

Prova cosi':
    Dim wrk As Workspace
    Dim dbs As Database
    Dim rst As Recorset
    DBEngine.SystemDB = "file.mdw"
    Set wrk = DBEngine.CreateWorkspace("pippo", "utente", "pwd", dbUseJet)
    Set dbs = wrk.OpenDatabase("file.mdb", False, False)
    Set rst = dbs.OpenRecordset("tabella", dbOpenDynaset)
Buon lavoro
Federico
leonello chiappani ha scritto:

Newsgroup: it.comp.lang.visual-basic
Titolo: Pause in runtime

come posso introdurre delle pause durante l'esecuzione del codice.
es.
for T = 0 to 10
'pausa da inserire tra un ciclo e l'altro (senza nidificare altri clicli)
label1.caption=  T
next T
grazie anticipate


Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Ciao
Faber

 Ho seguito il tuo consiglio , in effetti la pausa in ms la faccio
ma il mio obiettivo finale non l'ho raggiunto, e cioe' visualizzare su una
label
il valore di T, vedo solo il valore finale, i step intermedi purtroppo
no, in quanto la grafica non si aggiorna, rimane una label bianca fino al
valore finale
Come posso fare?
Grazie e ciao!

 wrote in message
8laabs$6ea$1...@lacerta.tiscalinet.it...


Come posso fare?
hai provato con form1.Refresh?
Ciao    Alberto

Newsgroup: it.comp.lang.visual-basic
Titolo: Aiuto - Tabelle collegate

Salve a tutti, ho un problema con le tabelle collegate in access
Ho 2 DB cosi strutturati in fase di progettazione
    F:\MioProg\Aziende.mdb
    F:\MioProg\001\Dati.mdb
Vi č la tabella esercizi->Azienda che č collegata al DB Dati con
percosro assoluto al db Aziende (F:\MioProg\Aziende.mdb), una
volta creato il pacchetto di installazione il prog. viene installata come
dalla seguente struttura
C:\programmi\mioprog\Aziende.mdb
C:\programmi\MioProg\001\Dati.mdb
Il collegamento della tabella esercizi non corrisponde piů perchč pur avendo
trasferito i 2 db il percorso di collegamento č assoluto, esiste un modo per
modificare questo percorso?
Oppure esiste una soluzione piů ottimale?
Ciao Enzo
www.scozzaro.it

Credo che se usi collegamenti a tabelle tramite connessioni manuali il
problema e' facilmente risolvibile utilizzando app.path e app.path &
"\001\dati.mdb".
Se invece usi connessioni tramite oggetti ado una soluzione (non provata
pero')  potrebbe essere quella di dare solo il nome del db nel caso ti
colleghi al db aziende e ".\001\dati.mdb" per accedere all'altro db.
Spero di essermi spiegato bene.
Eventualmente posta di nuovo e provo a spiegarmi meglio.
Ciao Gaetano.
-- 
Posted from 
imdns1.tin.it
 [212.216.176.237] (may be forged) 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.visual-basic
Titolo: Capire se una finestra è aperta oppure no...

Ciao a tutti,
Vorrei poter sapere se una determinata finestra (di un programma esterno,
che nn ho fatto io che è gia in esecuzione dall'avvio del pc) è attiva.
Premetto che nn ha un "Form Caption" quindi nn mi posso "attaccare" all' API
FindWindow perché non ho un riferimento, nn posso avere il suo hwnd perché
non l'eseguo io l'applicazione ... qualcuno mi sa conisigliare?
Grazie in anticipo
Ale (xand[18])

Guarda nei post vecchi.
ciao Andrea

if form1.visible =true then
    se si
else
    se no
endif
ciao
"Ale(xand[18])" <xan...@NOSPAMMARMIemail.it> ha scritto nel messaggio
news:a7pm9k$egu$1...@fe1.cs.interbusiness.it...


 ha scritto nel messaggio
news:8Y2p8.90463$%g7.28...@twister2.libero.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: Problema aggiornamento record

Ciao a tutti i benemeriti soccorritori di imbranati,
ho un problema con l'aggiornamento di un record, riempio una serie di
textbox con i dati del record:
    Text1(I) = adodc1.Recordset.Fields(I)
chiudo il form e vado ad aggiornare i dati:
    adodc1.Recordset.Fields(I) = Text1(I)
quando arriva ad aggiornare il campo contatore e un'altro campo numerico
(intero) mi dice "Il campo non può essere aggiornato.
Dalla finestra immediata chiamando ?adodc1.recordset.fierds(I) mi aggiunge
uno spazio prima e dopo il numero, che vuol dire?
Come faccio ad aggiornare il record?
Grazie in anticipo e ciao
Roberto

 (intero) mi dice "Il campo non può essere aggiornato.
Un campo contatore, per definizione, viene gestito/assegnato esclusivamente
dal motore di database.
In fase di assegnazione dei valori, devi quindi testare il nome del campo e
saltarlo, procedendo regolarmente per gli altri campi.


e per il campo numerico normale?

Newsgroup: it.comp.lang.visual-basic
Titolo: VB4 - RDO - Oracle Stored Procedures

I am using VB4 Enterprise with RDO, along with the Intersolv Oracle7 32-Bit
ODBC
Driver.  I am attempting to call an Oracle 7 Stored Procedure by its Public
Synonym, as follows :-
    Criteria = "{CALL P_VIEWSPEC_PROC(?, ?, ?, ?, ?, ?, ?, ?, ?)}"
    Set SpecViewPS = PDdbase.CreatePreparedStatement("", Criteria)
    SpecViewPS.rdoParameters(0).Direction = rdParamOutput
    SpecViewPS.rdoParameters(1) = Param1
    SpecViewPS.rdoParameters(2) = Param2
    SpecViewPS.rdoParameters(3) = Param3
    SpecViewPS.rdoParameters(4) = Param4
    SpecViewPS.rdoParameters(5) = Param5
    SpecViewPS.rdoParameters(6) = Param6
    SpecViewPS.rdoParameters(7) = Param7
    SpecViewPS.rdoParameters(8) = Param8
    SpecViewPS.Execute
This fails the first time it makes reference to an rdoParameter.  However,
if the code is changed to call the Stored Procedure without using its
Public Synonym, it works !
Is it possible, therefore, to call Oracle 7 Stored Procedures by their
Public Synonym from VB4 using RDO, and if so HOW ?
-- 
DJB

...


Newsgroup: it.comp.lang.visual-basic
Titolo: [CO] - Informatica - PROGRAMMATORE JUNIOR VISUAL BASIC

Stiamo cercando un programmatore con 3/6 mesi di esperienza da inserire in un nostro progetto.
Si ricerca una persona dinamica, seria, precisa. Il progetto prevede circa 6 mesi di sviluppo con Visual Basic 5 e DataBase SQL Server 7.
Offriamo: Ambiente stimolante,  continua formazione e crescita professionale.
Inqradramento e compeso: sara' adeguato alle proprie capacità.
Inviare il CV indicando il rif. IVBJ99 e possibilmente compilare il nostro form 
http://www.microgest.it/zform.html
MicroGest Informatica
Mariano Comense (CO)
Via San Francesco, 19 Int. 2-3-7
Centro Commerciale "le Piazze"
Tel. 031/751911 r.a.
Fax 031/744719
http://www.microgest.it
mailto:
micr...@microgest.it


Newsgroup: it.comp.lang.visual-basic
Titolo: domanda stupida scusate

sto lavorando con 
vb.net
 2005. Ho problemi con la visualizzazione delle
schede (io le chiamo così le pagine multiple nello stesso form).
Quando clikko su un bottone vorrei far comparire la pagina 2 Tab2 ma
non me la visualizza
Ecco il mio codice:
 Private Sub cmdModifica_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdModifica.Click
        Tab1.Show()
<------------------------------------------------------AIUTO
        AbilitaCampiTab1()
    End Sub

Gughi86 ha scritto:

Prova con qualcosa del genere:
TabControl1.SelectedTab
poi non ricordo il resto...

Newsgroup: it.comp.lang.visual-basic
Titolo: API e controllo volume

Qualcuno può darmi un indizio su quale API usare per settare il volume del
PC (praticamente quello che viene visualizzato nella taskbar con l'iconcina
gialla dell'altoparlante)
Grazie
Giampaolo

 wrote in message 7efgmm$ol0$1...@urano.inet.it...

Su it.binari.visual-basic c'e` un'esempio che fa quello che chiedi.
Se sul tuo server non c'e` piu`, dimmelo che lo riposto.
Ciao
--
Andrea :-{)
acm...@hotmail.com
================================================
Leggi 
http://beatles.cselt.it/news-it/FAQ.html
 e
http://beatles.cselt.it/news-it/gruppi-it.html
Potresti imparare qualcosa di piu' sui NG
================================================
Newsgroup: it.comp.lang.visual-basic
Titolo: Come si fa l'Edit di un record con ADO ?

Col "vecchio" DAO (utilizzando il controllo DATA) si poteva:
Data1.Recordset.Edit
...
Data1.Recordset.Fields("Nome")="Nuovo nome")
...
Data1.Recordset.Update
Con ADO non ri può fare la stessa cosa.
Potete darmi una semplice soluzione per ottenere la stessa cosa senza
collegare i TextBox alla fonte dati ?
Grazie.

 wrote in message
7laml2$ill$1...@fe2.cs.interbusiness.it...


 Con ADO non ri può fare la stessa cosa.
Io la faccio in una mia applicazione...
In ADO c'e' una cosa che frega parecchi programmatori abituati al DAO; in
pratica quando si apriva un record con il DAO, veniva di default impostato
il lock di lettura scrittura. ADO invece apre di default con il lock a
ReadOnly, per diminuire il carico creato dal recordset.
Verifica di aver specificato nella Recordset.Open, come quarto parametro,
l'utilizzo di un lock che permetta la scrittura.
Byez.
--
Fasten your sit belt,
                                Drizzt.

Newsgroup: it.comp.lang.visual-basic
Titolo: Stampa singola riga senza FormFeed su stampante ad aghi

Devo stampare una singola riga su una stampante ad aghi e fermare la
stampante sulla stessa riga.
In pratica devo stampare dei dati su un modello prestampato, dunque l'utente
deve avere la possibilità, all'inizio della stampa, di posizionare il
modulo. Per fare ciò devo stampare una o due "X" nelle caselle di
posizionamento prestampate. La stampa di queste crocette viene ripetuta
finché l'utente non da l'Ok per la stampa.
Come posso fare?
La soluzione mi serve sia in VB4, sia in VB6.
Ringrazio anticipatamente
--
Renzo

 wrote in message 8tm6ku$ppc$1...@pc1.spin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: invio automatico di email:come fare????

ciao a tutti!
Ho bisogno di creare un'applicazione vb6 che permetta invio automatico di
una e.mail con un file attach.
Il programma di schedulazione l'ho gia' fatto mi manca solo .exe che lancia
L'email!
avete dei consigli??
ho una connessione tramite router,e sono quindi sempre connesso!
Grazie ciao

Sito Comune
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: [Forse OT] Aiuto Query Access + DAO + VB6

Grazie innanzitutto per coloro che vogliano rispondermi ...
ho un problema con una query SQL per db Access97 utilizzando DAO (anche se
non credo interessi...)
Nel mio DB ci sono 2 tabelle : Ordini e Quote fatte cosi:
Ordini
Quote
Campo "Progressivo"  as long                                   Ordine     as
long
Campo "Numero"        as long                                    Saldo
as long
Con la relazione Ordine.Progressivo--------------Quote.Ordine
faccio la seguente query :
sel = "SELECT Ordini.*, SUM(Quote.Saldo) AS [Totsaldo] FROM Ordini "
sel = sel & " INNER JOIN Quote ON ( Quote.Ordine = Ordini.Progressivo ) "
ho fatto diverse prove ma mi da sempre questo errore :
"Espressione Join non Supportata"
sapete dirmi perche???
inoltre se continuo la query aggiungendo
sel = sel & " WHERE Ordini.Codicefornitore BETWEEN '" & Text1(0) & "' AND '"
& Text1(1) & "' AND Ordini.Data "
sel = sel & " BETWEEN #" & Format(Text1(2), "mm/dd/yyyy") & "# AND #" &
Format(Text1(3), "mm/dd/yyyy") & "# "
mi da un'altro errore :
"Impossibile eseguire una query che non include l'espressione 'Progressivo'
specificata come parte di una funzione di aggregazione"
VERY HELP!!!!!!! :))
grazieee!!


Non sono sicuro al 100%, ma prova a togliere dalla select  Ordini.* .
Ciao


Se faccio come mi hai detto mi da l'errore :
"Impossibile eseguire una query che non include l'espressione 'Ordini.Tipo'
specificata come parte di una funzione di aggregazione
cmq grazieeee!!!


Si, devi togliere Ordini.*, ma devi inserire nella select tutti campi di
Ordini che ti interessano, in più devi aggiundere la clausola GROUP BY
Ciao

 Ciao
Ciao!!!

Newsgroup: it.comp.lang.visual-basic
Titolo: Grafici & database: AIUTO!

Salve a tutti, sono nuovo del NG e vorrei approfittare della vostra
competenza chiedendo un consiglio su come meglio affrontare un problema.
Devo realizzare un programma che permetta di mostrare su un grafico
l'andamento di sei variabili campionate a intervalli di circa un secondo
(per chiarezza si tratta della velocità e dell'assorbimento di corrente di
tre motori lette via seriale da un plc). Il grafico deve essere aggiornato
in tempo reale e mostrare l'andamento dei valori nell'ultimo minuto. Inoltre
devo registrare questi valori in un database per un periodo di qualche
giorno e permettere all'utente di ripescarli, visualizzarli e stamparli
quando vuole.
Non ho mai realizzato cose del genere, quindi vi chiedo:
- il controllo Graph di VB5 è sufficientemente flessibile per permettermi di
fare una cosa del genere?
- se si, conoscete la via più semplice e rapida per realizzarla?
- mi conviene invece sfruttare Microsoft Graph (via OLE) anche se non ho la
minima idea di come funziona?
- c'è qualche metodo alternativo?
Grazie anticipatamente a chiunque voglia rispondermi.

minima idea di come funziona?
No, troppo lento e complicato da gestire.