Codice alfanumerico e campo testo dbase

[wegawhite]

Originariamente inviato da diegoctn
Posta lo script.

Set RS = Server.CreateObject("ADODB.Recordset")
      Rs.Open "SELECT * from [DATI$]", "DRIVER=Microsoft Excel Driver (*.xls); DBQ=" & Server.MapPath(DestinationFileName)
      
      Set oRs = Server.CreateObject("ADODB.Recordset")
      oRS.Open "tabella", GetConnection, 2, 2
       
      
Do Until Rs.Eof 

If Rs("id") <> "" Then
bolErrorCAT = true

if bolErrorCAT = true then

oRS.AddNew


if IsNull(Rs("ALFANUMERICO")) or IsEmpty(Rs("ALFANUMERICO")) or Len(Rs("ALFANUMERICO"))="" then 
 oRs("ALFANUMERICO")= NULL
 else
 oRs("ALFANUMERICO")= Rs("ALFANUMERICO")
end if


oRs.Update

......