SQL LOOP
I have this code in which I got help in by other experts in the system. This code gose to a txt file which I download everyday and for now only prints what is in the text file. What I want to accomplish is a delete all record of the table and then begin by uploading the new records one by one. Is there a way to do this. How do I structure the sql with the loop every record is split by "miamimls". Can someone please help.
<%
Const ForReading = 1
Set objFSO = CreateObject("Scripting.Fi
Set objTextFile = objFSO.OpenTextFile("c:\se
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
' Response.Write "Server name:" & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Response.write " " & arrServiceList(i)
response.flush
Next
Loop
%>
"miamimls","FL","M1172181"
---------- NEW RECORDS-------------------
"miamimls","FL","M1172187"
<%
Const ForReading = 1
Set objFSO = CreateObject("Scripting.Fi
Set objTextFile = objFSO.OpenTextFile("c:\se
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
' Response.Write "Server name:" & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Response.write " " & arrServiceList(i)
response.flush
Next
Loop
%>
"miamimls","FL","M1172181"
---------- NEW RECORDS-------------------
"miamimls","FL","M1172187"
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
didn't you want to delete all records in that table?
your questions stated:
"What I want to accomplish is a delete all record of the table..."
your questions stated:
"What I want to accomplish is a delete all record of the table..."
ASKER
yeah, so that sql you worte dose that. I don't have to fo somehting like this
objConn.Execute "Delete * From Table Where MLSCONTAINER"
objConn.Execute "Delete * From Table Where MLSCONTAINER"
Have you been able to test the code?
ASKER
no canget get it to mix wityh my code i postedl. can you please help.
ASKER
now the problem is that I only need to insert 3 colums of the data. The 3rd, 89th, 90th colum of the array in the data base to the three fields in my database posted below. How do I go about doing this.
<%
Const ForReading = 1
Set objFSO = CreateObject("Scripting.Fi
Set objTextFile = objFSO.OpenTextFile("c:\se
objConn.Execute "Delete From Table MLS_Picture_Control"
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
' Response.Write "Server name:" & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Response.write " " & arrServiceList(i)
strSQL = "INSERT INTO MLS_Picture_Control MLS_LISTING_ID, PHOTO_QUANTITY, PHOTO_URL ('" &arrServiceList(i)& "')"
objConn.Execute strSQL
response.flush
Next
objConn.Close
set objConn = nothing
%>
<%
Const ForReading = 1
Set objFSO = CreateObject("Scripting.Fi
Set objTextFile = objFSO.OpenTextFile("c:\se
objConn.Execute "Delete From Table MLS_Picture_Control"
Do Until objTextFile.AtEndOfStream
strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
' Response.Write "Server name:" & arrServiceList(0)
For i = 1 to Ubound(arrServiceList)
Response.write " " & arrServiceList(i)
strSQL = "INSERT INTO MLS_Picture_Control MLS_LISTING_ID, PHOTO_QUANTITY, PHOTO_URL ('" &arrServiceList(i)& "')"
objConn.Execute strSQL
response.flush
Next
objConn.Close
set objConn = nothing
%>
For i = 1 to Ubound(arrServiceList)
Response.write " " & arrServiceList(i)
If i = 3 or i = 89 or i = 90 Then
strSQL = "INSERT INTO MLS_Picture_Control MLS_LISTING_ID, PHOTO_QUANTITY, PHOTO_URL ('" &arrServiceList(i)& "')"
objConn.Execute strSQL
response.flush
End If
Next
Response.write " " & arrServiceList(i)
If i = 3 or i = 89 or i = 90 Then
strSQL = "INSERT INTO MLS_Picture_Control MLS_LISTING_ID, PHOTO_QUANTITY, PHOTO_URL ('" &arrServiceList(i)& "')"
objConn.Execute strSQL
response.flush
End If
Next
ASKER
objConn.Execute "Delete From Table Where...."