vb6 e access

[matpez]

Originariamente inviato da lo_spettro
aiuto! sono completamente fermo!

Non riesco a fare nemmeno un piccolo passo!

Dimmi cosa nn riesci a fare per bene?!??

[lo_spettro]

Originariamente inviato da matpez
Dimmi cosa nn riesci a fare per bene?!??

Ho capito come si fa la connessione al database ma non ho capito come aggiungere ed eliminare record.Per esempio,volevo creare il form dove mettere gli articoli da caricare ma non ho capito come fare per aggiungere nuovi record da vb.

Sono mortificato ma anche su internet a riguardo ci sono sicuramente molte guide,ma sono tutte spezzettate e non ci capisco più niente

[matpez]

Studiati bene la guida di SQL, solo così si possono mettere, togliere, richiamare e modificare record!

ti va?

[lo_spettro]

Allora Matpez, sto riprendendo il codice che mi avevi allegato ma ho un piccolo problema relativo al form dove c'è il controllo per l'autocomposizione:

Private Sub AutoComposizione(ByRef cmbAux As ComboBox, ByVal sCampo As String)
If cmbAux <> "" And bRidondanza = False Then
sSql = ""
sSql = sSql & "SELECT " & sCampo & vbCrLf
sSql = sSql & "FROM Cantieri" & vbCrLf
sSql = sSql & "WHERE " & sCampo & " like '" & cmbAux & "%'" & vbCrLf
sSql = sSql & "GROUP BY " & sCampo & vbCrLf
sSql = sSql & "ORDER BY " & sCampo & vbCrLf

Set rs = cn.Execute(sSql)

If rs.BOF = False And rs.EOF = False Then
   bRidondanza = True
   cmbAux.Tag = Len(cmbAux)
   cmbAux = cmbAux & Mid$(rs(sCampo), Len(cmbAux) + 1)
   cmbAux.SelStart = Val(cmbAux.Tag)
   cmbAux.SelLength = Len(cmbAux)
   cmbAux.Tag = ""
   cmbAux.AddItem ""
End If

While Not (rs.EOF)
  cmbAux.AddItem rs(sCampo)
  rs.MoveNext
  Wend
rs.Close
bRidondanza = False
End If


End Sub

Quando eseguo l'applicazione mi evidenzia la riga che ho messo in neretto appena digito qualcosa nella combo box dicendomi:

Errore di Run-Time91
Variabile oggetto o variabile del blocco width non impostata

[lo_spettro]

ma perchè diavolo ogni volta che deve eseguire:

Set rs = cn.Execute(sSql)

Mi da quell'errore?

[lo_spettro]

Ho Trovato!!! Ho Trovato!!!!

Il problema era che io caricavo il db così:

Dim db as .....

Dim rs as ....

INVECE DI:

Set cn = New....
Set rs = New....

[matpez]

[matpez]

Ah dimenticavo, dopo la riga Set rs = cn.Execute(sSql) mettici questo pezzo di codice, serve per pulire la combo solo delle parole messe nella lista, se utilizzi il metodo clear alora lui ti pulisce anche quella che stavi scrivendo

   
'svuoto tutta la combo
'NB: non utilizzo il metodo clear perchè svuota anche il campo testo
While cboAux.ListCount > 0
  cboAux.RemoveItem cboAux.ListCount - 1
Wend

[lo_spettro]

potresti farmi un esempio di come funziona il metodo per aggiungere un record?

ad esempio, sul mio form ho il combo dei fornitori ed un pulsante di comando per aggiungere un record. Che evento ci deve andare nel bottone?

E poi un'altra cosuccia, per fare in modo che il combo venga popolato dall'elenco dei fornitori appena si apre il form, come dovrei procedere?

grazie.

[lo_spettro]

Allora, la popolazione della combo l'ho risolta.

Mi resta da fare quest'operazione:

ho la combo ed una casella di testo:

se inserisco un fornitore nella casella di testo, non ho capito come aggiungerlo al database e a farlo poi uscire nella lista dei fornitori nella combo.

il codice è questo:

Private Sub cmdAddNew_Click()
Dim bError As Boolean

If txtFornitore = "" Then bError = True

If bError = True Then
  Call MsgBox("Inserire il fornitore!", vbCritical)
 End If

sSql = ""
sSql = sSql & "SELECT Fornitore" & vbCrLf
sSql = sSql & "FROM Fornitori" & vbCrLf

Set rs = cn.Execute(sSql)

txtFornitore = rs("Fornitore")

sSql = ""
sSql = sSql & "INSERT INTO Fornitori(Fornitore)" & vbCrLf
sSql = sSql & "VALUES(' " & txtFornitore & " ')" & vbCrLf

Set rs = cn.Execute(sSql)

End Sub

e la tabella fornitori in access è composta da:

IDFornitore - Contatore
Fornitore - Testo

Con questo codice,mi succede che:

se metto un nuovo fornitore nella casella di testo e clikko su aggiungi,nella casella di testo mi mette in automatico l'ultimo fornitore....mi spiego meglio;

Diciamo che ho tre fornitori, ad esempio pippo poppi e pappa
se aggiungo puppa,nella casella di testo mi compare pappa e me lo duplica nella combo...

perchè???

[lo_spettro]

ok, ho risolto anche l'aggiunta del fornitore, non dovevo aggiungere questa riga:

txtFornitore = rs("Fornitore")

[lo_spettro]

adesso sono di nuovo fermo!!

per qualcuno che abbia voglia di aiutarmi allego il progettino.

In particolare ho questi problemi:

Nel form del carico detergenti riesco ad aggiungere i detergenti ma fatto questo poi, per vedere anche l'ultimo detergente caricato, devo uscire dal form e rientrarci.

Vorrei fare in modo che se dalla combobox relativa al detergente, ne scelgo uno,mi si popolino le text box.

Infine,non ho capito bene come organizzare la quantità da caricare.

Per favore,datemi una mano!!

[matpez]

Originariamente inviato da lo_spettro
Nel form del carico detergenti riesco ad aggiungere i detergenti ma fatto questo poi, per vedere anche l'ultimo detergente caricato, devo uscire dal form e rientrarci.

Devi creare una funzione che quando inserisci vada a ricercare il massimo indice del detergente e poi dopo con quell'ID fai una ricerca e riempi tutti i campi!

Originariamente inviato da lo_spettro
Vorrei fare in modo che se dalla combobox relativa al detergente, ne scelgo uno,mi si popolino le text box.

Basta che carichi il detergente nella lista e associ l'ItemData all'indice del detergente.

Quando nella como vi è l'envento change allora tu prendi l'ItemData di quell'elemento, ci fai un query di ricerca e riempi tutti i campi!