Pagina 1 di 3 1 2 3 ultimoultimo
Visualizzazione dei risultati da 1 a 10 su 21
  1. #1
    Utente di HTML.it
    Registrato dal
    May 2005
    Messaggi
    137

    [VB6] inserire record in textbox multilinea

    tramite il codice che riporto eseguo una ricerca in un database access e lo evidenzio in un datagrid e fin qui tutto bene , io vorrei evidenziare i record ricercati anche in delle textbox multilinea come posso fare.
    Grazie
    codice:
    Dim col As Integer, num As Integer
    Dim v(1 To 10) As String
    Dim r As Integer
    Dim conn As Connection
    Dim rs As Recordset
    Public sql As String
    
    
    Private Sub CmbMatricola_Click()
    stringa = InputBox("INSERISCI MATRICOLA", "ISERISCI MATRICOLA")
     If stringa = "" Then
      MsgBox "Input errato!", vbInformation, "Input errato"
      Exit Sub
     End If
    sql = "select * from ore where matricola='" & stringa & "';"
    
    
    Call query(sql)
    
    
    Call init
    End Sub
    
    Private Sub Cmbseleziona_Click()
    With ope.DataGrid1
       
        .AllowAddNew = True
        .AllowDelete = True
        .AllowUpdate = True
        
      End With
      
      sql = "select * from ore;"
      Call query(sql)
    End Sub
    
    
    
    Sub query(str As String)
    
     Set cn = New ADODB.Connection
     Set rs = New ADODB.Recordset
     cn.Provider = "microsoft.jet.oledb.4.0"
     cn.ConnectionString = "C:\ORE.mdb"
     cn.Open
     rs.LockType = adLockOptimistic
     rs.CursorLocation = adUseClient
     rs.Source = str
     Set rs.ActiveConnection = cn
     
     rs.Open
     
     If rs.EOF Then
     
       MsgBox "Nessun record trovato", vbInformation, "Ricerca fallita"
       Exit Sub
       
     End If
     
      Set ope.DataGrid1.DataSource = rs
      
    End Sub
    Sub init()
    
    With ope.DataGrid1
       
        .AllowAddNew = False
        .AllowDelete = False
        .AllowUpdate = False
        
      End With
      
    End Sub

  2. #2
    Nella funzione "query", appena setti il datasource del datagrid, imposti il valore TextBox.Text a rs("NomeCampo").

    Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)

    C# programming and other stuffs

  3. #3
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Ma come e' fatto questo codice?

    Nel click dei combo chiami una funzione query che apre una connessione (ad ogni click?) ??
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  4. #4
    Utente di HTML.it
    Registrato dal
    May 2005
    Messaggi
    137
    Si scusa oregon ho sbsiato a scrivere il nome dei pulsanti invece di scrivere CmdMatricola ho scritto CmbMatricola.

  5. #5
    Originariamente inviato da donini
    Si scusa oregon ho sbsiato a scrivere il nome dei pulsanti invece di scrivere CmdMatricola ho scritto CmbMatricola.
    Veramente oregon si riferiva al fatto che apri una connessione con il db ad ogni click...
    Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)

    C# programming and other stuffs

  6. #6
    Utente di HTML.it
    Registrato dal
    May 2005
    Messaggi
    137
    ho madificato in questo modo ma mi restituisce solo il primo record del campo , mentre io vorrei che mi visualizzi tutti i record del campo
    codice:
    Sub query(str As String)
    
     Set cn = New ADODB.Connection
     Set rs = New ADODB.Recordset
     cn.Provider = "microsoft.jet.oledb.4.0"
     cn.ConnectionString = "C:\ORE.mdb"
     cn.Open
     rs.LockType = adLockOptimistic
     rs.CursorLocation = adUseClient
     rs.Source = str
     Set rs.ActiveConnection = cn
     
     rs.Open
     
     If rs.EOF Then
     
       MsgBox "Nessun record trovato", vbInformation, "Ricerca fallita"
       Exit Sub
       
     End If
     
      Set ope.DataGrid1.DataSource = rs
      Text1.Text = rs("ora").value
      
    End Sub

  7. #7
    Originariamente inviato da donini
    mentre io vorrei che mi visualizzi tutti i record del campo


    I campi del record?
    Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)

    C# programming and other stuffs

  8. #8
    Utente di HTML.it
    Registrato dal
    May 2005
    Messaggi
    137
    mi deve visualizzare tutti i record del campo "ora"

  9. #9
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    donini ... ma sei straniero ?
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  10. #10
    Originariamente inviato da oregon
    donini ... ma sei straniero ?



    Seriamente:

    Il concetto non è complicato... Non ha senso dire "i record del campo"... semmai "i campi del record". Tu cosa intendi??
    Cerco ombrello vecchio, nuovo, moderno o antidiluviano; purché protegga da una pioggia che vien giù come Dio la manda. Fate presto che ho l’acqua alla gola. (Noè)

    C# programming and other stuffs

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.