Ho provato tramite una condizione if ad associare al Rs("DAT_type") il valore di adInteger ma mi restituisce il seguente errore:
ADODB.Recordset error '800a0cb3'
Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.
/gestionale/prova2.asp, line 10
Questo è lo script
codice:<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("database/scadenzeDomini.mdb")
Set Rs = Conn.OpenSchema(4)
Do While not Rs.EOF
' Specificare qui il nome della tabella dove cercare i campi contenuti
If Trim(Rs("TABLE_NAME")) = "login" then
if Rs("DATA_TYPE") = 3 Then
Rs("DATA_TYPE") = "adInteger"
end if
Response.Write Rs("COLUMN_NAME") & " - " & Rs("DATA_TYPE") & "<br>"
End if
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>
In rosso ho messo la condizione. Mi dice che il recordset non può essere modificato. C'è un'altro modo per convertire i valori da numerici in testo (Varchar, Integer, ecc....)?
