Forum Moderators: open
Microsoft JET Database Engine error '80040e10'
No value given for one or more required parameters.
/pablo/conversor2.asp, line 36
On my file. I do not have more ideas about what it can be. Please,someone helps.
Thanks.
the code:
<%
Dim fsoObject
Dim filObject
Dim tsObject
Dim strBuffer Dim objConn, objRS,Sql
set objConn=server.CreateObject("ADODB.Connection")
set objrs=server.CreateObject("ADODB.Recordset")
objConn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & server.MapPath ("conv.mdb")
Const ForReading = 1
Const TristateFalse = 0
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")
Set filObject = fsoObject.GetFile(server.MapPath ("arquivo.txt"))
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>
<%
do While Not tsObject.AtEndOfStream
strLine = tsObject.ReadLine
vetortexto = split(strLine, ";")'Delimitador dos campos
sql = "insert into tabela (nome,telefone,email) values ('" & vetortexto(1) & "'," & vetortexto(2) & ",'" & vetortexto(3) & "')"
Response.Write("<br>" & sql)
set objrs=objconn.execute(sql)'--Line 36
loop
%>
-Mark
