Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 24th, 2012  |  syntax: None  |  size: 5.33 KB  |  hits: 11  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. How to dynamically generate textbox and collect data entered by user?
  2. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  3.     Dim CRFgrid As New GridView
  4.     CRFgrid.DataSource = CRFds
  5.     CRFgrid.DataBind()
  6.  
  7.     Dim ItemCount As Integer = CRFgrid.Rows.Count
  8.             Session("Itemcount") = CRFgrid.Rows.Count
  9.  
  10.     For I = 0 To (ItemCount - 1)
  11.         Dim itemname As String = CRFgrid.Rows(0 + I).Cells(1).Text.ToString
  12.         Session("Item") = "Item" + (I + 1).ToString
  13.         Dim ItemNamelabel As New Label
  14.         Dim ItemNameBox As New TextBox
  15.  
  16.         ItemNamelabel.ID = "L" + (I + 1).ToString
  17.         Session("FU" + I.ToString) = ItemNamelabel.ID.ToString
  18.         ItemNameBox.ID = "T" + (I + 1).ToString
  19.  
  20.         ItemNamelabel.Text = "<br />" + (Session("Item").ToString) + " " + itemname + " " + "<br />"
  21.  
  22.         Me.Form.Controls.Add(ItemNamelabel)
  23.         Me.Form.Controls.Add(ItemNameBox)
  24.  
  25.  
  26.  
  27.     Next
  28. End Sub
  29.        
  30. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  31.  
  32. <html xmlns="http://www.w3.org/1999/xhtml">
  33. <head><title>
  34.  
  35.  </title></head>
  36. <body>
  37. <form method="post" action="Default.aspx" id="form1">
  38. <div class="aspNetHidden">
  39. <input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE"     value="/wEPDwUKLTI0NTA5MDI3NGRkUb8sl0uZpLbvUN/GSmHgjYxS9xqGR7rmcMBR3Ufhz4w=" />
  40. </div>
  41.        
  42. <input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="/wEWCQLf7PXOCQKM54rGBgK7q7GGCALF9vKRBQLs7+btDALs7+LtDALs797tDALs79rtDALs79btDDHrb+Vhkcph8brtCJP9//5IH57FFoImey2PApARP+k1" />
  43.  
  44. <input type="submit" name="Button1" value="LoadCRF" id="Button1" style="width:85px;" />
  45. <br />
  46. <br />
  47. <input type="submit" name="Button2" value="InsertData" id="Button2" style="width:85px;" />
  48. <br />
  49. <br />
  50.  
  51. MRN
  52. <input name="MRNtxt" type="text" id="MRNtxt" />
  53. <br />
  54. <br />
  55. <span id="L1"><br />Item1 Diagnosis <br /></span><input name="T1" type="text" id="T1" /><span id="L2"><br />Item2 Treatment Protocol <br /></span><input name="T2" type="text" id="T2" /><span id="L3"><br />Item3 Initial CSF <br /></span><input name="T3" type="text" id="T3" /><span id="L4"><br />Item4 Location <br /></span><input name="T4" type="text" id="T4" /><span id="L5"><br />Item5 Consultant <br /></span><input name="T5" type="text" id="T5" /></form>
  56.        
  57. Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
  58.  
  59.  
  60.     Dim mydb As New OleDbConnection
  61.     mydb =
  62.     New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= |datadirectory|openclinica.mdb;Persist Security Info=True")
  63.     mydb.Open()
  64.     Dim Y As Integer = Session("Itemcount")
  65.     For M = 1 To Y
  66.  
  67.         Session("FUt") = "L" + M.ToString
  68.         Session("FUDt") = "T" + M.ToString
  69.  
  70.         Dim sqlstring = "INSERT INTO [Followup] ([MRN], [FU], [FUData]) VALUES (@MRNtxt, @" + Session("FUt") + ", @" + Session("FUDt") + ");"
  71.         Dim mydbcommand As New OleDbCommand(sqlstring, mydb)
  72.         mydbcommand.Parameters.Add("@MRNtxt", OleDbType.VarChar).Value = MRNtxt.Text
  73.         mydbcommand.Parameters.Add("@" + Session("FUt"), OleDbType.VarChar).Value = Session("FUt").Text
  74.         mydbcommand.Parameters.Add("@" + Session("FUDt"), OleDbType.VarChar).Value = Session("FUDt").Text
  75.         mydbcommand.ExecuteNonQuery()
  76.  
  77.     Next
  78.  
  79.     mydb.Close()
  80. End Sub
  81.        
  82. Imports System.Data.OleDb
  83.  
  84. Partial Class _Default
  85. Inherits System.Web.UI.Page
  86.  
  87. Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  88.  
  89. End Sub
  90.  
  91. Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
  92.  
  93.  
  94.     Dim mydb As New OleDbConnection
  95.     mydb =
  96.     New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= |datadirectory|openclinica.mdb;Persist Security Info=True")
  97.     mydb.Open()
  98.     Dim part2 As Integer = Session("Itemcount")
  99.  
  100.  
  101.  
  102.     For Each C As Control In PlaceHolder1.Controls
  103.  
  104.         If TypeOf (C) Is TextBox Then
  105.  
  106.             Dim sqlstring = "insert into [followup] ([mrn], [fu], [fudata]) values (@mrntxt, @mylabel" + ", @mydata);"
  107.             Dim mydbcommand As New OleDbCommand(sqlstring, mydb)
  108.             mydbcommand.Parameters.Add("@mrntxt", OleDbType.VarChar).Value = MRNtxt.Text
  109.             mydbcommand.Parameters.Add("@mylabel", OleDbType.VarChar).Value = C.ID
  110.             mydbcommand.Parameters.Add("@mydata", OleDbType.VarChar).Value = CType(C, TextBox).Text
  111.             mydbcommand.ExecuteNonQuery()
  112.         End If
  113.     Next
  114.  
  115.     mydb.Close()
  116. End Sub
  117.  
  118.  
  119.  
  120.  
  121. Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  122.     InitializeCRF()
  123. End Sub
  124.  
  125. Private Sub InitializeCRF()
  126.     Dim CRFgrid As New GridView
  127.     CRFgrid.DataSource = CRFds
  128.     CRFgrid.DataBind()
  129.  
  130.     Dim ItemCount As Integer = CRFgrid.Rows.Count
  131.     'Response.Write(ItemCount.ToString)
  132.     Session("Itemcount") = CRFgrid.Rows.Count
  133.  
  134.     For I = 0 To (ItemCount - 1)
  135.         Dim itemname As String = CRFgrid.Rows(0 + I).Cells(1).Text.ToString
  136.         Session("Item") = "Item" + (I + 1).ToString
  137.         Dim ItemNamelabel As New Label
  138.         Dim ItemNameBox As New TextBox
  139.  
  140.         ItemNameBox.ID = itemname
  141.  
  142.         ItemNamelabel.Text = "<br/>" & itemname
  143.  
  144.         PlaceHolder1.Controls.Add(ItemNamelabel)
  145.         PlaceHolder1.Controls.Add(ItemNameBox)
  146.  
  147.  
  148.         ' Response.Write(itemname)
  149.         ' Response.Write(", ")
  150.     Next
  151.  
  152. End Sub
  153. End Class
create a new version of this paste RAW Paste Data