Visualizzazione dei risultati da 1 a 3 su 3
  1. #1
    Utente di HTML.it
    Registrato dal
    Oct 2008
    Messaggi
    62

    errore di run-time (vb6)

    ciao a tutti vi scrivo il codice vb, non capisco dove sta l'errore ..spero possiate illuminarmi!!!!grazie!!!!!

    codice:
       
    
    Dim stringa As String
    
    MDIForm1.Height = 20000
    MDIForm1.Width = 20000
        
      stringa = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
      stringa = stringa & "C:\test\armadi batt\database batt.mdb"
        
      Set cn = New adodb.Connection
      Set rs = New adodb.Recordset
    
      cn.Open stringa
      rs.Open "SELECT DISTINCT n ele, v per ele, v batt FROM batterie", cn, 1   
      If rs.EOF = True Then
            MsgBox ("Nessun dato"), vbInformation
      Else
          While rs.EOF = False
              
           Combo1.AddItem "         " & rs("n elementi") & "                 " & rs("volt per elemento") & "                         " & rs("tensione batt")
              rs.MoveNext
          Wend
      End If
    
       Set cn = Nothing
       Set rs = Nothing

    allego l'immagine dell' errore è questo..grazie a tutti in anticipo!
    Immagini allegate Immagini allegate

  2. #2
    Utente di HTML.it L'avatar di oregon
    Registrato dal
    Jul 2005
    residenza
    Roma
    Messaggi
    36,480
    Non puoi indicare dei campi che hanno degli spazi nel nome. Racchiudili tra parentesi quadre ...
    No MP tecnici (non rispondo nemmeno!), usa il forum.

  3. #3
    Utente di HTML.it
    Registrato dal
    Oct 2008
    Messaggi
    62
    ok!!problema risolto!!!grazie mille oregon!

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.