Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - database e ricerca
Forum - Visual Basic 6 - database e ricerca

Avatar
moet (Normal User)
Pro


Messaggi: 185
Iscritto: 13/11/2007

Segnala al moderatore
Postato alle 14:56
Martedė, 28/04/2009
Ciao a tutti !

sto impazzendo... :asd:

inserito il nome barca da tastiera in una text devo verificare sul database se la barca č gia nella lista. In tal caso procedere alla stampa senza salvarla, in caso contrario salvare il nome barca nella lista e mandarlo in stampa.


Codice sorgente - presumibilmente VB.NET
  1. Public Sub YACHT()
  2. Dim trova As String
  3.  
  4.        
  5.     stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
  6.     stringa = stringa & App.Path & "\NOMI YACHT.mdb"
  7.  
  8.     Set cn = New ADODB.Connection
  9.     Set rs = New ADODB.Recordset
  10.    
  11.     cn.Open stringa
  12.     rs.Open "Tabella1", cn, 3, 3
  13.    
  14.     cn.Execute "select * FROM Tabella1"
  15.    
  16.     trova = rs("nome barca")
  17.    
  18.     If rs.EOF Then    ' SE DATABASE VUOTO CARICA DIRETTAMENTE
  19.                  rs.AddNew
  20.                  rs("nome barca") = Text1.Text
  21.                  rs.Update
  22.     End If
  23.    
  24.    
  25.     While rs.EOF = False
  26.    
  27.     If trova = Text1.Text Then
  28.        
  29.         MsgBox "YACHT CLIENTE GIA IN LISTA", , "HELP DESK"
  30.        
  31.  
  32.     Else
  33.                  rs.AddNew
  34.                  rs("nome barca") = Text1.Text
  35.                  rs.Update
  36.                  
  37.    
  38.        rs.MoveNext
  39.     End If
  40.     Wend
  41.    
  42.      
  43.    
  44.                         Set cn = Nothing
  45.                         Set rs = Nothing
  46.    
  47.          
  48.                      
  49. End Sub

PM Quote
Avatar
theprogrammer (Normal User)
Guru^2


Messaggi: 2509
Iscritto: 28/01/2009

Segnala al moderatore
Postato alle 16:58
Martedė, 28/04/2009
... e invece cosa succede? Errori? Malfunzionamenti?

Spiega ...

PM Quote