SqlDataReader and arrays

Sciercigh · Apr 28, 2012

Hello, I've got a vbscript page I'm porting over to asp.net and have been having trouble finding information on how to load the contents of the SqlDataReader into an array. In fact, I've been having trouble with arrays all together in .NET, but that's a different story. The current vbscript version of the page is using GetRows to create the array and then I'm iterating through its contents while executing a regular expression replace. If I were just going to output the contents of the SELECT I'd use the datagrid web control, but that's not what I need to do in this case As always, any help appreciated. ])ryYou will be alot better off figuring out how to do it using a repeater, datalist, or datagrid then try and do it the old school asp way. What exaclty are you trying to do?? Are you going to display the information at all??Well, in a nutshell, I'm grabbing an ASP/HTML template from several inner joined SQL2k tables and running a series of regular expression replaces to insert HTML image tags into their respective "imgSlots" and then outputting the entire template into a single .aspx file using the fso. This page is part of a larger tool meant to create physical asp template files on the fly. Of course, I haven't been working with asp.net very long, so I'm sure I'm making this more complicated than it needs to be. I've included the code below. It's mostly vbscript, with the exception of the regex syntax changes necessary for .net. Thanks for the help ... <%@ import namespace="System.Text.RegularExpressions" %>  <% 'objects dim rsQuery AS new object() 'integers dim counter AS integer dim templateImageRelSlots AS integer dim imageWidth AS integer dim imageHeight AS integer dim imageBorder AS integer 'strings dim templateCode AS string dim imageDir AS string dim imageFileName AS string dim imageAlt AS string dim imageRelLinkInd AS string dim imageRelLink AS string 'arrays dim rsArray AS string rsQuery = objConn.execute("SELECT t.templateCode,t.templateImageRelSlots,t.templateI D,i.imageDir,i.imageFileName,i.imageWidth,i.imageH eight,i.imageAlt,i.imageBorder,ir.imageRelLinkInd, ir.imageRelLink FROM wsTemplates t INNER JOIN (wsImageRels ir INNER JOIN wsImages i ON ir.imageID=i.imageID) ON t.templateID=ir.templateID WHERE t.templateID='4' AND ir.pageID='0' ORDER BY ir.imageRelSlotNum") if NOT rsQuery.EOF then rsArray = rsQuery.GetRows 'regular expression dim re AS regex = new Regex("<:imgSlot[0-9]+:>") for counter = 0 to Ubound(rsArray,2) if counter = 0 then templateCode = rsArray(0,counter) end if imageDir=rsArray(3,counter) imageFileName=rsArray(4,counter) imageWidth=rsArray(5,counter) imageHeight=rsArray(6,counter) imageAlt=rsArray(7,counter) imageBorder=rsArray(8,counter) imageRelLinkInd=rsArray(9,counter) imageRelLink=rsArray(10,counter) if imageRelLinkInd=true then templateCode = re.replace(templateCode,"<a href=http://aspmessageboard.com/archive/index.php/" & chr(34) & imageRelLink & chr(34) & "><img src=" & chr(34) & imageDir & imageFileName & chr(34) & " width=" & chr(34) & imageWidth & chr(34) & " height=" & chr(34) & imageHeight & chr(34) & " alt=" & chr(34) & imageAlt & chr(34) & " border=" & chr(34) & imageBorder & chr(34) & "></a>") else templateCode = re.replace(templateCode,"<img src=" & chr(34) & imageDir & imageFileName & chr(34) & " width=" & chr(34) & imageWidth & chr(34) & " height=" & chr(34) & imageHeight & chr(34) & " alt=" & chr(34) & imageAlt & chr(34) & " border=" & chr(34) & imageBorder & chr(34) & ">") end if next end if 'create file dim filepath,filename,fs_template,file_template filepath=Server.MapPath("../nch")&"/" filename = filepath & "2.aspx" fs_template = CreateObject("Scripting.FileSystemObject") file_template=fs_template.createTextFile(filename, true) file_template.WriteLine(templateCode) response.write("created")Ok, well I've been reading through articles and I at least found "A" way to get this to work, but I doubt it's the best way. Included below is the explanation of what I'm doing and the new code ... In a nutshell, I'm grabbing an ASP/HTML template from several inner joined SQL2k tables and running a series of regular expression replaces to insert HTML image tags into their respective "imgSlots" and then outputting the entire template into a single .aspx file using the fso. This page is part of a larger tool meant to create physical asp template files on the fly. Of course, I haven't been working with asp.net very long, so I'm sure I'm making this more complicated than it needs to be. Code to follow:  <%@ import namespace="System.Text.RegularExpressions" %> <% 'objects dim rsQuery AS new object() 'integers dim counter AS integer dim templateImageRelSlots AS integer dim imageWidth AS integer dim imageHeight AS integer dim imageBorder AS integer 'strings dim templateCode AS string dim imageDir AS string dim imageFileName AS string dim imageAlt AS string dim imageRelLinkInd AS string dim imageRelLink AS string 'regular expression dim re AS regex = new Regex("<:imgSlot[0-9]+:>") 'Create the Command object dim objCommand AS SqlCommand objCommand = new SqlCommand("SELECT t.templateCode,t.templateImageRelSlots,t.templateI D,i.imageDir,i.imageFileName,i.imageWidth,i.imageH eight,i.imageAlt,i.imageBorder,ir.imageRelLinkInd, ir.imageRelLink FROM wsTemplates t INNER JOIN (wsImageRels ir INNER JOIN wsImages i ON ir.imageID=i.imageID) ON t.templateID=ir.templateID WHERE t.templateID='4' AND ir.pageID='0' ORDER BY ir.imageRelSlotNum", objConn) 'Set an OleDbDataReader to the command's results dim objDataReader AS SqlDataReader objDataReader = objCommand.ExecuteReader(CommandBehavior.CloseConn ection) objDataReader.Read() templateCode = objDataReader("templateCode") templateImageRelSlots = objDataReader("templateImageRelSlots") while objDataReader.Read() imageDir=objDataReader("imageDir") imageFileName=objDataReader("imageFileName") imageWidth=objDataReader("imageWidth") imageHeight=objDataReader("imageHeight") imageAlt=objDataReader("imageAlt") imageBorder=objDataReader("imageBorder") imageRelLinkInd=objDataReader("imageRelLinkInd") imageRelLink=objDataReader("imageRelLink") if imageRelLinkInd=true then templateCode = re.replace(templateCode,"<a href=" & chr(34) & imageRelLink & chr(34) & "><img src=" & chr(34) & imageDir & imageFileName & chr(34) & " width=" & chr(34) & imageWidth & chr(34) & " height=" & chr(34) & imageHeight & chr(34) & " alt=" & chr(34) & imageAlt & chr(34) & " border=" & chr(34) & imageBorder & chr(34) & "></a>") else templateCode = re.replace(templateCode,"<img src=" & chr(34) & imageDir & imageFileName & chr(34) & " width=" & chr(34) & imageWidth & chr(34) & " height=" & chr(34) & imageHeight & chr(34) & " alt=" & chr(34) & imageAlt & chr(34) & " border=" & chr(34) & imageBorder & chr(34) & ">") end if end while 'close the datareader/db connection objDataReader.Close() 'create file dim filepath,filename,fs_template,file_template filepath=Server.MapPath("../nch")&"/" filename = filepath & "2.aspx" fs_template = CreateObject("Scripting.FileSystemObject") file_template=fs_template.createTextFile(filename, true) file_template.WriteLine(templateCode) response.write("created") %>

SqlDataReader and arrays

Sciercigh

New Member