[VB6] Griglia di TextBox

[logan78]

Ciao,
avrei bisogno di trovare un sistema per mettere i dati contenuti in un db dentro un griglia fatta di textbox o una cosa simile

[Softec]

Que tipo di DB?
e ti conviene utilizare un datalist o un listbox
Saludos!

[logan78]

In realtà quello che mi interessa e visualizzare righe di textbox dinamiche

[logan78]

mi sapreste fare un esempio di come poter prelevare dati da un db ed inserirli in un array di controlli textbox

Grazie

[logan78]

a-iu-to

[Softec]

Dal menu Proggetto\Riferimenti cerca e spunta:
Micorsoft ActiveX Data Objects 2.5 Library

Questo per collegare la BD, inseriscelo in un Modulo:

Option Explicit

Public Cn As New ADODB.Connection
Public Rs As New ADODB.Recordset
Const Nome_db = "Nome Del Tuo DB.mdb"

Sub connetti()
With Cn
.ConnectionString = "Provider = Microsoft.Jet.OleDB.4.0;" & _
"Data Source=" & App.Path & "\" & Nome_db
'nella prima riga si specifica il provider
'nella seconda il percorso al db
.ConnectionTimeout = 5 'numero dei secondi di timeout
.CursorLocation = adUseClient 'tipo di cursore
.Mode = adModeShareDenyNone 'nessuna limitazione
.Open 'apertura ricordarsi di chiuderla
End With
With Rs
.ActiveConnection = Cn ' imposta a che connessione si riferisce
.LockType = adLockOptimistic ' imposta il tipo di lock
End With
End Sub

Nel Load del Form:

Call connetti

If Cn.State <> 0 Then ' Se la connessione è aperta
Rs.Open SQL_ARTICOLI '"SELECT * FROM Articoli" ' apre il recordset leggendo tutti i campi dalla tabella
' TBTessuti
If Rs.State <> 0 Then 'se non si sono verificati errori
If Not (Rs.EOF And Rs.BOF) Then 'se il recordset non è vuoto
Me.txtCodice.Text = Rs("Codice")
Me.txtDescrizione.Text = Rs("Descrizione")
End If
Else
MsgBox "Errore durante l'apertura della tabella", vbCritical
End If
Else
MsgBox "Errore durante l'apertura della connessione", vbCritical
End If

Spero sia quello che cerchi, cmq nel forum ho visto che questo tema sia già stato risolto da altre persone, prova a fare una ricerca.
Saludos!

[alka]

Originariamente inviato da logan78
a-iu-to

Inserire un messaggio di sollecito ogni 10 minuti non è senz'altro il modo migliore di chiedere aiuto.