2012-07-02 70 views
1

我正在创建一个两步的Web表单。第一步是应用程序的初始创建(如申请某些内容,而不是程序),第二步是允许用户修改/重新提交此应用程序。将数据库中的数据加载到Web表单中

来自原始应用程序提交的数据正在传递到数据库,并且按预期工作。当用户去更新他们的应用程序时,数据库中的数据应该被加载到在线表单中,以便进行编辑/审查。目前,我知道数据正在被引入到应用程序变量中,但表单并未显示正在加载的数据。

该表格包含文本框以及复选框列表。

我什么都不知道回传,我只是创建了本地网络表单,在那里我可以创建对象(如user对象,但这是不可能的,因为一个编译前错误。

语言我现在用的是VB.NET

任何援助,将不胜感激

编辑:代码

什么开始了连接:

Protected Sub btnLoad_Click(sender As Object, e As System.EventArgs) Handles btnLoad.Click 

    business_name = txtName.Text 

    dbConnect() 
    dbGet() 
    dbDisconnect() 
End Sub 

数据库连接字符串:

回发触发:

Private Sub PostBackTrigger() 
    'Throw New NotImplementedException 
    generalReader = general_read.ExecuteReader 
    While generalReader.Read 
     AppID = generalReader.GetValue(generalReader.GetOrdinal("ApplicationID")) 
     business_name = generalReader.GetValue(generalReader.GetOrdinal("Business_Name")) 
     website = generalReader.GetValue(generalReader.GetOrdinal("Website")) 
     description = generalReader.GetValue(generalReader.GetOrdinal("Description")) 
     contact = generalReader.GetValue(generalReader.GetOrdinal("Contact")) 
     enter_title = generalReader.GetValue(generalReader.GetOrdinal("Title")) 
     phone = generalReader.GetValue(generalReader.GetOrdinal("Phone")) 
     e_mail = generalReader.GetValue(generalReader.GetOrdinal("E_Mail")) 
     street = generalReader.GetValue(generalReader.GetOrdinal("Street")) 
     num_employees = generalReader.GetValue(generalReader.GetOrdinal("Num_Employees")) 
     own_lease = generalReader.GetValue(generalReader.GetOrdinal("Own_Lease")) 
     certs = generalReader.GetValue(generalReader.GetOrdinal("Certifications")) 
     category = generalReader.GetValue(generalReader.GetOrdinal("Business_Category")) 
    End While 
    generalReader.Close() 

    energyReader = energy_read.ExecuteReader 
    While energyReader.Read 
     track_usage = energyReader.GetValue(energyReader.GetOrdinal("usage")) 
     develop_strategy = energyReader.GetValue(energyReader.GetOrdinal("policy")) 
     perform_audit = energyReader.GetValue(energyReader.GetOrdinal("audit")) 
     replace_bulbs = energyReader.GetValue(energyReader.GetOrdinal("lighting")) 
     reduce_lighting = energyReader.GetValue(energyReader.GetOrdinal("over_lighting")) 
     lighting_controls = energyReader.GetValue(energyReader.GetOrdinal("controls")) 
     not_in_use_policy = energyReader.GetValue(energyReader.GetOrdinal("turn_off")) 
     energy_star = energyReader.GetValue(energyReader.GetOrdinal("energy_star")) 
     weatherize = energyReader.GetValue(energyReader.GetOrdinal("weatherize")) 
     program_thermo = energyReader.GetValue(energyReader.GetOrdinal("thermostat")) 
     natural_light = energyReader.GetValue(energyReader.GetOrdinal("natural_light")) 
     air_quality = energyReader.GetValue(energyReader.GetOrdinal("air")) 
     site_assessment = energyReader.GetValue(energyReader.GetOrdinal("renewable_assessment")) 
     renewable_power = energyReader.GetValue(energyReader.GetOrdinal("on_site_renewable")) 
     HVAC = energyReader.GetValue(energyReader.GetOrdinal("HVAC")) 
     renewable_energy = energyReader.GetValue(energyReader.GetOrdinal("renewable_power")) 
     energy_programs = energyReader.GetValue(energyReader.GetOrdinal("efficient_enroll")) 
     energy_certification = energyReader.GetValue(energyReader.GetOrdinal("efficient_attain")) 
     energy_other = energyReader.GetValue(energyReader.GetOrdinal("other")) 
    End While 
    energyReader.Close() 

    purchasingReader = purchasing_read.ExecuteReader 
    While purchasingReader.Read 
     sustainable_policy = purchasingReader.GetValue(purchasingReader.GetOrdinal("policy")) 
     office_paper = purchasingReader.GetValue(purchasingReader.GetOrdinal("paper")) 
     maintenance = purchasingReader.GetValue(purchasingReader.GetOrdinal("maintenance")) 
     ink_toner_purchase = purchasingReader.GetValue(purchasingReader.GetOrdinal("ink_toner")) 
     food_container = purchasingReader.GetValue(purchasingReader.GetOrdinal("food")) 
     office_stuff = purchasingReader.GetValue(purchasingReader.GetOrdinal("used_stuffs")) 
     unwanted_stuff = purchasingReader.GetValue(purchasingReader.GetOrdinal("unwanted_stuffs")) 
     green_vendors = purchasingReader.GetValue(purchasingReader.GetOrdinal("venders")) 
     green_businesses = purchasingReader.GetValue(purchasingReader.GetOrdinal("purchase_venders")) 
     purchasing_other = purchasingReader.GetValue(purchasingReader.GetOrdinal("other")) 
    End While 
    purchasingReader.Close() 

    recyclingReader = recycling_read.ExecuteReader 
    While recyclingReader.Read 
     recycle_stuff = recyclingReader.GetValue(recyclingReader.GetOrdinal("law")) 
     recycle_batteries = recyclingReader.GetValue(recyclingReader.GetOrdinal("batteries")) 
     clean_sweep = recyclingReader.GetValue(recyclingReader.GetOrdinal("sweep")) 
     recycle_banned = recyclingReader.GetValue(recyclingReader.GetOrdinal("non_landfill")) 
     recycle_pharma = recyclingReader.GetValue(recyclingReader.GetOrdinal("pharma")) 
     recycle_electronics = recyclingReader.GetValue(recyclingReader.GetOrdinal("e_waste")) 
     recycle_package = recyclingReader.GetValue(recyclingReader.GetOrdinal("packaging")) 
     ink_toner_recycle = recyclingReader.GetValue(recyclingReader.GetOrdinal("toner_ink")) 
     compost = recyclingReader.GetValue(recyclingReader.GetOrdinal("compost")) 
     recycling_other = recyclingReader.GetValue(recyclingReader.GetOrdinal("other")) 
    End While 
    recyclingReader.Close() 

    transportationReader = transportation_read.ExecuteReader 
    While transportationReader.Read 
     teleconference = transportationReader.GetValue(transportationReader.GetOrdinal("teleconference")) 
     non_idling = transportationReader.GetValue(transportationReader.GetOrdinal("non_idling")) 
     flexible_schedule = transportationReader.GetValue(transportationReader.GetOrdinal("flex")) 
     bike_shower = transportationReader.GetValue(transportationReader.GetOrdinal("bike_shower")) 
     space_buy_out = transportationReader.GetValue(transportationReader.GetOrdinal("public_trans")) 
     preferred_parking = transportationReader.GetValue(transportationReader.GetOrdinal("carpool_hybrid")) 
     regular_tune_up = transportationReader.GetValue(transportationReader.GetOrdinal("tune_ups")) 
     hybrid_alternative = transportationReader.GetValue(transportationReader.GetOrdinal("hybrid_alt")) 
     bus_bike_route = transportationReader.GetValue(transportationReader.GetOrdinal("bus_bike")) 
     fuel_efficiencies = transportationReader.GetValue(transportationReader.GetOrdinal("fuel_efficient")) 
     grease_oil = transportationReader.GetValue(transportationReader.GetOrdinal("grease")) 
     transportation_other = transportationReader.GetValue(transportationReader.GetOrdinal("other")) 
    End While 
    transportationReader.Close() 

    socialReader = social_read.ExecuteReader 
    While socialReader.Read 
     healthy_environment = socialReader.GetValue(socialReader.GetOrdinal("health")) 
     prevention_programs = socialReader.GetValue(socialReader.GetOrdinal("prevention")) 
     volunteer = socialReader.GetValue(socialReader.GetOrdinal("volunteer")) 
     carbon_footprint = socialReader.GetValue(socialReader.GetOrdinal("carbon")) 
     charitable_organizations = socialReader.GetValue(socialReader.GetOrdinal("charity")) 
     social_other = socialReader.GetValue(socialReader.GetOrdinal("other")) 
    End While 
    socialReader.Close() 

    wasteReader = waste_read.ExecuteReader 
    While wasteReader.Read 
     printing = wasteReader.GetValue(wasteReader.GetOrdinal("paper")) 
     bulk_duplicate_mailing = wasteReader.GetValue(wasteReader.GetOrdinal("mail")) 
     printed_comms = wasteReader.GetValue(wasteReader.GetOrdinal("marketing")) 
     packaging = wasteReader.GetValue(wasteReader.GetOrdinal("operations")) 
     bags_containers = wasteReader.GetValue(wasteReader.GetOrdinal("containers")) 
     track_waste = wasteReader.GetValue(wasteReader.GetOrdinal("reduction")) 
     resuable_products = wasteReader.GetValue(wasteReader.GetOrdinal("products")) 
     waste_other = wasteReader.GetValue(wasteReader.GetOrdinal("other")) 
    End While 
    wasteReader.Close() 

    waterReader = water_read.ExecuteReader 
    While waterReader.Read 
     aerators_shut_off = waterReader.GetValue(waterReader.GetOrdinal("aerators")) 
     low_flow = waterReader.GetValue(waterReader.GetOrdinal("devices")) 
     pre_rinse = waterReader.GetValue(waterReader.GetOrdinal("pre_rinse")) 
     leaks = waterReader.GetValue(waterReader.GetOrdinal("leaks")) 
     landscaping = waterReader.GetValue(waterReader.GetOrdinal("vegitation")) 
     broom = waterReader.GetValue(waterReader.GetOrdinal("broom")) 
     sink_water = waterReader.GetValue(waterReader.GetOrdinal("sink_water")) 
     storm_water = waterReader.GetValue(waterReader.GetOrdinal("storm_water")) 
     water_assessment = waterReader.GetValue(waterReader.GetOrdinal("water_assessment")) 
     irrigation = waterReader.GetValue(waterReader.GetOrdinal("irrigation")) 
     fertilize = waterReader.GetValue(waterReader.GetOrdinal("fertilize")) 
     ice_melt = waterReader.GetValue(waterReader.GetOrdinal("ice_melt")) 
     water_other = waterReader.GetValue(waterReader.GetOrdinal("other")) 
    End While 
    waterReader.Close() 
End Sub 

我使用Business对象试过,但给我一个错误在浏览器大约是预编译的,我也尝试过上面看到的,我能描述的最好的是回传,但我觉得我错过了一些东西。

编辑:新增formLoad()子

Public Sub form_load() 
    txtName.Text = business_name 
    txtWebsite.Text = website 
    txtDescription.Text = description 
    txtContact.Text = contact 
    txtTitle.Text = enter_title 
    txtPhone.Text = phone 
    txtEmail.Text = e_mail 
    txtMailing.Text = street 
    txtEmployees.Text = num_employees 
    ddlOwnRent.SelectedValue = own_lease 
    txtCerts.Text = certs 

    Select Case category 
     Case "Amusement & Entertainment" 
      rblCategory.SelectedValue = "Amusement & Entertainment" 
     Case "Apartments" 
      rblCategory.SelectedValue = "Apartments" 
     Case "Automotive" 
      rblCategory.SelectedValue = "Automotive" 
     Case "Computer, Internet, Telecom" 
      rblCategory.SelectedValue = "Computer, Internet, Telecom" 
     Case "Construction" 
      rblCategory.SelectedValue = "Construction" 
     Case "Diversified" 
      rblCategory.SelectedValue = "Diversified" 
     Case "Financial: banks & credit unions" 
      rblCategory.SelectedValue = "Financial: banks & credit unions" 
     Case "Health Care" 
      rblCategory.SelectedValue = "Health Care" 
     Case "Hotel/Motel" 
      rblCategory.SelectedValue = "Hotel/Motel" 
     Case "Insurance" 
      rblCategory.SelectedValue = "Insurance" 
     Case "Manufacturing" 
      rblCategory.SelectedValue = "Manufacturing" 
     Case "Professional" 
      rblCategory.SelectedValue = "Professional" 
     Case "Public Utilites" 
      rblCategory.SelectedValue = "Public Utilites" 
     Case "Publishers/Printers" 
      rblCategory.SelectedValue = "Publishers/Printers" 
     Case "Radio/Television" 
      rblCategory.SelectedValue = "Radio/Television" 
     Case "Real Estate" 
      rblCategory.SelectedValue = "Real Estate" 
     Case "Retail" 
      rblCategory.SelectedValue = "Retail" 
     Case "Services" 
      rblCategory.SelectedValue = "Services" 
     Case "Transportation" 
      rblCategory.SelectedValue = "Transportation" 
     Case "Wholesale/Distribution" 
      rblCategory.SelectedValue = "Wholesale/Distribution" 
     Case Else 
      rblCategory.SelectedValue = "Other" 
      txtOther.Visible = True 
      txtOther.Text = category 
    End Select 

    cblEnergy.Items.FindByValue(1).Selected = track_usage 
    cblEnergy.Items.FindByValue(2).Selected = develop_strategy 
    cblEnergy.Items.FindByValue(3).Selected = perform_audit 
    cblEnergy.Items.FindByValue(4).Selected = replace_bulbs 
    cblEnergy.Items.FindByValue(5).Selected = reduce_lighting 
    cblEnergy.Items.FindByValue(6).Selected = lighting_controls 
    cblEnergy.Items.FindByValue(7).Selected = not_in_use_policy 
    cblEnergy.Items.FindByValue(8).Selected = energy_star 
    cblEnergy.Items.FindByValue(9).Selected = weatherize 
    cblEnergy.Items.FindByValue(10).Selected = program_thermo 
    cblEnergy.Items.FindByValue(11).Selected = natural_light 
    cblEnergy.Items.FindByValue(12).Selected = air_quality 
    cblEnergy.Items.FindByValue(13).Selected = site_assessment 
    cblEnergy.Items.FindByValue(14).Selected = renewable_power 
    cblEnergy.Items.FindByValue(15).Selected = HVAC 
    cblEnergy.Items.FindByValue(16).Selected = renewable_energy 
    cblEnergy.Items.FindByValue(17).Selected = energy_programs 
    cblEnergy.Items.FindByValue(18).Selected = energy_certification 
    cblEnergy.Items.FindByValue(19).Selected = energy_other 

    cblPurchasing.Items.FindByValue(1).Selected = sustainable_policy 
    cblPurchasing.Items.FindByValue(2).Selected = office_paper 
    cblPurchasing.Items.FindByValue(3).Selected = maintenance 
    cblPurchasing.Items.FindByValue(4).Selected = ink_toner_purchase 
    cblPurchasing.Items.FindByValue(5).Selected = food_container 
    cblPurchasing.Items.FindByValue(6).Selected = office_stuff 
    cblPurchasing.Items.FindByValue(7).Selected = unwanted_stuff 
    cblPurchasing.Items.FindByValue(8).Selected = green_vendors 
    cblPurchasing.Items.FindByValue(9).Selected = green_businesses 
    cblPurchasing.Items.FindByValue(10).Selected = purchasing_other 

    cblRecycling.Items.FindByValue(1).Selected = recycle_stuff 
    cblRecycling.Items.FindByValue(2).Selected = recycle_batteries 
    cblRecycling.Items.FindByValue(3).Selected = clean_sweep 
    cblRecycling.Items.FindByValue(4).Selected = recycle_banned 
    cblRecycling.Items.FindByValue(5).Selected = recycle_pharma 
    cblRecycling.Items.FindByValue(6).Selected = recycle_electronics 
    cblRecycling.Items.FindByValue(7).Selected = recycle_package 
    cblRecycling.Items.FindByValue(8).Selected = ink_toner_recycle 
    cblRecycling.Items.FindByValue(9).Selected = compost 
    cblRecycling.Items.FindByValue(10).Selected = recycling_other 

    cblTransportation.Items.FindByValue(1).Selected = teleconference 
    cblTransportation.Items.FindByValue(2).Selected = non_idling 
    cblTransportation.Items.FindByValue(3).Selected = flexible_schedule 
    cblTransportation.Items.FindByValue(4).Selected = bike_shower 
    cblTransportation.Items.FindByValue(5).Selected = space_buy_out 
    cblTransportation.Items.FindByValue(6).Selected = preferred_parking 
    cblTransportation.Items.FindByValue(7).Selected = regular_tune_up 
    cblTransportation.Items.FindByValue(8).Selected = hybrid_alternative 
    cblTransportation.Items.FindByValue(9).Selected = bus_bike_route 
    cblTransportation.Items.FindByValue(10).Selected = fuel_efficiencies 
    cblTransportation.Items.FindByValue(11).Selected = grease_oil 
    cblTransportation.Items.FindByValue(12).Selected = transportation_other 

    cblSocial.Items.FindByValue(1).Selected = healthy_environment 
    cblSocial.Items.FindByValue(2).Selected = prevention_programs 
    cblSocial.Items.FindByValue(3).Selected = volunteer 
    cblSocial.Items.FindByValue(4).Selected = carbon_footprint 
    cblSocial.Items.FindByValue(5).Selected = charitable_organizations 
    cblSocial.Items.FindByValue(6).Selected = social_other 

    cblWaste.Items.FindByValue(1).Selected = printing 
    cblWaste.Items.FindByValue(2).Selected = bulk_duplicate_mailing 
    cblWaste.Items.FindByValue(3).Selected = printed_comms 
    cblWaste.Items.FindByValue(4).Selected = packaging 
    cblWaste.Items.FindByValue(5).Selected = bags_containers 
    cblWaste.Items.FindByValue(6).Selected = track_waste 
    cblWaste.Items.FindByValue(7).Selected = resuable_products 
    cblWaste.Items.FindByValue(8).Selected = waste_other 

    cblWater.Items.FindByValue(1).Selected = aerators_shut_off 
    cblWater.Items.FindByValue(2).Selected = low_flow 
    cblWater.Items.FindByValue(3).Selected = pre_rinse 
    cblWater.Items.FindByValue(4).Selected = leaks 
    cblWater.Items.FindByValue(5).Selected = landscaping 
    cblWater.Items.FindByValue(6).Selected = broom 
    cblWater.Items.FindByValue(7).Selected = sink_water 
    cblWater.Items.FindByValue(8).Selected = storm_water 
    cblWater.Items.FindByValue(9).Selected = water_assessment 
    cblWater.Items.FindByValue(10).Selected = irrigation 
    cblWater.Items.FindByValue(11).Selected = fertilize 
    cblWater.Items.FindByValue(12).Selected = ice_melt 
    cblWater.Items.FindByValue(13).Selected = water_other 
End Sub 
+1

您的回覆缺少代码。 – Oybek

+0

@Oybek你想看什么代码? – Kruug

+0

您抓取数据的方式,绑定到Repeater/GridView/ListView(列表控件标记)的代码,以及到编辑页面的机制。总之任何代码都不能做它应该做的事情。 [你有什么尝试?](http://whathaveyoutried.com/?) – Oybek

回答

0

的AppID未填充,直到调用PostBackTrigger()

Public Sub dbGet() 
    general_read = New SqlCommand("SELECT * FROM general WHERE Business_Name = '" & business_name & "';", connection) 

    GetGeneralData() 

    energy_read = New SqlCommand("SELECT * FROM energy WHERE ApplicationID = '" & AppID & "';", connection) 
    purchasing_read = New SqlCommand("SELECT * FROM purchasing WHERE ApplicationID = '" & AppID & "';", connection) 
    recycling_read = New SqlCommand("SELECT * FROM recycling WHERE ApplicationID = '" & AppID & "';", connection) 
    transportation_read = New SqlCommand("SELECT * FROM transportation WHERE ApplicationID = '" & AppID & "';", connection) 
    social_read = New SqlCommand("SELECT * FROM social WHERE ApplicationID = '" & AppID & "';", connection) 
    waste_read = New SqlCommand("SELECT * FROM waste WHERE ApplicationID = '" & AppID & "';", connection) 
    water_read = New SqlCommand("SELECT * FROM water WHERE ApplicationID = '" & AppID & "';", connection) 

    PostBackTrigger() 
    form_load() 

End Sub 

新功能,让您的通用数据首先

Private Sub GetGeneralData() 
    generalReader = general_read.ExecuteReader 
    While generalReader.Read 
     AppID = generalReader.GetValue(generalReader.GetOrdinal("ApplicationID")) 
     business_name = generalReader.GetValue(generalReader.GetOrdinal("Business_Name")) 
     website = generalReader.GetValue(generalReader.GetOrdinal("Website")) 
     description = generalReader.GetValue(generalReader.GetOrdinal("Description")) 
     contact = generalReader.GetValue(generalReader.GetOrdinal("Contact")) 
     enter_title = generalReader.GetValue(generalReader.GetOrdinal("Title")) 
     phone = generalReader.GetValue(generalReader.GetOrdinal("Phone")) 
     e_mail = generalReader.GetValue(generalReader.GetOrdinal("E_Mail")) 
     street = generalReader.GetValue(generalReader.GetOrdinal("Street")) 
     num_employees = generalReader.GetValue(generalReader.GetOrdinal("Num_Employees")) 
     own_lease = generalReader.GetValue(generalReader.GetOrdinal("Own_Lease")) 
     certs = generalReader.GetValue(generalReader.GetOrdinal("Certifications")) 
     category = generalReader.GetValue(generalReader.GetOrdinal("Business_Category")) 
    End While 
    generalReader.Close() 

End Sub 

使用这些变量,这个应用程序将会非常沉重。你真的应该在阅读的同时设置你的领域。

Private Sub GetGeneralData() 
    generalReader = general_read.ExecuteReader 
    While generalReader.Read 
     AppID = generalReader.GetValue(generalReader.GetOrdinal("ApplicationID")) 
     txtName.Text = generalReader.GetValue(generalReader.GetOrdinal("Business_Name")) 
     txtWebsite.Text = generalReader.GetValue(generalReader.GetOrdinal("Website")) 
     txtDescription.Text = generalReader.GetValue(generalReader.GetOrdinal("Description")) 
     txtContact.Text = generalReader.GetValue(generalReader.GetOrdinal("Contact")) 
     txtTitle.Text = generalReader.GetValue(generalReader.GetOrdinal("Title")) 
     txtPhone.Text = generalReader.GetValue(generalReader.GetOrdinal("Phone")) 
     txtEmail.Text = generalReader.GetValue(generalReader.GetOrdinal("E_Mail")) 
     txtMailing.Text = generalReader.GetValue(generalReader.GetOrdinal("Street")) 
     txtEmployees.Text = generalReader.GetValue(generalReader.GetOrdinal("Num_Employees")) 
     ddlOwnRent.SelectedValue = generalReader.GetValue(generalReader.GetOrdinal("Own_Lease")) 
     txtCerts.Text = generalReader.GetValue(generalReader.GetOrdinal("Certifications")) 
     category = generalReader.GetValue(generalReader.GetOrdinal("Business_Category")) 
    End While 
    generalReader.Close() 

End Sub 
相关问题