aiutooooooo urgentissimoooo

rija

Utente Attivo
198
0
CPU
Q6600 2.8Ghz :D
Scheda Madre
via apollo KT
HDD
500gb hitachi 7200rpm 16mb
RAM
4gb kingston 800mhz CL8
GPU
ATi 5850 1gb Xtreme
Audio
integrato
Monitor
Samsung 22" 2ms
PSU
Tt 775w BRONZE 12v+ 64A LOOOL
Case
aperto :D
OS
WINZOZ 7
vi prego ragazzi aiuto, ho quasi finito il programma ma mi da questo errore.
impossibile aggiornare i dati. inserire o incollare meno dati:
Vi prego ho cercato su google, da quello che ho capito devo usare la funzione MEMO ma io nn l'ho mai fatto :( vi posto parte del codice
Dim DbCnn, TxtCnn As New Data.OleDb.OleDbConnection
Dim CnnString, CommandText As String
Dim Cmm As New Data.OleDb.OleDbCommand
Dim TxtDr As OleDb.OleDbDataReader
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TempFile\ecom_clienti.mdb;User Id=admin;Password=;"
DbCnn.ConnectionString = CnnString
DbCnn.Open()
CnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TempFile\;Extended Properties='text;HDR=Yes;FMT=Delimited';"
TxtCnn.ConnectionString = CnnString
TxtCnn.Open()
CommandText = "SELECT * FROM articolic.txt"
Cmm.CommandText = CommandText
Cmm.Connection = TxtCnn
TxtDr = Cmm.ExecuteReader
If TxtDr.HasRows Then
CommandText = "Delete * From Prodotti"
Cmm.CommandText = CommandText
Cmm.Connection = DbCnn
'Cmm.ExecuteNonQuery()
CommandText = _
"INSERT INTO PRODOTTI (CodiceA, Codice, Scategoria, Categoria, Prodotto, Pdescrizione, Gdescrizione, Pfoto, Gfoto, CPrezzo, RPrezzo, Giacenza, " & _
"Iva, PuntiSconto, Tipologia, Offerta, SpeseSpedizione, Spedizione, Cancellato, QXC, Colli, Postazione, R1Prezzo) Values (" & _

se mi spiegate come fare ve ne sarei grato :help: :inchino::inchino::inchino::inchino:
 

rija

Utente Attivo
198
0
CPU
Q6600 2.8Ghz :D
Scheda Madre
via apollo KT
HDD
500gb hitachi 7200rpm 16mb
RAM
4gb kingston 800mhz CL8
GPU
ATi 5850 1gb Xtreme
Audio
integrato
Monitor
Samsung 22" 2ms
PSU
Tt 775w BRONZE 12v+ 64A LOOOL
Case
aperto :D
OS
WINZOZ 7

Entra

oppure Accedi utilizzando
Discord Ufficiale Entra ora!