FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
||||
|
||||
Problema con ADO leyendo excel
Hola
Tengo un ADOtable asociado a un archivo en excel el problema es que en el archivo en excel existe un campo que comparte datos numericos y con alphanumericos pero siempre convierte los alfanumericos en nulllos y si cambio el tipo de dato desde la opcion "Form as Text" a widestring marca un error de que espera un float ¿alguna idea de como solventar esto? Gracias |
#2
|
||||
|
||||
Tal vez colocando algo de código y algunos datos de ejemplo sea más fácil ayudarte.
Lo raro es que no lea toda la columnas como texto. ¿Cómo tienes configurado el formato de la columna en Excel?
__________________
Germán Estévez => Web/Blog Guía de estilo, Guía alternativa Utiliza TAG's en tus mensajes. Contactar con el Clubdelphi P.D: Más tiempo dedicado a la pregunta=Mejores respuestas. |
#3
|
||||
|
||||
código
lo único que he encontrado para darle la vuelta es ponerle desde excel una fórmula=TEXTO(B2,0)
el archivo está en formato 97-2003, no sé si es por que mi lap tiene instalado el 2007 Gracias anexo el código // string tomado de este foro String1 := 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Users\Usuario\Documents\FIMS\03 CONSTRUCCION\BASE GRAL EXPEDIENTES_NUEVO.xls;Mode=Share Deny None;Persist Security Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDBatabase Password="";Jet OLEDB:Engine Type=35;Jet OLEDBatabase Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDBon't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;' ADOConnection1.Connected := False; ADOConnection1.ConnectionString := String1; ADOConnection1.Connected := True; // conectar y obtener datos ADOTable_Registros.Close; ADOTable_Registros.Active := False; ADOTable_Registros.TableName := ECarpeta.Text; ADOTable_Registros.Active := True; ADOTable_Registros.Open; Max := ADOTable_Registros.RecordCount; Min := 0; aqui leo los datos Min := 1; Max := ADOTable_Registros.RecordCount; ADOTable_Registros.First; MemoSalida.Clear; For I := Min to Max do Begin Position := I; Campo_Llave := ADOTable_Registros.FieldByName('Campo_Llave').AsString; No_Prestamo_Abanks := ADOTable_Registros.FieldByName('No_Prestamo_Abanks').AsString; Credito := ADOTable_Registros.FieldByName('Credito').AsString; // poniendo la forma com "AS TEXT" así se ve el campo del adotable object ADOTable_RegistrosNO_PRESTAMO_ABANKS: TWideStringField FieldName = 'NO_PRESTAMO_ABANKS' Size = 255 end |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Qué libro estoy leyendo? | marcoszorrilla | La Taberna | 27 | 19-07-2011 00:39:14 |
leyendo tabla en excel | solarin | Conexión con bases de datos | 3 | 25-01-2011 23:41:05 |
Leyendo Multiples Puertos Seriales o USB | ASAPLTDA | Varios | 0 | 09-03-2009 21:18:25 |
Generar Botones leyendo datos de una tabla | fenixjes | Conexión con bases de datos | 5 | 11-10-2007 16:29:59 |
Problema al actualizar Excel 2000 a Excel XP | victork_py | Servers | 1 | 06-08-2004 19:20:41 |
|