mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.visual-basic
Titolo: Informazioni su MACRO!

Salve!
posso lanciare MACRO di ACCESS, con VB6?
Se si, come?
Grazie

 Se si, come?
Macro nel senso di macro...
*** INIZIO ***************************************************
From: "Maurizio Borrelli"
Newsgroups: it.comp.lang.visual-basic
Subject: Re: [?] eseguire una macro di Access o TAB...
Date: Thu, 25 Jan 2001 20:33:38 +0100
[...]
    Option Explicit
    Sub Main()
      With GetObject("c:\db1.mdb")
        .DoCmd.RunMacro "CiaoMondo"
        .Quit
      End With
    End Sub
[...]
*** FINE *****************************************************
... e macro nel senso di routine Visual Basic:
*** INIZIO ***************************************************
From: "Maurizio Borrelli"
Newsgroups: it.comp.lang.visual-basic
Subject: Re: Far eseguire codice VBA da un programma VB.
Date: Mon, 13 Nov 2000 07:58:40 +0100
[...]
Option Explicit
Sub Main()
  With New Access.Application
    .OpenCurrentDatabase "c:\db1.mdb"
    .Run "prova"
    .CloseCurrentDatabase
    .Quit
  End With
End Sub
*** FINE *****************************************************
Ovviamente sta a te scegliere se il "binding" usarlo "late" (GetObject) o
"early" (Access.Application).
--
Ciao.
Maurizio
--------
?SPQR(C)
 X
--------

Newsgroup: it.comp.lang.visual-basic
Titolo: VB5 Easter Egg

Salve.
Chi conosce l'Easter Egg di VB5?
Grazie
--------------------------
Marco Comite
http://www.comite.it/marco
ma...@comite.it
--------------------------

 Chi conosce l'Easter Egg di VB5?
Tutti gli Easter Egg conosciuti li trovi  al sito 
www.eeggs.com







ok


Newsgroup: it.comp.lang.visual-basic
Titolo: Record molto lungo

Ho un database mdb,al quale mi collego con dao 3.61,dovrei stampare un campo
utilizzando il metodo printer.Il campo perň risulta essere molto lungo da
non stare su un unica riga di un foglio A4,esiste qualche metodo per mandare
a capo la stampa e su una riga piů in basso? Ringrazio per un consiglio.
Andrea

Metodo printer o oggetto printer? Se è l'oggetto printer è semplice...basta
che ti metti quello che devi stampare in una stringa...e ti fai una routine
che ti prende per esempio 80-100 caratteri alla volta (a seconda di quanto è
grande il font) e ti stampa le linee.
Gianni Moretti

 ha scritto nel messaggio
news:98j2k8$iv0$1...@fe2.cs.interbusiness.it...


 Ciao Lorenzo
Grazie del consiglio,purtroppo non ho molta dimestichezza con le Api,la
dichiarazione è la seguente:
Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long,
ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat
As Long) As Long
Ncount starebbe per il numero di righe?Come posso stampare un record che
viene richiamata nel seguente modo
Do while Not Città.eof
a=a+200
Printer.currentx =300
Printer.currenty=a
Printer.print Citta!descrizione
Città.movenext
loop
Printer.endoc
Grazie per i consigli .
Andrea

 ha scritto nel messaggio
news:98jgd1$qbo$1...@fe2.cs.interbusiness.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: canale Irc

Meimi ciao,
vedo che,  putroppo per te, non sei ancora in vacanza.
Puoi scrivere due righe dicendo si, no, riprova, canale non esiste piu, o
altro?
Ti faccio tanti auguri per le tue vacanze. Ciao


Grazie, anche a te :)

Newsgroup: it.comp.lang.visual-basic
Titolo: Errore -2147467259 (80004005) The Microsoft Jet database engine cannot ... Help

La mia applicazione in VB6 (con ado , Jet ole db provider 3.5 ecc.) quando
si connette al database (Access97) ottiene questa risposta:
 "Errore  -
2147467259
 (80004005) The Microsoft Jet database engine cannot
open the file C:\Miodb.mdb. It is already opened exclusively by another
user, or you need permission to view its data"
Questo succede solo su alcuni computer e non su altri. Ho controllato che
gli attributi del file non fossero impostati in sola lettura, ma erano
giustamentae impostati come archivio.
L'utente aveva installato sul computer Access97 e l'applicazione ha
installato mdac2.0.
Ho cercato molto sul supporto MSDN, ma riferisce l'errore come legato
all'apertura di database su supporti in sola lettura (Es CD rom). Datemi un
help se sapete qualcosa!
Grazie a chi potra' darmi una mano.
 Daniela

 wrote in message
news:8raobg$ius$1...@nslave1.tin.it...



Grazie Hal1961, ma in questo caso il programma e' su un computer locale e
non e' in multiutenza. La prima ipotesi anche, e' forse da escludere perche'
da' questo errore al primo avvio a computer appena resettato. Se hai altre
idee fammi sapere.
Grazie mille. ciao - Daniela

Newsgroup: it.comp.lang.visual-basic
Titolo: System Wide Default Printer

At work i have 12 different printers, is there a way in VB to set a printer
as the System Wide Default? rather then just the default to the program i
create?  Thanks!
Joe

 wrote in message
news:HC656.185869$hD4.48...@news1.rdc1.mi.home.com...

Just for your program, you can loop through the Printers collection.
Once u find the printer you wish then you can set it as default.
Dim prn As Printer
For Each prn In Printers
    If StrComp(prn.DeviceName, _
                            <the_printer_i_look_for>, vbTextCompare) = 0
Then
            Set Printer = prn
            Exit For
    End If
Next prn
Bye
Aldo

 wrote in message
news:9332u7$8pgqi$1...@ID-56381.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Quale linguaggio?

 Aspetto un vostro consiglio
studia l'asm.... praticamente lo usi pure sulle calcolatrici... .-)

 non uso Winzozz ;-)
Il C non č affatto il linguaggio piů potente, tanto meno il piů
completo... Inoltre non č propriamente semplicissimo e, secondo me,
ormai obsoleto (seppure ancora -purtroppo- usatissimo).
Io ti consiglio decisamente il Python (
www.python.org
), un linguaggio
moderno, potente, semplice e perfetto per imparare a programmare.
Ciao.
-- 
BSD is for UNIX lovers -- linux is for Windows haters.

 non uso Winzozz ;-)
Ragioniamo
hai chiesto consiglio a un NG che utilizza un programma installabile solo
con Windows, che chiami Winzozz, che non utilizzi; indi devo dedurre che, ho
non hai le idde chiare o hai voluto fare una battuta.
Comunque, in considerazione dei potenti mezzi economici della Microsoft, che
sta puntando su C#, in considerazione che il Framework, se non si urterà la
siscettibilità della Microsoft, sarà utilizzabile con altri sistemi
operativi, punterei su C#, con un' occhio su mono.
Salve
giuseppeD

 Cari ragazzi volevo chierdervi un consiglio, sono un principiante per
cut
Il K++
gira su tutti i pc...anche sui mainframe....
è indipendente dai sistemi operativi
è multi processore
accetta linguaggio naturale
e sembra sia compatibile con i pc quantici di prossima generazione
unico difetto:
...non esiste se non nella mente di qualche scrittore di fantascienza!
.....
ma tu guarda....!
..... :-(
--
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

 cosa che per me conta molto, visto che non uso Winzozz ;-)
Perň usi Outlook Express... <g>
PLONK
Andrea


Prima o poi dovrò avere la riposta del perche ogni tanto qualche utente
Linux rompe i ciuffoli con qualche tentativo di flame da sottosviluppati ai
poveri ed ignari sciocchini utenti Windows ma....
MAX

 PLONK
Leggiti il suo messaggio su it.comp.os.dibattiti

Newsgroup: it.comp.lang.visual-basic
Titolo: installazione vb .net 2003

Volevo sapere se acquisto una licenza di VB .net2003 lo posso installare su
due pc di mia proprieta e utilizzati solo da me ?
Porgo questa domanda in quanto ho letto che per l'installazione necessita di
un collegamento ad internet.
Grazie.
--------------------------------
Inviato via 
http://usenet.libero.it

 necessita di un collegamento ad internet.
Probabilmente questo si riferisce all'abilitazione/autenticazione iniziale.
Se è simil-XP, si può fare anche per telefono.

non ci giurerei molto....da qualche parte ho letto che non conta tanto il
numero di installazioni in sč,
quanto il numero di persone che usano il pacchetto contemporanemente...
con msdn mi pare che tu puoi installare su un pc fisso ed un portatile, perň
devi sempre essere tu l'utente degli applicativi/software....
non so, non vorrei sbagliarmi....
good coding!!!
-- 
Damiani Liborio Igor
ig...@igordamiani.it
 - 
soft...@igordamiani.it
 - 
idam...@hotmail.com
http://www.igordamiani.it
ICQ : 11847262

 non so, non vorrei sbagliarmi....
Non ti sbagli, hai ragionissima (in generale, non conosco la licenza di Net
2003).
Era in quel topic in cui si parlava di MSDN e nel quale c'era anche il link
delle FAQ.

Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] - ho trovato un sito con sorgenti ( www.iswapcode.com )

per tutti gli interessati ho trovato un sito che distribuisce sorgenti di
visual basic
http://www.iswapcode.com
sembra buono :o)
------------------------------------------------------------------------
Questo messaggio e` stato inviato da 
http://www.inwind.it

 sembra buono :o)
ma dai potevi anche dirlo che era il tuo sito :))
dopo guarda anche il mio (ti conosco) ehehhehhe
ciao :)))))
--
-------
sito: 
www.dadev.it
ultime: Ocx per irc testi freeware
-------

graficamente carino, ma la registrazione obbligatoria credo che sia proprio
da EVITARE


visual basic
Hehehehe un grande :))
Sebbeno nella home mi piace l'
immagine lungua quanto lo schermo (cosa che ho già visto da qualche
parte...sul mio desk :))) Hai per caso modificato un immagine presa in
rete? Io tempo fa ho scaricato un desktop per il mio pc, e ho un immagine
simile alla tua...vabbè...) trovo invece squalidissimo il tentativo di
publicizzare il tuo sito come qualcosa di buono, trovato per caso :)
Comunque c' erano due cose mi interessavano:
1)
volevo vedere il codice
del tuo cliento ftp, visto che io sono ad un punto morto con il mio, ma
quando ho visto che dovevo registrarmi, ti ho maledetto un paio di volte e
comunque non mi sono registrato :P
2)
ho cliccato su 'donne' perchè
speravo in una bella gallery di immagini porno, free, e ho trovato il
sitarello della pupazzetta che balla sul desk, e per di più devo
registrarmi anche li.
Io ho seguito l tuo consiglio ma...non sei etrato
nella mia dir dei preferiti :P
Quando si potrà consultare il codice anche
senza registrarsi fammi sapere che torno sicuramente a farti visita.
Logicamente fammi sapere anche se metti immagini xxx aggratiss!!! Hehehehe
:))
Saliutt!! :)
--------------------------------
Inviato via 
http://usenet.iol.it
Newsgroup: it.comp.lang.visual-basic
Titolo: Le righe malefiche della Label

Devo, anzi voglio, contare il numero di righe presenti in una label.
Semplice, no?
Dim lines() As String = Split(Label1.Text, vbCrLf)
Ma se io volessi includere anche le righe che vanno a capo perchè la
Label è troppo stretta, quindi che non sono separate da nessun
carattere particolare?
Immagino di dover usare Graphics.MeasureString, ma non ho trovato
niente e non saprei da dove iniziare, perchè che ci faccio con un
rettangolo?
grazie,
Daniele (anche se non sono sicuro di essere me stesso)

 rettangolo?
Vado a memoria, ma la versione più complessa della MeasureString restituisce 
il numero di linee e di  caratteri che stanno nel rettangolo.
L'unica cosa è azzeccare lo stringformat giusto... purtroppo sembra che 
Label non usa la DrawString per disegnare la sua scritta :(
Ciao 

 rettangolo?
Io la sparo, ma poi non ti lamentare con me se non funziona :-D
Dim gr As Graphics = Label1.CreateGraphics
Dim altezzaLinea, altezzaTotale As Single
altezzaLinea = gr.MeasureString("A", Label1.Font).Height
altezzaTotale = gr.MeasureString(Label1.Text, Label1.Font, 
Label1.Width).Height
Dim numeroRighe As Integer
numeroRighe = CInt(Math.Ceiling(altezzaTotale / altezzaLinea))
-- 
news:it-alt.comp.software.openoffice : Il newsgroup dedicato a
OpenOffice.org, la suite open source di applicazioni per ufficio.
Saluti, VITRIOL


http://msdn2.microsoft.com/it-it/library/957webty(VS.80).aspx
qua c'è la versione più complessa. Da ciò che ho capito, purtroppo, le
righe e i caratteri sono parametri da inserire.
ciao, domani provo meglio

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

Ciao a tutti oggi per la prima volta mi sono messo a fare un programma
in vb utilizzando access e ho visto che per utilizzare un database
devo impostare una variabile come DataBase e una come RecordSet, solo
che vb6 non supporta direttamente questi tipi di dati, qualcuno sa
cosa devo attivare per farli andare?

...


 wrote in message
3a0826c1...@news.galactica.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Help su dbcombo

 Salve a tutti. Ho un problema sul dbcombo: devo selezionare da esso un
campo di un record e devo far apparire in una casella di testo un altro
campo dello stesso record. Qualcuno puo' mandarmi un esempio di cio'?
Grazie mille (possibilemte in e-mail)
Ciao
Fabio Carucci
mc1...@mclink.it

...

Beh, credo che si potrebbe usare la prorieta' .selectedItem del dbCombo che
dovrebbe riportare il bookmark del record corrente. Io ho provato a fare in
questa maniera (avevo il tuo stesso problema)
1. se faccio click su una voce del dbcombo
2. rilevo il bookmark in .selectedItem
3. lo posso al controllo data (che e' lo stesso del dbCombo)
in teoria il controllo data dovrebbe riposizionarsi.... invece mi da un
errore.
Alla fine ho risolto inserendo invece che una dbList (a me serviva quella
non il dbCombo) una dbGrid che mi fa il riposizionamento in automatico.
Newsgroup: it.comp.lang.visual-basic
Titolo: DBGrid

come si usa manualmente il dbgrid relativo ad un database per esempio *.mdb
e come si configura la connessione dinamica, cioè senza percorso assoluto al
database utilizzando un modulo *.bas; cioè cosa scrivere nel modulo e cosa
scrivere nel form_load del form che contiene il database con il componente
dbgrid e senza utilizzare il componente data?
ringrazio tutti anticipatamente
Alessandro

 dbgrid e senza utilizzare il componente data?
[...]
Puoi farlo solo con l'ultima versione di DBGrid (VB6), non con quelle
precedenti, e devi appoggiarti ad ADO.
Ad esempio, crei un oggetto ADO recordset a livello di modulo nel Form ove è
posto il DBGrid, lo connetti al database con le modalità che vuoi (sola
lettura, cursori vari, eccetera...) e poi imposti la proprietà DataSource
con riferimento al recordset.
Attenzione che devi usare SET per assegnare la relazione.
Ciao,
Carlo.

 wrote in message
9s0a0p$v8f$1...@pegasus.tiscalinet.it...


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

ffff

 ffff
Studi alla CEPU?
Ciao
*Roby*
P.S.
Per capirla bisogna aver visto la pubblicità in televisione...

 wrote in message
news:i%kA7.3515$HT2.1...@news1.tin.it...

hahahahahhahahahhahahahhahaha! hic!
Dadschehavistolapubblicità.
;)

Newsgroup: it.comp.lang.visual-basic
Titolo: un dubbio

Dentro a un form non ridimensionabile c'č una bitmap di poco piů piccola del
form.
Il mio dubbio č questo: posso essere sicuro che a qualsiasi risoluzione, con
qualsiasi monitor e scheda video la bitmap continui ad essere piů piccola
del form?
Probabilmente č perchč non ho capito bene cosa sono i twip.
Ringrazio in anticipo


Non é un problema di risoluzione, ma di dimensione dei caratteri (grandi o
piccoli)
Se hai impostato la risoluzione a 1024*768 con caratteri piccoli, avrai la
corrispondenza di 1 pixel = 15 twip, nel caso di caratteri grandi è invece 1
pixel = 12 twip, senza contare se usi delle dimensioni custom. Ora, visto
che dimensioni & posizione degli oggetti (height, width, top, left) sono
normalmente espresse in twips, ti consiglio di assegnare questi valori in
form_load espressi in pixel moltiplicandoli per screen.twipsxpixelx (che ti
da il numero di pixel x ogni twips nell'attuale configurazione dello
screen).
Ora considerando che la bitmap sia in un controllo image:
Private Sub Form_Load()
Form1.Top = 100 * Screen.TwipsPerPixelX
Form1.Left = 100 * Screen.TwipsPerPixelX
Form1.Width = 300 * Screen.TwipsPerPixelX
Form1.Height = 300 * Screen.TwipsPerPixelX
Image1.Top = 10 * Screen.TwipsPerPixelX
Image1.Left = 10 * Screen.TwipsPerPixelX
Image1.Width = 280 * Screen.TwipsPerPixelX
Image1.Height = 280 * Screen.TwipsPerPixelX
End Sub
In questo modo la tua image sarà sempre + piccola di 10 pixel in ogni
direzione rispetto al form, indipendentemente dalla risoluzione e dalla
grandezza dei caratteri.
Sperando di esserti stato utile, ti saluto.
<<< Hanamichi >>>


Metti Form1.ScaleMode = vbPixels
Ciao
Newsgroup: it.comp.lang.visual-basic
Titolo: Errore fatale con messaggio LVM_SETITEMSTATE su SysListView32

Buonasera,
sto scrivendo un programma in Visual Basic 6 per controllarne un altro
scritto in Visual C++.
Il programma da controllare è composto da quattro oggetti di tipo
SysListView32.
Con il codice seguente posso recuperare gli handle dei quattro
controlli e su questi posso effettuare operazioni di aggiunta e
rimozione elementi. L'unico messaggio che non mi funziona è quello per
selzionare uno o tutti gli elementi della SysListView.
Infatti quando mando questo messaggio ricevo un errore fatale
dell'applicazione in Visual C++ con riferimento al file COMCTL32.OCX.
Ecco il codice:
Type LVITEM
    mask As Long
    iItem As Long
    iSubItem As Long
    state As Long
    stateMask As Long
    pszText As Long
    cchTextMax As Long
    iImage As Long
    lParam As Long
    iIndent As Long
End Type
Private Const LVM_FIRST = &H1000 '// Costanti messaggi per listview
Private Const LVM_SETITEMSTATE = (LVM_FIRST + 43)
Private Const LVIS_SELECTED = &H2
Private Const LVIF_STATE = &H8
Public hSysListView32(3) As Long 'handle delle varie SysListView32
Public SysListAttrib(3) As LVITEM
Sub TestButton()
    hFound = FindWindowEx(0, 0, vbNullString, "Visual C++ Program")
    If hFound > 0 Then
        result = EnumChildWindows(hFound, AddressOf EnumChildProc,
ByVal 0&)
    End If
End Sub
Public Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As
Long) As Long
    Dim sClass As String
    Dim ret&
    Dim totalItem As Integer
    Static i As Integer
    sClass = Space$(64)
    ret = GetClassName(hwnd, sClass, 64)
    If InStr(Left(sClass, ret), "SysListView32") Then
            hSysListView32(i) = hwnd
        i = i + 1
    End If
    EnumChildProc = 1
End Function
Sub Select() 'richiamata da un pulsante della form
    Dim x
    For x = 0 To 3
        SysListAttrib(x).mask = LVIF_STATE
        SysListAttrib(x).state = True
        SysListAttrib(x).stateMask = LVIS_SELECTED
            Call SendMessage(hSysListView32(x), LVM_SETITEMSTATE, -1,
SysListAttrib(x))
            Call UpdateWindow(hSysListView32(x))
    Next x
End Sub
Cosa ne pensate di questo comportamento? In pratica mi funziona tutto
tranne l'unico messaggio che veramente mi serve! :-)
Grazie, Emilio.

 Grazie, Emilio.
Hmmm... in pratica stai cercando di passare un puntatore (SysListAttrib(x))
tra due processi diversi... solitamente questo porta una gran sfiga.
La causa è il cosiddetto marshaling, che con i messaggi >= WM_USER (0x400)
non viene gestito.
Te lo devi gestire tu, usando WriteProcessMemory, credo.
Qua c'è un esempio:
http://www.tek-tips.com/viewthread.cfm?qid=1218628&page=1
Bye
Raf
Newsgroup: it.comp.lang.visual-basic
Titolo: Timer

 Ho creato un servizio NT che esegue un processo di import. Il servizio e'
 stato creato utilizzando anche l'oggetto Timer di VB perche' alla nascita
la
 import veniva fatta ogni 30 secondi. Ora la import dovra' essere fatta ogni
 giorno (di notte) e l'oggetto timer assume come intervallo di tempo al
 massimo 65.000 millisecondi (poco piu' di un minuto).
 Come lo posso sostituire?
 Grazie mille.
-- 
Posted from [194.184.181.34] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:NDBBKOHECECDJOFLKD...@goel.it...


 wrote in message
news:NDBBKOHECECDJOFLKD...@goel.it...


Ma chi ti ha detto che siamo la stessa persona?????
Ma tu che ne sai??
Forse quello era un problema di un amico che anche io ho messo su questo
NG?!?!?!?
Prima di formulare risposte, verifica sempre se quello che dici è
giusto!!!!!
Cià! da Le Boffe amico di Mago Merlino.


 wrote in message
news:NDBBKOHECECDJOFLKD...@goel.it...


ehm... problema con una "b" sola....

Newsgroup: it.comp.lang.visual-basic
Titolo: ARGH!!!!!!!!!!!!! (scusate il cross post)

ARGH!!!!!!!!!!!!!!
Ho dovuto riformattare tutto e ho perso tutti i theard che stavo seguendo!!!
PErcio' se qualcuno mi ha scritto/risposto me lo dica se no so caxxi!!!!
(per me intendo :P )
--
RedFoxy

 wrote in message
news:a50g98$3nrlg$1...@ID-83354.news.dfncis.de...

Non è grave...
Immagino utilizzi Outlook Express, quindi dal menu Visualizza, selezionare
Visualizzazione Corrente->Mostra le risposte ai miei messaggi, quindi puoi
segnare i thread con i tuoi messaggi come "da seguire" nuovamente. è un
attimo.
James

 attimo.
WOW!|!! non lo sapevo!!!!!!!!
--
RedFoxy
A fox around web

Newsgroup: it.comp.lang.visual-basic
Titolo: resize form

ciao a tutti.
qualcuno sa aiutarmi riguardo la resize delle maschere in modo automatico
passando a diverse impostazioni dello schermo?
se esiste un ocx o una classe da qualche parte che posso scaricare :-)))
oppure,soluzione alternativa a parte spararmi un colpo? :-D
grazieeeeeeeeeeeeeeeeeeeeeeee
Deborah

[Beba] ha scritto:

solo perchè deborah è un nome che si addice ad una ragazza giovane e carina,
invece di riempirti di improperi, ti dono questo link...
http://makeashorterlink.com/?H5CE21BB2
(per la gioia di lupo e la rabbia di hal)
Salutoni
Sergio

(per la gioia di lupo e la rabbia di hal)
Zac... ti ho visto! :-PPPP
-- 
ciao, hal

 ha scritto nel messaggio
news:at7nf5$11q074$1...@ID-173193.news.dfncis.de...

Newsgroup: it.comp.lang.visual-basic
Titolo: Spezzettamento Stringa

Salve,
ho un problemino con una listBox (list1)
ho una stringa "uno due tre" (str)
vorrei inserire (List1.AddItem) questi tre elementi nella listbox come posso
fare?
Grazie
xoooox
--------------------------------
Inviato via 
http://usenet.libero.it

 come posso fare?
dim a() as string
dim i as integer
a = split(str, " ")
for i = lbound(a) to ubound(a)
    list1.additem a(i)
next i
--
Salutoni
Sergio

 ha scritto


 ha scritto nel messaggio
news:b5c5b1$28dco3$1...@ID-173193.news.dfncis.de...

Meglio "0 to UBound"; la funzione Split ritorna un array con bound -1 se la
stringa di partenza e' vuota...
Ciao
--
Luca Dormio - 
luca....@tin.it
________________________________
"Marty, non stai ragionando in maniera quadridimensionale"
Dr. Emmett L. Brown

 e' vuota...
Ně ;) ritorna UBound = -1 e LBound = 0 e quindi nel ciclo
non ci entra :)
Lokar
--
Sito Comune: 
http://www.it-lang-vb.net/
Manifesto: 
http://www.it-lang-vb.net/docs/Manifesto.txt
UGIdotNET - 
http://www.ugidotnet.org
Newsgroup: it.comp.lang.visual-basic
Titolo: VB.NET leggere oggetto OLEDB di access2010

Ciao a tutti,
devo leggere un'immagine bitmap che si trova in un campo OLE di un DB
access.
Da quel che ho capito access inserisce delle informazioni, una sorta di
Header.
 
Per cui se leggo il campo come un array di byte mi ritrovo dei caratteri
iniziali che rendono l'immagine inutilizzabile.
Ho visto che in qualche esempio si parla dei primi 78 caratteri per i bmp,
ma in access 2010 non funziona.
 
Qualcuno ci si č ritrovato?
Grazie a tutti

 Qualcuno ci si è ritrovato?
 
Questo sembra funzionare, in pratica credo sia a dimensione variabile:
 
Private Sub CaricaImmagine(ByVal id As Long)
        Dim st As New OleDbConnectionStringBuilder()
        Dim BITMAP_ID_BLOCK As String = "BM"
        Dim JPG_ID_BLOCK As String = "\u00FF\u00D8\u00FF"
 
        st.DataSource = "C:\mioDB.accdb"
        st.Provider = "Microsoft.ACE.OLEDB.12.0"
 
        Using cn As New OleDbConnection(st.ToString)
            cn.Open()
 
 
            Dim cmd As New OleDbCommand("SELECT img  FROM tab where id= " &
id, cn)
            Dim ms As MemoryStream = New MemoryStream
            Dim campo As Object = cmd.ExecuteScalar
            If campo Is Nothing OrElse IsDBNull(campo) Then
                Label1.Text = "Immagine non presente"
                Me.PictureBox1.Image = Nothing
            Else
                Label1.Text = "Immagine dell'articolo " & id
 
                Dim img() As Byte = CType(campo, Byte())
 
                Dim u8 As System.Text.Encoding = Encoding.UTF7
 
                Dim strTemp As String = u8.GetString(img)
 
                Dim strVTemp As String = strTemp.Substring(0, 300)
 
                Dim iPos As Integer = -1
 
                Dim test As Integer = strVTemp.IndexOf(JPG_ID_BLOCK)
 
                If (strVTemp.IndexOf(BITMAP_ID_BLOCK) = -1) Then
 
                    ' Find the starting block of the image
 
                    iPos = strVTemp.IndexOf(JPG_ID_BLOCK)
 
                Else
 
                    iPos = strVTemp.IndexOf(BITMAP_ID_BLOCK)
 
                End If
 
                ' From the position above get the new image
 
                If (iPos <> -1) Then
 
                    ms.Write(img, iPos, (img.Length - iPos))
 
                    Me.PictureBox1.Image = Image.FromStream(ms)
 
                End If
 
                ms.Close()
            End If
 
        End Using
    End Sub

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

Ciao e grazie a chi mi potrà aiutare

 parecchio in quanto a funzionalità, comunque il mio problema è
VB 5 e' un sistema di sviluppo! Non un CASE.
Con un CASE fai quello che ti permette di fare, con un sistema di sviluppo
fai quello che sei capace di fare!
Con VB5 se hai bisogno di fare qualcosa, la fai da zero (o quasi) e la fai come serve a te.

Newsgroup: it.comp.lang.visual-basic
Titolo: Una buona grid ocx?

Ciao! Io ho scritto un programma in VB3 usando la
FPGrid della FarPoint in versione VBX. Ora sono tentato
di convertire il tutto a VB5 (sebbene siano 900KB di
eseguibile e praticamente non ci siano bitmap nel codice)
ma prima di eventualmente acquistarlo vorrei sapere:
Con VB5 pro c'e' una grid seria, e con seria intendo:
1* Ogni casella puo' avere un colore di fondo, un colore
di foreground e uno stile del testo diverso.
2* Ogni casella puo' essere: bitmap, checkbox, pulsante,
testo, numerico, combo box (sebbene checkbox e
pulsante le possa simulare eventualmente con bitmap).
Esiste cio'?
Ho avuto modo di vedere velocemente la DBGrid, ma
non va bene perche' non si possono settare gli
attributi del punto 1.
E se non c'e' con la distribuzione, esiste una OCX
free/share che rispetti queste caratteristiche?
Ciao e grazie mille!
                              Con Affetto,
                          Andrea De Togni
FantaCalcio? FantaManiac!: 
http://www.dadacasa.com/fantamaniac
ICQ# 28636782

attributi del punto 1.
hai provato le msflexgrid?
SW.


Non conosco la FPGrid, ma uso regolarmente la TrueDBGrid PRO della Apex
(versione commerciale avanzata della DBGrid) e ti assicuro che e' ottima (e
fa tutto quello che ti serve, piu' gli split tipo Excel, e altro.
L'inconveniente e' che e' commerciale (non ricordo quanto costi, ma puoi
vedere su Programmer's Paradise), comunque si ripaga da sola, perche' io la
uso praticamente in tutti i progetti che faccio.
--
Roal Zanazzi
z...@iol.it

Newsgroup: it.comp.lang.visual-basic
Titolo: problemi con oggetti recordset

time()"),un altro con quello appena saltato
(set recordset2 = db.openrecordset("select * top 1 from tabella where
appuntamento < time() order by appuntamento desc").Ora come faccio ad
unirli?Non posso usare un istruzione sql(select from recordset1..),non me li
riconosce,come faccio?In questo caso utilizzo il metodo addnew e
update,inserendo manualmente tutti i campi del mio nuovo record,ma se ne
avessi avuti mille?Grazie(spero di essere stato chiaro)

 ha scritto nel messaggio
news:98fvos$kae$2...@pegasus.tiscalinet.it...


una table perchè funzioni l'istruzione sql?
Se ti e' piu' facile, usa allora una tabella temporanea, cosi' alimentata:
INSERT INTO tab_temp
SELECT campo1, campo2, campo2
FROM nome_tabella
WHERE condizione1
GO
INSERT INTO tab_temp
SELECT campo1, campo2, campo2
FROM nome_tabella
WHERE condizione1
SELECT campo1, campo2, campo2
FROM nome_tabella
WHERE condizione1
Quindi leggi la tabella temporanea:
SELECT * FROM tab_temp
ciao, hal

WHERE condizione1
Queste invece si':


Newsgroup: it.comp.lang.visual-basic
Titolo: [?] recordset ADO

E' possibile aprire un recordset come risultato di una SELECT eseguita
su un altro recordset?
qualcosa tipo:
Rs1.Open SELECT1, myConn
Rs2 = Rs1.Metodo SELECT2
Ciao e grazie.
Sent via Deja.com 
http://www.deja.com/
Before you buy.

 wrote in message news:8hqavl$h93$1...@nnrp1.deja.com...

Newsgroup: it.comp.lang.visual-basic
Titolo: CommonDialog - Premuto pulsante Annulla

Probabilmente oggi sono più addormentato del solito.
Come diavolo si fa a sapere se l'utente ha cliccato sul pulsante annulla?
Sono due ore che cerco e provo senza risolvere nulla.
Ciao, Sauro

c'č una proprietą tipo CancelError o qualcosa del genere.
se la setti a true, quando viene premuto annulla viene generato un errore.
basta che prima di richiamare la showopen tu metti un bel
on error resume next
e sei a posto
on error resume next
showopen
if err.number<>0 then
    annulla
else
    on error goto 0
    fai quel che vuoi
end if

 c'è una proprietà tipo CancelError o qualcosa del genere.

oppure fai così:
on error goto handler
dim strfile as string
cd.CancellError=true
strfile=cd.filename
exit sub
handler:
msgbox "Cancel premuto"
oppure non setti il cancel error e verifichi il contenuto di cd.filename
if trim(cd.filename)="" then
'premuto cancel
else
'non premuto cancel
end if
ciao
Lorenzo

 end if
Lorenzo, non ho presente esattamente il vb6, ma sono sicuro (abbastanza) che in
vb.net
 quello che hai scritto sopra non vale, perchè, se prima di "aprire" la
dialog di apertura file hai già impostato un valore per il filename, la
pressione del tasto annulla non cancella questo valore.
--
Salutoni
Sergio

 pressione del tasto annulla non cancella questo valore.
Vero Sergio !
Non avevo pensato a questa eventualità Sbonk!.
Se setti il nome prima , il cancel non lo cancella neanche in vb 6 (l'unica
differenza al limite è il path )
ciao
Lorenzo

 Se setti il nome prima , il cancel non lo cancella neanche in vb 6
neanche io ci avevo pensato: è che c'ho sbattuto il nasino giusto una settimana
fa....
--
Salutoni
Sergio

usate il mio sistema ed il gioco è fatto :-)

Newsgroup: it.comp.lang.visual-basic
Titolo: Registro di sistema e servi in XP

Salve a tutto il NG volevo scrivere un programma in Visual Basic che mi
modifichi il registro di sistema e i servizi all'avvio... Mi spiego meglio:
ho una lunga lista di modifiche (per migliorare e personalizzare XP Home) da
fare al registro di sistema e ai servizi all'avvio. Quando formatto e
reinstallo il sistema passo tre quarti d'ora a fare queste modifiche.
Mi piacerebbe fare un programma che mi esegua queste modifiche in maniera
automatica. Potrei sapere su quali file devo lavorare e come ci devo
lavorare??
Grazie a tutti...

Il 3/27/2003 6:25 PM, Caba scrisse:

Prendi un pc dove hai gia' installato le tue migliorie. Con regedit esporti
in un file le chiavi con i tuoi settaggi.
Sul pc da migliorare esegui il file generato sopra o lo includi nel 
setup del tuo programma.
Con che frequenza formatti il tuo sistema? ;-)
ciao
	maxx
-- 
NOSPAM: Rimuovere i trattini dallo username!
Cut hyphens from my username!
Newsgroup: it.comp.lang.visual-basic
Titolo: Modifica record con ado. net

Vorrei salvare le modifiche apportate in un campo del record con 
ado.net
.
in vb6 facevo così:
rs("Cognome")="Rossi"
rs.update
e il gioco era fatto
ora è un macello, non si capisce niente, ho provato queste due soluzioni, ma
nessuna funziona:
-------------------------------------------------------------------
1° prova:
Dim cmdBuild As New OleDbCommandBuilder(da2)
Me.tblVideoteca.Rows(x)("Titolo") = Me.Titolo.Text
Me.da2.Update(ds.Tables("QueryVideoteca"))
Me.da2.UpdateCommand = cmdBuild.GetDeleteCommand()
Me.da2.DeleteCommand = cmdBuild.GetDeleteCommand()
MsgBox(da2.Update(ds, "QueryVideoteca"))
ds.AcceptChanges()
------------------------------------------------------------------------
2° Prova:
Dim myrow As DataRow = Me.tblVideoteca.Rows(x)
myrow.BeginEdit()
myrow("Titolo") = Me.Titolo.Text
myrow.AcceptChanges()
Me.tblVideoteca.AcceptChanges()
Me.ds.AcceptChanges()
Me.da2.Update(myrow("Titolo") = Me.Titolo.Text)
------------------------------------------------------------------------
ho realizzato un bel progetto, ma mi manca solo questo cavolo di
aggiornamento che non riesco in nessuna maniera. se qualcuno riesce a dare
un'occhiata al mio codice e dirmi dove sto sbagliando gliene sarei grato,
magari effettuandomi le correzioni necessarie. grazie e ciao

 ha scritto nel messaggio 
news:43fa5af5$0$12590$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Risoluzione schermo

Le mie applicazioni si incasinano se cambio la risoluzione dello schermo .
come posso evitarlo ?
Ho gia provato un ocx (tale resizer) , trovato su un sito bellissimo per vb
: 
www.visual-basic.it
  ma funziona solo in runtime ...
Ciao

probabilmente va comprato :)
Fabio

Non è particolarmente difficile scrivere uno stralcio di codice per gestire
il ridimensionamento di finestre e controlli in funzione della risoluzione
dello schermo.
Parti da questi dati.
Screen.TwipsPerPixelX = <Risoluzione Orizzontale>
Screen.TwipsPerPixelY = <Risoluzione Verticale>
Calcolati questi valori per la tua sessione di lavoro in modo da avere un
punto di riferimento, diciamo MY_RES_X e MY_RES_Y, e impostali come costanti
nell'applicazione che stai sviluppando.
Poi potresti pensare a un codice simile a questo:
        Dim ResFactorX as Double
        Dim Ctrl as Control
        ResFactorX = Screen.TwipsPerPixelX / MY_RES_X
        On Error Resume Next
        For Each Ctrl in Me
            Ctrl.Move Ctrl.Left * ResFactorX, Ctrl.Top * ResFactorX, _
                             Ctrl.Width * ResFactorX, Ctrl.Height *
ResFactorX
            Ctrl.Font.Size = Ctrl.Font.Size * ResFactorX
        Next Ctrl
Prova, non è detto che funzioni, però è un tentativo!!!
Gemini.
Newsgroup: it.comp.lang.visual-basic
Titolo: Multimedialita

Esiste un programma microsoft che crea cataloghi multimediali?
Toglere NOSPAM
mc...@NOSPAMfreemail.it

Esiste un programma microsoft che crea cataloghi multimediali?
Cosa intendi per "Cataloghi multimediali"?
Comunque no, non mi pare che la Microsoft abbia fatto qualcosa di simile...
forse la ClipArt Gallery?
Giampaolo Bellavite, Verona
[ 
bell...@easynet.it
 | 
bell...@hotmail.com
 ]
----
E' nato un nuovo sito sulla musica e sul pensiero: il sito di Peter Iliych
Tchaikovsky.
----
[ 
http://wwf.easynet.it/tchaikovsky
 | 
http://wwf.easynet.it
 ]

Newsgroup: it.comp.lang.visual-basic
Titolo: estrarre valore?

ho questo codice che dovrebbe fare la media, matematica di voti
scolastici.VB6 mi dice che qualcosa non va, cosa sbaglio?
Cliccando su  commandmedia(cmdmedia) dovrebbe apparire la media nella
textbox txtmedia.
Grazie
Private Sub cmdmedia_Click()
Dim txtstoria As Double, txtgeografia As Double, txtinglese As Double,
txtdiritto As Double, txtscienze As Double, txtmatematica As Double,
txtfisica As Double, txtchimica As Double, txttecnologia As Double,
txtdisegno As Double
retxtitaliano = Val(txtitaliano.Text)
retxtstoria = Val(txtstoria.Text)
retxtgeografia = Val(txtgeografia.Text)
retxtinglese = Val(txtinglese.Text)
retxtdiritto = Val(txtdiritto.Text)
retxtscienze = Val(txtscienze.Text)
retxtmatematica = Val(txtmatematica.Text)
retxtfisica = Val(txtfisica.Text)
retxtchimica = Val(txtchimica.Text)
retxttecnologia = Val(txttecnologia.Text)
retxtdisegno = Val(txtdisegno.Text)
txtmedia.Text = CStr((retxtitaliano + retxtstoria + retxtgeografia +
retxtinglese + retxtdiritto + retxtscienze + retxtmatematica + retxtfisica +
retxtfisica + retxtchimica + retxttecnologia + retxtdisegno) / 2)
End Sub

1) Ma perchè hai dichiarato come variabili i nomi dei textbox:
Dim txtstoria As Double, txtgeografia As Double, txtinglese As Double,
txtdiritto As Double, txtscienze As Double, txtmatematica As Double,
txtfisica As Double, txtchimica As Double, txttecnologia As Double,
txtdisegno As Double  ?????????????????????????????????????????????????????
Quelli sono controlli...non variabili....al max devi inizializzare le variabili
Dim retxtitaliano As Double, retxtstoria As Double ecc...
2) Poi perchè alla fine di tutti i valori fai /2 ?? Per fare la media devi fare / il numero di valori immessi ..in questo caso 11
!!!!!!
txtmedia.Text = (retxtitaliano + retxtstoria + retxtgeografia +
retxtinglese + retxtdiritto + retxtscienze + retxtmatematica + retxtfisica +
retxtfisica + retxtchimica + retxttecnologia + retxtdisegno) / 11
Senza il Cstr che non serve...(anche se giustamente pensi che nel TextBox ci vada del testo :-)) ).
Prova così!
Ciao SIMO
--
__________________
www.sasim.cjb.net



ok, grazie.
ora però non mi calcola la media giusta: inserendo tutti 6 la media risulta
6,5252525252525

Ma quanto è vecchio questo post?? Come mai è finito qui?
--
__________________
www.sasim.cjb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Sottrazione di due date

semplice e veloce per farlo?
Puoi semplicemente sottrarre i due risultati di now, che restituisce il
formato Date, e poi usare la funzione Format$(ris, "hh:mm:ss") per
convertire il formato Date il un formato stringa, oppure le funzione Hour,
Minute e Second per ottenere i vari valori numerici
Ciao
Flavio

ximox (
simo...@netsis.it
) wrote:
: Devo (con VB5) sottrarre due date e orari ottenuti con la funzione NOW.
: Vorrei ottenere un integer contenente il numero di minuti tra le due
: date. Non devo calcolare periodi piu grandi di 23 ore. Esiste un modo
: semplice e veloce per farlo?
: Grazie,
: Antonio.
: 
: 
Io sottrarrei semplicemente le due date, e moliplicherei il risultato
per 1440. Il risultato (magari INTeato) dovrebbe essere il numero
di minuti fra le due date, non importa se con periodi superiori a
24 ore.
Attento solo a non mettere il risultato della sottrazione in un
integer :)
Ciao.
             _  _  _ _ _ _  ______________________________________
          _  _  _ _ _ _  __/__________________________________    )
                        /                                __   )  /
                       /         Claudio Mauceri        /_/  /  /
                      /         
mau...@sinet.it
            /  /
                     /      
mau...@torino.alpcom.it
       /  /
     _  _  _ _ _ _  /   
www.geocities.com/Colosseum/3000
  /__/
    _  _  _ _ _ _  /_____________________________________/
                          O                        O

Newsgroup: it.comp.lang.visual-basic
Titolo: Effetto Pulsanti Explorer

Come si possono ottenere gli stessi effetti dei pulsanti di Explorer ?
Grazie.
--
CHE LA FORZA SIA CON VOI
E ricordatevi di visitare il sito :
http://digilander.iol.it/lamak

> Come si possono ottenere gli stessi effetti dei pulsanti di Explorer ?
puoi usare delle Label o dei controlli Image (o PictureBox) con BorderStyle
= 0, con l'API DrawEdge per fare i bordi. in alternativa puoi usare delle
linee e cambiargli colore...
cmq esistono OCX (anche freeware) che fanno proprio quello di cui hai
bisogno
Ciao
Faber

 Come si possono ottenere gli stessi effetti dei pulsanti di Explorer ?

Newsgroup: it.comp.lang.visual-basic
Titolo: Query SQL in VB

Salve a tutti...
Ho un problema.. Ho un DB con un elenco di città.
L'utente in input mi da il nome di una città e io per recuperare il record
interessato faccio:
sql$ = "SELECT * FROM CittaItaliane WHERE Citta = '" & txtCitta & "';"
E fin qui tutto ok. L'inconveniente è che alcuni nomi di città finiscono con
l'accento ( ' ). Un esempio:
Se l'utente sceglie la citta di nome Mondovi', la stringa SQL diventerebbe:
sql$ = "SELECT * FROM CittaItaliane WHERE Citta = 'Mondovi'';"
E il programma mi va in errore, dato che l'apice del nome della citta
interferisce con i due apici della sintassi sql.
Esiste un modo per evitare questo errore? Grazie a tutti per la
collaborazione
Un saluto a tutti quanti                                    Fausto

 Esiste un modo per evitare questo errore?
sě.
basta raddoppiare l'apice.
-- 
Salutoni
Sergio
per rispondere... togli il group dall'indirizzo


Sara' la duecentomilionesima volta che viene fatta questa domanda?
--
Ciao!
Luca Menegotto

 Se l'utente sceglie la citta di nome Mondovi',
Manda a scuola chi digita sulla tastiera.
L'accento è Mondovì.
Quello che usate voi è l'apice, che in italiano ha un altro uso.
Per il tuo problema direi che basta cercare nei post vicino al tuo: ogni 4
ore viene ripostata la stessa domanda con relativa soluzione.
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

Newsgroup: it.comp.lang.visual-basic
Titolo: Avviare una connessione internet

Ciao a tutti
vorrei sapere quali sono le APi o i comandi VB che permettono di collegarsi
ad internter
sfruttando le impostazioni di accesso remoto in modo da non dover cliccare
sempre su riconnetti in caso di caduta del segnale
Grazie ReDiCuori

sempre su riconnetti in caso di caduta del segnale
Sito comune articolo di moreno, rasapi...
-- 
Visita il sito comune del NG: 
http://www.it-lang-vb.net
Visit: 
http://www.hardwaretips.com

Newsgroup: it.comp.lang.visual-basic
Titolo: Doppia lettura dalla porta COM

E' possibile leggere da un programma VB i dati che passano su una porta COM
mentre un altro programma la sta utilizzando?
Saluti
Yomo

Che io sappia no, l'apertura di una porta e' esclusiva...
Ciaotutti,
Alessandro
<Yomo> wrote in message news:8o2tkn$r...@kyra.unica.it...


Dovresti leggere l'indirizzo fisico della porta; in questo modo non credo Tu
abbia conflitti di IRQ.
Ciao.
Alfredo.
<Yomo> ha scritto nel messaggio news:8o2tkn$r...@kyra.unica.it...


 ha scritto nel messaggio
news:8o2v23$2cq8$1...@stargate1.inet.it...


<Yomo> wrote in message news:8o2tkn$r...@kyra.unica.it...


Newsgroup: it.comp.lang.visual-basic
Titolo: Common Controls 6.0 - Sono localizzati (nelle varie lingue ?)

Ciao,
ho installato la versione 6.0 del VB in inglese.
I controlli 6.0 sembrano localizzati per la lingua inglese.
Infatti il controllo MonthView e il DatePicker scrivono
TODAY invece di OGGI.
Nel VB in italiano, cosa scrivono ?
Grazie per le risposte :-)
Ciao, Gundam

E' un baco, tra gli altri, del DTPicker.
In VB6 Italiano scrive "oggi".
ciao,
Alessandro Scardova
scar...@tin.it
http://space.tin.it/computer/ascardov/
Newsgroup: it.comp.lang.visual-basic
Titolo: [OT] Lettura File COBOL

Scusatemi se mi permetto,io in linea di massima, mi pregio di studiare già
solo
leggendo i vostri illuminanti post, ma non sono riuscito a trovare qualcosa
o qualcuno
in grado di aiutarmi.
Ho un archivio cobol che mi si riferisce come vuoto (tuttavia pesa 2.7
mega!)
Come è possibile verificarne il contenuto? Esistono visualizzatori o
sistemi per poterne leggere il contenuto? verificarne il funzionamento?
Grazie in anticipo.Non posso dire altro.

 ha scritto nel messaggio
news:IsZqc.298366$rM4.12...@news4.tin.it...

Newsgroup: it.comp.lang.visual-basic
Titolo: [VB6] Caricamento dati da file Db3 Con Ado

Scusate, so di aver già posto il quesito ma purtroppo non sono riuscito a
registrare la risposta (non la trovo più). Potete per cortesia spiegarmi
come posso caricare un file Db3 aprendolo direttamente e senza doverlo prima
collegare ad access?? So che non è possibile con Ado ma che esistono altri
sistemi.
Grazie anticipato,
 
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


          Scusate, ho trovato la risposta... Grazie lo stesso (era nello storico
chiaramente, chi lo sa cosa ho cercato prima!!?)


 Grazie anticipato,
anche se per asp, qui fa un esempio ado/db4.
http://www.motobit.com/tips/detpg_asp-dbf-database.htm
prova a cercare google per "dao ado dbf exclusively" ecc.
j.

Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic e mysql

Salve ragazzi, devo fare un programma gestionale in VB 6.0, che si colleghi
con Mysql, uso il controllo data, per collegarmi al DB, ma nella finestra
delle proprietà, dove vengono visualizzati i possibili database da usare,
mysql non c'è, quindi come posso collegarmi a mysql?
-- 
ICQ # 84624356

 database da usare, mysql non c'è, quindi come posso collegarmi a
Non ricordo benissimo ma mi pare che tu debba prima installare i driver per
MySql...
-- 
Alex {per email metti '[NOSPAM]' nell'oggetto}
"Prima di dedicarti all'impossibile accertati di aver fatto tutto il
possibile" (Alex1980)

 MySql...
In effetti devi installare i driver ODBC che trovi sul sito di MySQL.
-- 
Quando noi ignoranti eravamo di più, tutto era più bello (A. Celentano).
  ___   _   ___ _  _______   _______ ___
|   \ /_\ | _ \ |/ / _ ) \ / /_   _| __|
| |) / _ \|   / ' <| _ \\ V /  | | | _|
|___/_/ \_\_|_\_|\_\___/ |_|   |_| |___|

 In effetti devi installare i driver ODBC che trovi sul sito di MySQL.
Ho installato i driver ODBC ma VB ancora non riconosce mysql, cosa devo 
fare? 

 fare? 
Se controlli sull'MSDN trovi la soluzione.
1 - Creati (in Origine dati ODBC, pannello di controllo) un DSN di 
sistema, e chiamalo MYSQL;
2 - Nel controllo Data, alla proprietà Connect, devi digitare:
     ODBC; DNS=MYSQL;
e sarà tutto pronto per l'uso :D


>     ODBC; DNS=MYSQL;
Scusa, intendevo:
      ODBC; DSN=MYSQL;


 In effetti devi installare i driver ODBC che trovi sul sito di MySQL.
Dovrebbero esserci anche i driver OLEDB
Ciao
-- 
NeoDataType : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

> Dovrebbero esserci anche i driver OLEDB
che non supportano le transazioni...
Newsgroup: it.comp.lang.visual-basic
Titolo: [?] stessa form Modal o Non Modale

Si può aprire la stessa form nello stesso progetto in modo Modale o NON
MODALE a seconda delle necessità ?
Grazie

MODALE a seconda delle necessità ?
implementi un metodo "Apri" alla form:
public sub apri(modal as boolean)
	me.show abs(cint(modal))
end sub
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
---------------------------------------------------------------------------

Scusate ma ho formulato male la domanda; il problema è un'altro.
Ho una MDI Form con una form dei prodotti di magazzino CHILD.
Nell'inserimento del documento (la FORM è MODAL quindi non CHILD) se
l'articolo non esiste la procedura deve consentire l'inserimento immediato
senza uscire dalla gestione documenti.
Per recuperare tempo l'ottimo sarebbe quello di riaprire la stessa form ,
che però è child e non può essere aperta come modale.
La domanda quindi è : si può modificare la proprietà della form CHILD/NON
CHILD a runtime ?
grazie e scusate.
(ke figura dimerda)



Sì: trovi un esempio sul mio sito.


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

Ho problemi per visualizzare un corsore per programmi CAD cioč
due linee:una verticale e una orizzontale che si spostano muovendo
il mouse.
Avendo usato il metodo line e circle per disegnare il cursore simulato
dalle due linee mi cancella il disegno sottostahnte.
Come posso ottenere un or esclusivo sui pixel per ovviare a tale
inconveniente?
ciao a tutti e grazie in particolare a chi sa risolvere il problema.

...


Ho problemi per visualizzare un corsore per programmi CAD cioè


Beh... Io ci provo:
Dim xm as single, ym as single
Private Sub Picture_MouseMove(Button As Integer, Shift As Integer, x As
Single, y As Single)
If y <> ym Or x <> xm Then
Picture.Refresh
xm = x
ym = y
Picture.Line (0, y)-(Picture.Width, y)
Picture.Line (x, 0)-(x, Picture.Height)
End If
End Sub
Ciao, Daniele