rija
Utente Attivo
- Messaggi
- 198
- Reazioni
- 0
- Punteggio
- 38
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:
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: