ARQUIVO CSV

AMELORP 28/09/2017 08:06:14
#476829
Citação:

:
:
Não funcionou nem com o driver ODBC?
Deu não...se eu te passar o arquivo será que poderia ver pra mim ? Agradeço desde já




segue o modelo do arquivo...

[Ô]CO_MATRICULA_ESTUDANTE[Ô];[Ô]DS_IDENTIFICADOR_TURMA[Ô];[Ô]DT_INICIO_CURSO[Ô];[Ô]DT_EXPIRACAO_PRIMEIRA_CHAMADA[Ô];[Ô]NO_ALUNO[Ô];[Ô]NU_NIS_PIS[Ô];[Ô]NU_CPF[Ô];[Ô]NU_TELEFONE[Ô];[Ô]NU_TELEFONE_CELULAR[Ô];[Ô]DS_EMAIL[Ô];[Ô]DT_CADASTRO[Ô];[Ô]CO_TIPO_CURSO[Ô];[Ô]NO_UNIDADE_DEMANDANTE[Ô];[Ô]CO_CATEGORIA[Ô];[Ô]CO_GRUPO[Ô];[Ô]STATUS_OFERTA[Ô];[Ô]CO_PESSOA_JURIDICA[Ô];[Ô]CO_UNIDADE_OFERTANTE[Ô];[Ô]NO_UNIDADE_OFERTANTE[Ô];[Ô]ST_PRIORITARIA[Ô];[Ô]PRE_MATRICULA_EXPIRADA[Ô];[Ô]DS_TIPO_SITUACAO_MATRICULA[Ô];[Ô]CO_TIPO_SITUACAO_MATRICULA[Ô];[Ô]CS_ITINERARIO[Ô];[Ô]CS_APRENDIZAGEM[Ô];[Ô]TOTAL_ITINERARIO[Ô];[Ô]CO_UNIDADE_ENSINO[Ô];[Ô]CO_CURSO[Ô]
[Ô]6159856[Ô];[Ô]TéCNICO EM CONTABILIDADE N1/2017[Ô];[Ô]28/08/2017[Ô];[Ô]07/09/2017[Ô];[Ô]DENEMESIO WERLEM GABRIEL DOS SANTOS[Ô];[Ô][Ô];[Ô]04071872357[Ô];[Ô]8587720921[Ô];[Ô][Ô];[Ô][Ô];[Ô]2017-09-04 14:14:51.912344[Ô];[Ô]1[Ô];[Ô]SEFOR PV[Ô];[Ô]3[Ô];[Ô]2[Ô];[Ô]1[Ô];[Ô]34232[Ô];[Ô]42916[Ô];[Ô]FUNDAÇÃO UNIVERSIDADE ESTADUAL DO CEARÁ - FUNECE[Ô];[Ô][Ô];[Ô][Ô];[Ô]EM_CURSO[Ô];[Ô]1[Ô];[Ô]N[Ô];[Ô]N[Ô];[Ô]0[Ô];[Ô]42916[Ô];[Ô]53[Ô]
[Ô]6159855[Ô];[Ô]TéCNICO EM CONTABILIDADE N1/2017[Ô];[Ô]28/08/2017[Ô];[Ô]07/09/2017[Ô];[Ô]ANTONIO GUSTAVO SOUSA SALES[Ô];[Ô][Ô];[Ô]06733033305[Ô];[Ô]8585581250[Ô];[Ô]8587138356[Ô];[Ô][Ô];[Ô]2017-09-04 14:12:15.254149[Ô];[Ô]1[Ô];[Ô]SEFOR PV[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]34232[Ô];[Ô]42916[Ô];[Ô]FUNDAÇÃO UNIVERSIDADE ESTADUAL DO CEARÁ - FUNECE[Ô];[Ô][Ô];[Ô][Ô];[Ô]NÃO_COMPARECEU[Ô];[Ô]13[Ô];[Ô]N[Ô];[Ô]N[Ô];[Ô]0[Ô];[Ô]42916[Ô];[Ô]53[Ô]
[Ô]6159853[Ô];[Ô]TéCNICO EM CONTABILIDADE N1/2017[Ô];[Ô]28/08/2017[Ô];[Ô]07/09/2017[Ô];[Ô]LETICIA ALVES DE LEMOS CRUZ[Ô];[Ô][Ô];[Ô]61686343396[Ô];[Ô]8585953646[Ô];[Ô]8587779035[Ô];[Ô][Ô];[Ô]2017-09-04 14:10:44.80275[Ô];[Ô]1[Ô];[Ô]SEFOR PV[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]34232[Ô];[Ô]42916[Ô];[Ô]FUNDAÇÃO UNIVERSIDADE ESTADUAL DO CEARÁ - FUNECE[Ô];[Ô][Ô];[Ô][Ô];[Ô]NÃO_COMPARECEU[Ô];[Ô]13[Ô];[Ô]N[Ô];[Ô]N[Ô];[Ô]0[Ô];[Ô]42916[Ô];[Ô]53[Ô]
[Ô]6159852[Ô];[Ô]TéCNICO EM CONTABILIDADE N1/2017[Ô];[Ô]28/08/2017[Ô];[Ô]07/09/2017[Ô];[Ô]YASMIM DA SILVA XAVIER[Ô];[Ô][Ô];[Ô]61982339365[Ô];[Ô]8589564301[Ô];[Ô][Ô];[Ô][Ô];[Ô]2017-09-04 14:09:25.162716[Ô];[Ô]1[Ô];[Ô]SEFOR PV[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]34232[Ô];[Ô]42916[Ô];[Ô]FUNDAÇÃO UNIVERSIDADE ESTADUAL DO CEARÁ - FUNECE[Ô];[Ô][Ô];[Ô][Ô];[Ô]NÃO_COMPARECEU[Ô];[Ô]13[Ô];[Ô]N[Ô];[Ô]N[Ô];[Ô]0[Ô];[Ô]42916[Ô];[Ô]53[Ô]
[Ô]6159850[Ô];[Ô]TéCNICO EM CONTABILIDADE N1/2017[Ô];[Ô]28/08/2017[Ô];[Ô]07/09/2017[Ô];[Ô]LARISSA SILVA VIEIRA[Ô];[Ô][Ô];[Ô]07318239317[Ô];[Ô]8588107039[Ô];[Ô][Ô];[Ô][Ô];[Ô]2017-09-04 14:05:01.050664[Ô];[Ô]1[Ô];[Ô]SEFOR PV[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]34232[Ô];[Ô]42916[Ô];[Ô]FUNDAÇÃO UNIVERSIDADE ESTADUAL DO CEARÁ - FUNECE[Ô];[Ô][Ô];[Ô][Ô];[Ô]NÃO_COMPARECEU[Ô];[Ô]13[Ô];[Ô]N[Ô];[Ô]N[Ô];[Ô]0[Ô];[Ô]42916[Ô];[Ô]53[Ô]
[Ô]6159847[Ô];[Ô]TéCNICO EM CONTABILIDADE N1/2017[Ô];[Ô]28/08/2017[Ô];[Ô]07/09/2017[Ô];[Ô]GABRIEL MENEZES LIMA[Ô];[Ô][Ô];[Ô]05520248303[Ô];[Ô]8585000108[Ô];[Ô][Ô];[Ô][Ô];[Ô]2017-09-04 14:02:37.003684[Ô];[Ô]1[Ô];[Ô]SEFOR PV[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]1[Ô];[Ô]34232[Ô];[Ô]42916[Ô];[Ô]FUNDAÇÃO UNIVERSIDADE ESTADUAL DO CEARÁ - FUNECE[Ô];[Ô][Ô];[Ô][Ô];[Ô]NÃO_COMPARECEU[Ô];[Ô]13[Ô];[Ô]N[Ô];[Ô]N[Ô];[Ô]0[Ô];[Ô]42916[Ô];[Ô]53[Ô]
KERPLUNK 28/09/2017 08:41:11
#476830
Certo e como você tentou?
AMELORP 28/09/2017 08:44:48
#476831
Citação:

:
Certo e como você tentou?


das duas formas:

Dim strCSV As String, strSQL As String
Dim registro As New ADODB.Recordset

strCSV = [Ô]C:\TESTE\[Ô]
Set objConn = New ADODB.Connection
With objConn
.CursorLocation = adUseClient
[ô].ConnectionString = [Ô]Driver={Microsoft Text Driver (*.txt; *.csv)}; Initial Catalog=[Ô] & strCSV & [Ô];[Ô]
.ConnectionString = [Ô]Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=[Ô] & strCSV & [Ô];Extensions=asc,csv,tab,txt;[Ô]
.Open
End With

strSQL = [Ô]SELECT * FROM sistec.csv[Ô]
registro.Open strSQL, objConn, adOpenStatic, adLockReadOnly

Do While registro.EOF = False

List1.AddItem registro(0)

[ô]aqui so consigo trazer a primeira coluna...as demais nao....essa é a dificuldade....

registro.MoveNext
Loop



objConn.Close
KERPLUNK 28/09/2017 08:57:49
#476832
Adicione [Ô]registro[Ô] à inspeção de variáveis e verifique o conteúdo
AMELORP 28/09/2017 09:17:02
#476834
Citação:

:
Adicione [Ô]registro[Ô] à inspeção de variáveis e verifique o conteúdo



esse é o resultado:

<O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.>
KERPLUNK 28/09/2017 09:19:37
#476835
Somente [Ô]registro[Ô], ele deve ser um objeto recordset, com propriedade Fields.
AMELORP 28/09/2017 09:23:55
#476836
Citação:

:
Somente [Ô]registro[Ô], ele deve ser um objeto recordset, com propriedade Fields.




já está (veja abaixo): já estou declarando ele como tal

Dim strCSV As String, strSQL As String
Dim registro As New adodb.Recordset

strCSV = [Ô]C:\UECE\GPRO\[Ô]
Set objConn = New adodb.Connection
With objConn
.CursorLocation = adUseClient
[ô].ConnectionString = [Ô]Driver={Microsoft Text Driver (*.txt; *.csv)}; Initial Catalog=[Ô] & strCSV & [Ô];[Ô]
.ConnectionString = [Ô]Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=[Ô] & strCSV & [Ô];Extensions=asc,csv,tab,txt;[Ô]
.Open
End With

strSQL = [Ô]SELECT * FROM sistec.csv[Ô]
registro.Open strSQL, objConn, adOpenStatic, adLockReadOnly

Do While registro.EOF = False

List1.AddItem registro.Fields([Ô]CO_MATRICULA_ESTUDANTE[Ô])
List1.AddItem registro.Fields([Ô]DS_IDENTIFICADOR_TURMA[Ô])



registro.MoveNext
Loop



objConn.Close
MEYB.JULLYS 28/09/2017 17:03:20
#476844
O arquivo original antes de ser re-salvo pelo excel esta sem o carriage return (ENTER) no final de cada linha
O aquivo original esta sendo gerado por qual sistema?
AMELORP 29/09/2017 10:07:37
#476860
Citação:

:
O arquivo original antes de ser re-salvo pelo excel esta sem o carriage return (ENTER) no final de cada linha
O aquivo original esta sendo gerado por qual sistema?


é de um sistema do governo...você teria alguma sugestão ?
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar