Importing large quantities of records in MySQL DB

[Allison]

I have a problem importing data from text files to large (70 MB) in my db in MySQL. The error I get is very generic "trappable error occurred in an external object".!! I noticed that part of about 40,000 records and then terminate the process. What do you advise me to do? It would be impossible to ensure that the procedure reads from a particular record to another, and then read the last record to another record and so on? I hope that I explained. So scholars, please help me...

[Mecurtis]

Actually, it is not enough to understand what exactly are you having the problem. It would be better to troubleshoot for us, if you post the error message that you are getting along with the coding. There are chances that you might be missing something, that can be checked after seeing your code. If you are looking for some solutions, I would like to recommend you to post your coding snippet. I am sure that someone from our side will definitely help you.

[Allison]

To be precise, the error is as follows:

Active Server Pages error 'ASP 0115'
Unexpected error
A trappable error (E06D7363) occurred in an external object. The script can not continue running.

Here is the script :

<%
  Dim con, fs, objfile, objFileTextStream, i, strSQL, file
  Dim strLine, strLine1, strValue1, strValue2, strValue3, strValue4, strValue5, strValue6, strValue7

 September fs = Server.CreateObject ("Scripting.FileSystemObject")

 file = Server.MapPath ("/ public / myfile.txt")

 September objfile fs.GetFile = (file)

 September objFileTextStream objFile.OpenAsTextStream = (1)

 Do While objFileTextStream.AtEndOfStream <> True
    strLine = objFileTextStream.ReadLine
    strLine1 = split (strLine ,"|")
    for i = 0 To UBound (strLine1)
      If i = 0 Then
        strValue1 = Trim (strLine1 (i))
      ElseIf i = 1 Then
        strValue2 = Trim (strLine1 (i))
      ElseIf i = 2 Then
        strValue3 = Trim (strLine1 (i))
      ElseIf i = 3 Then
        strValue4 = Trim (strLine1 (i))
      ElseIf i = 4 Then
        strValue5 = Trim (strLine1 (i))
      ElseIf i = 5 then
        strValue6 = Trim (strLine1 (i))
      ElseIf i = 6 then
        strValue7 = Trim (strLine1 (i))
      End If
    Next


    strSQL = "INSERT INTO table (value1, value2, value3, value3, value4, Value5, Value6, Value7) Values ('" & strValue1 & "', '" & strValue2 & "', '" & strValue3 & "', '" & strValue4 &"',' "& strValue5 &"','"& strValue6 &"','"& strValue7 &" '"

    con.Execute strSQL
  Loop

  objFileTextStream.Close
  September objFileTextStream = Nothing
  September fs = Nothing
 %>

[pancham]

At the very least missing a parenthesis at the end of SQL. You would try the following code:

for i = 0 To UBound (strLine1)
      If i = 0 Then
        strValore1 = Trim (strLine1 (i))
      ElseIf i = 1 Then
        strValore2 = Trim (strLine1 (i))
      ElseIf i = 2 Then
        strValore3 = Trim (strLine1 (i))
      ElseIf i = 3 Then
        strValore4 = Trim (strLine1 (i))
      ElseIf i = 4 Then
        strValore5 = Trim (strLine1 (i))
      ElseIf i = 5 then
        strValore6 = Trim (strLine1 (i))
      ElseIf i = 6 then
        strValore7 = Trim (strLine1 (i))
      End If
    Next

I feel useless, instead you should try this:

strValore1 = Trim (strLine1 (0))
 strValore2 = Trim (strLine1 (1))
 strValore3 = Trim (strLine1 (2))
 strValore4 = Trim (strLine1 (3))
 strValore5 = Trim (strLine1 (4))
 strValore6 = Trim (strLine1 (5))
 strValore7 = Trim (strLine1 (6))