[VB] consiglio: come organizzare un magazzino

[matpez]

, toglimi una curiosità in amicizia, ma perchè io le cose le trovo da solo e tu no? secondo me nn hai molta voglia di stare li 3 ore a cercare :P :P :P :P :P :P :P :P :P

hehehehehe

Ecco a te:

  Dim nI      As Integer
  Dim nLen    As Integer
  
  
  nLen = ListView1.ListItems.Count
  For nI = nLen To 1 Step -1
    ListView1.ListItems.Remove nI
  Next

[davidino80]

xkè sul mio manuale c'è poco.. e sull'help in linea devo capirlo un po meglio

scusami hai ragione, ti devo troppo una birra

[matpez]

Originariamente inviato da davidino80
xkè sul mio manuale c'è poco.. e sull'help in linea devo capirlo un po meglio

scusami hai ragione, ti devo troppo una birra

Ma difatti i manuali servono solo per la sintassi , tutto il resto con VB lo vai ad intuizione, cioè.... anche perche se tu fai Oggetto. ti vine furi tutti le proprietà e metodi.. + comodo di così!!

Lo dico solo perchè a volte nn hai la possibilità di chiedere in giro hehehhee che mondo difficile

[davidino80]

lo uso spesso l'help in linea.. ma non c'è tutto a dir la verità. ad esempio.. il comando "set" con DEFINIZIONE nn lo trova..

va beh, per oggi direi che sono cotto. sono riuscito a venir fuori da QUASI tutto nn riesco a scrivere sul DB!!!

devo inserire 9 campi stringa nella tabella "RICAMBIDP".. da campo1 a campo9.. nell'ordine delle 9 colonne di access (codice, descr... )
Mi dice sempre "ERRORE DI SINTASSI NELL'ISTR. INSERT INTO"


ecco la query incriminata:

sSql = ""
sSql = sSql & "INSERT INTO RicambiDP(CODICE, DESCR, MOD, QTA, ATTUALE, PREZZO, DATAINS, DATAMOD, NOTE)" & vbCrLf
sSql = sSql & "VALUES(" & campo1 & "," & campo2 & "," & campo3 & "," & campo4 & "," & campo5 & "," & campo6 & "," & campo7 & "," & campo8 & "," & campo9 & ")" & vbCrLf

ma dove cavolo sto sbagliandoooooooo!!! il tuo esempio è identico e funzia........ porta pazienza..........

[matpez]

Sbagli questo...i campi di testo la parola deve stare fra gli apici es:

'valore'

in caso di campi numerici allora si possono omettere

[davidino80]

ahhh! quindi così è corretto?

sSql = sSql & "VALUES(' & campo1 & ',' & campo2 & ',' ....)"

[matpez]

Originariamente inviato da davidino80
ahhh! quindi così è corretto?

sSql = sSql & "VALUES(' & campo1 & ',' & campo2 & ',' ....)"

Si se sono tutti campi stringa

[davidino80]

so di essere pesante.. ma continua a darmi il medesimo errore:

sSql = ""
sSql = sSql & "INSERT INTO RicambiDP(CODICE, DESCR, MOD, QTA, ATTUALE, PREZZO, DATAINS, DATAMOD, NOTE)" & vbCrLf
sSql = sSql & "VALUES(' & campo1 & ',' & campo2 & ',' & campo3 & ',' & campo4 & ',' & campo5 & ',' & campo6 & ',' & campo7 & ',' & campo8 & ',' & campo9 & ')" & vbCrLf

ora la stringa è corretta.. ma nada
ho perso 10 anni di vita oggi...

[matpez]

Tu hai messo una mega stringa " "

Ma le tue varibili così nn vengono mica scritte nella stringa, fai bene attenzione!!!

[davidino80]

Originariamente inviato da matpez
Tu hai messo una mega stringa " "

Ma le tue varibili così nn vengono mica scritte nella stringa, fai bene attenzione!!!

i miei campo1, campo2, campo3 ecc... sono variabili stringa, non numeriche. ho provato anche a dividerle tutte con le virgolette.. e a parte il casino strutturale che viene fuori, mi da sempre errore. cmq sbaglio sicuramente questa parte? nn l'INSERT INTO (ovvero la riga sopra.. )

[matpez]

sSql = "" 
sSql = sSql & "INSERT INTO RicambiDP(CODICE, DESCR, MOD, QTA, ATTUALE, PREZZO, DATAINS, DATAMOD, NOTE)" & vbCrLf 
sSql = sSql & "VALUES('" & campo1 & "','" & campo2 & "','" & campo3 & "','" & campo4 & "','" & campo5 & "','" & campo6 & "','" & campo7 & "','" & campo8 & "','" & campo9 & "')" & vbCrLf

[davidino80]

INCREDIBILMENTE.. ancora errore.
boh guardo domani altrimenti divento fuso...

ciao e grazie come al solito mat

[matpez]

Sarebbe meglio avere il progetto ed il database!

[davidino80]

riesumo il thread

alora riassumo cosa RIESCO a fare:

- leggere dal db (select * .... )
- cancellare stringhe (delete *... )

ma non riesco ancora a inserirne!! (INSERT INTO nometabella.. )

adesso riguardo un'altra volta...

[davidino80]

EVVAAIIIIIII

sono riuscito ad inserire un campo alla volta!!!!

sSql = sSql & "INSERT INTO RicambiDP(CODICE)" & vbCrLf
sSql = sSql & "VALUES ('" & campo1 & "')" & vbCrLf
  
Set rs = cn.Execute(sSql)

così il campo1 del codice viene inserito!! Ora vado con 2 campi di seguito.
mi viene un dubbio.. che qualche campoX sia vuoto e quindi rompa le balle.... mmmm

[davidino80]

INCREDIBILE... tutto sto casino x il campo NOTE!!! che nn vuole andare..

.. ho provato a toglierlo e inserisce tutto correttamente..
adesso provo a ricreare la colonna sul db.... che altro può essere... il campo NON è vuoto

[matpez]

Infatti, guarda l'altro 3d che abbiamo hai replicato sul database del campo Null, li c'è una funzione che ti potrebbe venire comodo

Io fino a stasera nn posso rispondere.

ciaooooo

[davidino80]

Originariamente inviato da matpez
Infatti, guarda l'altro 3d che abbiamo hai replicato sul database del campo Null, li c'è una funzione che ti potrebbe venire comodo

Io fino a stasera nn posso rispondere.

ciaooooo

vai tranquillo HO RISOLTO!!!!

la tua funzione del null è corretta però in caso di SCRITTURA nn serve. Non indovineresti mai come ho fatto a risolvere!!!

ho cambiato nome alla casella "NOTE" sul DB in "COMMENTI" e così funziona alla grande!!
magari è una parola riservata di Access.........

cmq ora va tutto. grazie

[davidino80]

altro passo avanti.
allora ora funge tutto.. Mi chiedo se è possibile (anzi sicuramente) fare un controllo incrociato tra campi. mi spiego meglio.

voglio che in caso la ricerca sul db mi abbia trovato un codice che esiste e quindi mi abbia compilato gli altri campi, quando vado a cambiare valori sarebbe l'ideale se invece di aggiungere una nuova riga lo sovrascrivesse con i valori corretti.
Il mio problema è che nn so se esiste una funzione (la sintassi) che lo verifica..
Ho provato così, unendo le 2 cose:

sSql = sSql & "SELECT *" & vbCrLf
sSql = sSql & "FROM RicambiDP" & vbCrLf
sSql = sSql & "WHERE CODICE='" & campo1 & "'" & vbCrLf
sSql = sSql & "INSERT INTO RicambiDP(CODICE......
sSql = sSql & "VALUES ('" & campo1 & "','" ......

ma non va.
esiste una istruzione tipo INSERT INTO con già un controllo intrinseco? altrimenti, qualche suggerimento?
ciao!

[matpez]

Esiste eccomi, e si chiama UPDATE

UPDATE [Tabella]
SET Campo1=dato1, Campo2=dato2 etc etc