Newsgroup: it.comp.lang.visual-basic
Titolo: Vi prego cercate di aiutarmi!

Salve a tutti i programmatori  e sviluppatori.
Da qualche giorno mi diletto in visual basic dopo aver abbandonato tanti
anni fa il caro Basic.
Sto facendo una applicazione che deve interagire con un database e con dei
file e ho due problemi che non riesco a risolvere:
1- Aprendo un database con una istruzione Sql del tipo
  Dim db As Connection
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path &
"\magazzino.mdb;"
  Set DataB = New Recordset
  DataB.Open "select Codice,Descrizione,Quantità from Giacenze order by
Codice", db, adOpenStatic, adLockOptimistic
lo metto in una griglia fatta da diverse righe e 3 colonne (Codice ,
Descrizione e quantità)
Come posso fare a leggere, ad esempio il campo della 1a riga, 3 colonna e
quindi fare copiare il contenuto ad esempio in un campo di testo?
Come posso SCRIVERE ad esempio nella 1riga, 3 colonna... cioè nella cella
che io voglio? e alla fine salvare il tutto?
Cioè esiste un ogetto del tipo   DataB.Colonna1.Riga1.Testo = qualcosa ?
SPero di essermi spiegato....
2- Cerco all'interno di una Sub chiamata dalla pressione di un pulsante, di
aprire un file ma mi viene restituito un'errore :
Errore di runtime 5
Chiamata di Routine o argomento non valido.
E il Debug mi visualizza un'errore nell'espressione Open. Ecco il listato:
Open "articolotmp.dat" For Input As #1 Len = Len(Articolo)
Put #1, 1, "abcd"
Close #1
3a Domanda... e ultima....
Posso inserire i campi di un database (che per esempio contiene una lista di
nomi di città) per popolare una Pick-List (Combo-box)?
Come si Fa?
Spero che qualche anima pia di voi possa aiutarmi perchè non saprei proprio
dove andare a pescare queste informazioni.
Grazie.

 Come si Fa?
la piclist non la conosco. ...
per le combobox
dim conn as new adodb.connection
dim rsTemp as new adodb.Recordset
conn.open StringaDiConnessione
rsTemp.open "Select Citta FROM Tabella Order by Citta'",conn,adOpenStatic
do while not rsTemp.eof
   cmbCitta.AddItem "" & rsTemp!Citta 
   rsTemp.MoveNext
loop
rsTemp.Close
conn.Close
set conn=Nothing

Non postare due volte nel giro di pocco tempo!
Leggiti il manifesto del NG così vedi quali regole vigono qui!
Ciao SIMO
--
__________________
www.sasim.net
* Vb è relativamente semplice perchè c'è MSDN: Usa F1 !!
* Server IRC : 
irc.azzurranet.org
 --> Canale: #it_lang_vb
* Sito Comune Ng: 
http://www.it-lang-vb.net
* Manifesto del Ng: 
http://www.it-lang-vb.net/docs/Manifesto.txt
* I vecchi messaggi su: 
http://groups.google.com/


 ha scritto nel messaggio
news:TOxD7.8210$7A4.5...@news.infostrada.it...


Capito quasi tutto ma ancora un dubbio
Io apro il db con la seguente
Dim conn As New ADODB.Connection
Dim rsTemp As New ADODB.Recordset
conn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path & "\"
& numart & ";"
rsTemp.Open "Select * From Tabella1", conn, adOpenStatic
For i = 1 To 10 Step 1
Articolo = InputBox$("Inserisci il codice del componente numero " & i)
quantita = InputBox("Inserisci la quantita del codice " & Articolo)
rsTemp.MoveFirst
rsTemp.AddNew
E poi qui mi fermo. Ossia.... come devo dire a visual basic "Nel primo
record inserisci nella colonna Articolo quello che l'utente mi scrive come
codice articolo e inseriscimi nella seconda colonna, quindi la colonna
quantita, la quantita che l'utente mi specifica. Poi chiudi il tutto e
salvalo."
La stessa cosa, quando poi dovrò ripescare questi dati salvati come gli dico
"Vai nel primo record, prendi quello che c'e' scritto nella colonna 1
(articolo) e scrivimelo nella label1, poi prendi quello che c'e' scritto
nella colonna 2(quantita) e scrivimelo nella label2"
Queste sono le uniche due cose che non ho ancora capito.
Capito questo.... ho capito TUTTO!!  (:-)
Ciao e Grazie dell'immenso aiuto!

 Capito quasi tutto ma ancora un dubbio
 Io apro il db con la seguente
 Dim conn As New ADODB.Connection
 Dim rsTemp As New ADODB.Recordset
 conn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path & "\"
 & numart & ";"
 rsTemp.Open "Select * From Tabella1", conn, adOpenStatic
 For i = 1 To 10 Step 1
 Articolo = InputBox$("Inserisci il codice del componente numero " & i)
 quantita = InputBox("Inserisci la quantita del codice " & Articolo)
 E poi qui mi fermo. Ossia.... come devo dire a visual basic "Crea un nuovo
record.Inserisci nel
 record nella colonna Articolo quello che l'utente mi scrive come


  nella colonna 2(quantita) e scrivimelo nella label2"
Dim conn As New ADODB.Connection
 Dim rsTemp As New ADODB.Recordset
 conn.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=" + App.Path & "\"
 & numart & ";"
 rsTemp.Open "Select * From Tabella1", conn, adOpenStatic
do while not rsTemp.EOF
    msgbox "Reocrd Successivo"
    label1.Caption=rsTemp!Articolo
    label2.Caption=rsTemp!Quantità
    rsTemp.MoveNext
loop
rsTemp.close
conn.close
set conn=nthing
CIAO