pablobhz
Oct 5th 2005, 12:16 pm
Hello.
I've made a code to online insert a TXT file into an Access database(MDB) file
It is the second code like this i built. The first one, had the problem that it could convert only one time...the second time it do not work.
This one,now...it looks like will work(don't know,i got an error)...but i need the help of u all to test.
Here's the code...i am getting the error:
Microsoft JET Database Engine error '80040e14'
Syntax error in query expression 'cod;nome;telefone;email'.
/pablo/conversor2.asp, line 43
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<%
'Convertendo TXT diretamente para MDB online - By Pablo
'Declaração das variáveis
Dim fsoObject
Dim filObject
Dim tsObject
Dim strBuffer
Dim objConn, objRS,Sql
'Criando o objeto de conexão ADO
set objConn=server.CreateObject("ADODB.Connection")
'Criando o Recordset
set objrs=server.CreateObject("ADODB.Recordset")
'Informando o driver a ser usado, e o local aonde se encontra o banco de dados de destino.
objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.MapPath ("conv.mdb")
Const ForReading = 1
Const TristateFalse = 0
'Crio o objeto FSO(File System Object)
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Com o FSO, abro o arquivo txt
Set filObject = fsoObject.GetFile(server.MapPath ("arquivo.txt"))
'Abro ele para leitura,indicando os parâmetros pré-definidos
set tsObject = filObject.OpenAsTextStream(ForReading,TristateFalse)
%>
<title>Converte TXT para MDB</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'Loop para inserir na tabela
do While Not tsObject.AtEndOfStream
'Atribuo a strline, a leitura de cada linha do arquivo
strLine = tsObject.ReadLine
'Sintaxe SQL para inserir dentro do banco
sql = "insert into tabela (cod,nome,telefone,email) values ("&strLine&")" '===>This is the line where i think the error is
'Inserindo dentro do banco
set objrs=objconn.execute(sql) '===>This is the line 43
'Fazer o loop
loop
'Fim do código
%>
</body>
</html>
I've made a code to online insert a TXT file into an Access database(MDB) file
It is the second code like this i built. The first one, had the problem that it could convert only one time...the second time it do not work.
This one,now...it looks like will work(don't know,i got an error)...but i need the help of u all to test.
Here's the code...i am getting the error:
Microsoft JET Database Engine error '80040e14'
Syntax error in query expression 'cod;nome;telefone;email'.
/pablo/conversor2.asp, line 43
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<%
'Convertendo TXT diretamente para MDB online - By Pablo
'Declaração das variáveis
Dim fsoObject
Dim filObject
Dim tsObject
Dim strBuffer
Dim objConn, objRS,Sql
'Criando o objeto de conexão ADO
set objConn=server.CreateObject("ADODB.Connection")
'Criando o Recordset
set objrs=server.CreateObject("ADODB.Recordset")
'Informando o driver a ser usado, e o local aonde se encontra o banco de dados de destino.
objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.MapPath ("conv.mdb")
Const ForReading = 1
Const TristateFalse = 0
'Crio o objeto FSO(File System Object)
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
'Com o FSO, abro o arquivo txt
Set filObject = fsoObject.GetFile(server.MapPath ("arquivo.txt"))
'Abro ele para leitura,indicando os parâmetros pré-definidos
set tsObject = filObject.OpenAsTextStream(ForReading,TristateFalse)
%>
<title>Converte TXT para MDB</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<%
'Loop para inserir na tabela
do While Not tsObject.AtEndOfStream
'Atribuo a strline, a leitura de cada linha do arquivo
strLine = tsObject.ReadLine
'Sintaxe SQL para inserir dentro do banco
sql = "insert into tabela (cod,nome,telefone,email) values ("&strLine&")" '===>This is the line where i think the error is
'Inserindo dentro do banco
set objrs=objconn.execute(sql) '===>This is the line 43
'Fazer o loop
loop
'Fim do código
%>
</body>
</html>