-K2-
28-07-2004, 14:34
Sto riempendo di record una tabella in Access 2002 da visual basic 6.0 con un loop che esegue tanti insert quanti sono i record che ho estratto con una select. Il problema è che nelle tabelle caricate i dati stringa hanno una lunghezza pari a quella della definizione del campo: in poche parole un codice lungo 2 mi risulta lungo 10 (se in campo codice ha lunghezza 10). Access mi aggiunge tutti spazi alla fine. Qualcuno ha mai riscontrato questo problema? Non è la prima volta che carico delle tabelle e non mi era mai successo nulla di simile.
st = "CREATE TABLE ArtCat3 "
st = st & "(Codice char(8), Descri char(32));"
Con2.Execute (st)
st = "SELECT CatOmo.Categoria AS codice, CatOmo.Descri FROM CatOmo"
rs.Open st, con, adOpenStatic, adLockReadOnly
Do While Not rs.EOF
st = "INSERT INTO ArtCat3 VALUES ('" & RTrim(rs("codice")) & "','" & RTrim(StringaPerQuery(rs("Descri"))) & "')"
Con2.Execute (st)
rs.MoveNext
Loop
rs.Close
Nella Insert utilizzo anceh trim ma nulla da fare.
Grazie a chiunque risponderà!!!!
st = "CREATE TABLE ArtCat3 "
st = st & "(Codice char(8), Descri char(32));"
Con2.Execute (st)
st = "SELECT CatOmo.Categoria AS codice, CatOmo.Descri FROM CatOmo"
rs.Open st, con, adOpenStatic, adLockReadOnly
Do While Not rs.EOF
st = "INSERT INTO ArtCat3 VALUES ('" & RTrim(rs("codice")) & "','" & RTrim(StringaPerQuery(rs("Descri"))) & "')"
Con2.Execute (st)
rs.MoveNext
Loop
rs.Close
Nella Insert utilizzo anceh trim ma nulla da fare.
Grazie a chiunque risponderà!!!!