Vraag : DataBinding: „System.Data.Common.DataRecordInternal“ bevat geen bezit met de naam „IdKeuze“.

Hello te dragen allen,

I am vrij nieuw aan dit programmeringsmateriaal zo gelieve met me.
On mijn pagina (overzichtpnnr.aspx) er zijn een searchbox die de klik gridview.
When één op de „details“ van gridview vult een detailview zou moeten openstellen en het is daar dat ik de volgende fout krijg --> DataBinding: „System.Data.Common.DataRecordInternal“ bevat geen bezit met de naam „IdKeuze“.
In „detailsview“ er een DropDownList zijn die door een lijst (tblKeuzelijst) van een accessdb wordt bevolkt (dbVerzuim) als het leeg is en toen iemand al klaar a choise het heeft opgevuld met het resultaat van een andere lijst (tblVerzuim) van het zelfde gegevensbestand maakte. Ik denk het probleem met de eigenschappen van DropDownList ligt omdat wanneer ik het in een TextBox verander het met het resultaat van tblVerzuim.

Here opvult de code van aspx page.

1 is:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:

<%@ Pagina Language= " VB " MasterPageFile= " ~/MasterControle.master " " valse " AutoEventWireup=
    CodeFile= " overzichtpnnr.aspx.vb " Inherits= " overzichtpnnr " Menu Verzuim Limburg - Beheerders van Title= het " - Overzicht op P -p-nr " %>

<%@ register Assembly= " AjaxControlToolkit " Namespace= " AjaxControlToolkit " TagPrefix= " ajaxToolkit " %>

    
    style= " doopvont-grootte Beheerders van Arial ":
        Overzicht actieve ziekteperiodes op personeelsnummer




style= " breedte 


style= " breedte 


style= " breedte 
*
*


style= " breedte 

style= " breedte 


style= " breedte 


style= " breedte 

style= " breedte 
 uit

style= " breedte 











  
















*
*







*
*
*







*
*








*
*












































                 





















 uit





























 









 


And is hier de code van vb file

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:
151:
152:
153:
154:
155:
156:
157:
158:
159:
160:
161:
162:
163:
164:
165:
166:
167:
168:
169:
170:
171:
172:
173:
174:
175:
176:
177:
178:
179:
180:
181:
182:
183:
184:
185:
186:
187:
188:
189:
190:
191:
192:
193:
194:
195:
196:
197:
198:
199:
200:
201:
202:
203:
204:
205:
206:
207:
208:
209:
210:
211:
212:
213:
214:
215:
216:
217:
218:
219:
220:
221:
222:
223:
224:
225:
226:
227:
228:
229:
230:
231:
232:
233:
234:
235:
236:
237:
238:
239:
240:
241:
242:
243:
244:
245:
246:
247:
248:
249:
250:
251:
252:
253:
254:
255:
256:
257:
258:
259:
260:
261:
262:
263:
264:
265:
266:
267:
268:
269:
270:
271:
272:
273:
274:
275:

Imports System.Data.OleDb

Gedeeltelijke Klasse overzichtpnnr
    Erft System.Web.UI.Page

    Beschermde SubBtnzoek_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) behandelt btnzoek. Klik


        Verduister strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
        Verduister conn als Nieuwe OleDbConnection (strverzuim)
        Verduister cm als Nieuwe OleDbCommand
        cm.CommandText = „SELECTEER tblverzuim. Identiteitskaart, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & „„& RTrim ([IGVRNM]) &““ & RTrim ([IGNAAM]) ALS Naam, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
                        & „VAN tblPersoneelAS400 BINNEN TREED tblverzuim toe OP tblPersoneelAS400.IGPNNR = tblverzuim.pnnr“ _
                        & „WAAR tblPersoneelAS400.IGPNNR=? EN tblverzuim.wissen=False“ _
                        & „GROEP DOOR tblverzuim. Identiteitskaart, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & „„& RTrim ([IGVRNM]) &““ & RTrim ([IGNAAM]), tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
                        & „ORDE DOOR tblverzuim.datumvan DESC, tblverzuim.datumtot DESC; “
        Schemerige p2 als Nieuwe OleDbParameter
        p2.ParameterName = „pnnr“
        p2.OleDbType = OleDbType.Double
        p2.Value = Me.txt pnnrzoek. Tekst

        cm. Verbinding = conn
        cm. Connection.Open ()
        cm. Parameters.Add (p2)
        Me.dgOverzicht.DataSource = cm.ExecuteReader ()
        Me.dgOverzicht.DataBind ()

        Me.lblok.Visible = Vals
        Me.btnexcel.Visible = Waar

        cm. Connection.Close ()
        cm. Parameters.Clear ()


    Sub van het eind

    '' Kleur DE rijen matrijs vandaag gemaakt zijn groen & rijen matrijs vandaag verlopen zijn kruisbeeld. Van Hier het woord geselecteerd op Kolom „datumingave“ uit DE Tabel „tblVerzuim“ van dbVerzuim
    Beschermde SubdgOverzicht_RowDataBound (ByVal afzender als Voorwerp, ByVal e als System.Web.UI.WebControls.GridViewRowEventArgs) behandelt dgOverzicht.RowDataBound
        Als e.Row.RowType = DataControlRowType.DataRow toen
            Schemerig groen als Koord = DataBinder.Eval (e.Row.DataItem, „datumingave“)
            Verduister kruisbeeld als Koord = DataBinder.Eval (e.Row.DataItem, „datumtot“)
            Als = vandaag toen groen
                e.Row.ForeColor = Drawing.Color.Green
            Eind als
            Als kruisbeeld = vandaag toen
                e.Row.ForeColor = Drawing.Color.Red
            Eind als
        Eind als
    Sub van het eind

    Openbare Sub dgOverzicht_SelectedIndexChanged (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) Handvatten dgOverzicht.SelectedIndexChanged

        Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
        Schemerige conn als Nieuwe OleDbConnection (strverzuim)
        Schemerig cm als Nieuwe OleDbCommand
        cm.CommandText = „UITGEZOCHTE tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, tblverzuim.pnnr, tblverzuim.wissen, tblverzuim.opmerkingen, tblverzuim. Identiteitskaart, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.useringave, tblverzuim.datumingave, tblverzuim.userannulatiecontrole, tblverzuim.datumannulatiecontrole, tblverzuim.userwissen, tblverzuim.datumwissen, tblverzuim.usergewijzigd, tblverzuim.datumgewijzigd, tblverzuim.resultaatcontrole“ _
                        & „VAN tblverzuim“ _
                        & „WAAR tblverzuim. Id=? ; “

        Schemerige p1 als Nieuwe OleDbParameter
        p1.ParameterName = „identiteitskaart“
        p1.OleDbType = OleDbType.Double
        p1.Value = C (Me.dgOverzicht.SelectedRow.FindControl („lblid“), Etiket). Tekst

        cm. Verbinding = conn
        cm. Connection.Open ()
        cm. Parameters.Add (p1)
        Me.DetailsView1.DataSource = cm.ExecuteReader
        Me.DetailsView1.DataBind ()

        cm. Connection.Close ()
        cm. Parameters.Clear ()

        '' hier vult DE dropdownlist bestelwagen Resultaat Controle zich mee op
        Schemerig CTRL als Controle
        CTRL = DetailsView1.FindControl („drpResultaatControle“)
        Als niet CTRL dan niets is
            Schemerige mylistbox als DropDownList = DirectCast (CTRL, DropDownList)
            Als niet mylistbox dan niets is
                'bereid de SQl vraag voor
                Verduister sqlCmd als Koord = „UITGEZOCHTE tblkeuzelijst.IdKeuze, tblKeuzelijst.keuzemogelijkheden VAN tblKeuzelijst“

                VulListbox (mylistbox, sqlCmd)
            Eind als
        Eind als

    Sub van het eind

    Privé SubVulListbox (ByVal lstObj als DropDownList, ByVal sqlCmd als Koord)

        Schemerige p1 als Nieuwe OleDbParameter
        Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
        Schemerige conn als Nieuwe OleDbConnection (strverzuim)
        Schemerig cm als Nieuwe OleDbCommand
        cm.CommandText = sqlCmd
        cm. Verbinding = conn
        cm. Connection.Open ()

        lstObj.DataSource = cm.ExecuteReader ()
        lstObj.DataValueField = „IdKeuze“
        lstObj.DataTextField = „keuzemogelijkheden“
        lstObj.DataBind ()

        'sluit af
        cm. Connection.Close ()
        cm. Parameters.Clear ()

    Sub van het eind

    Beschermde SubbtnOpslaan_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)

        Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
        Schemerige conn als Nieuwe OleDbConnection (strverzuim)
        Schemerig cm als Nieuwe OleDbCommand
        cm.CommandText = de „UPDATE tblverzuim PLAATSTE tblverzuim.datumvan =? , tblverzuim.datumtot =? , tblverzuim.datumziekteattest =? , tblverzuim.opmerkingen =? , tblverzuim.usergewijzigd =? , tblverzuim.datumgewijzigd =? , tblverzuim.controle=? , tblverzuim.datumcontrole=? , tblverzuim.resultaatcontrole=?“ _
                        & „WAAR (((tblverzuim. Identiteitskaart) =?)); “


        Schemerige p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 als Nieuwe OleDbParameter
        p1.ParameterName = „identiteitskaart“
        p2.ParameterName = „datumvan“
        p3.ParameterName = „datumtot“
        p4.ParameterName = „het meest datumattest“
        p5.ParameterName = „opmerkingen“
        p6.ParameterName = „usergewijzigd“
        p7.ParameterName = „datumgewijzigd“
        p8.ParameterName = „controlejanee“
        p9.ParameterName = „datumcontrole“
        p10.ParameterName = „resultaatcontrole“

        p1.OleDbType = OleDbType.Double
        p2.OleDbType = OleDbType.Date
        p3.OleDbType = OleDbType.Date
        p4.OleDbType = OleDbType.Date
        p5.OleDbType = OleDbType.Char
        p6.OleDbType = OleDbType.Char
        p7.OleDbType = OleDbType.Date
        p8.OleDbType = OleDbType.Boolean
        p9.OleDbType = OleDbType.Date
        p10.OleDbType = OleDbType.Char

        p1.Value = C (Me.DetailsView1.FindControl („lblid“), Etiket). Tekst
        p2.Value = C (Me.DetailsView1.FindControl („txtdatumvan“), TextBox). Tekst
        p3.Value = C (Me.DetailsView1.FindControl („txtdatumtot“), TextBox). Tekst
        p4.Value = C (Me.DetailsView1.FindControl („het meest txtdatumziekteattest“), TextBox). Tekst
        p5.Value = C (Me.DetailsView1.FindControl („txtopmerkingen“), TextBox). Tekst
        p6.Value = User.Identity.Name
        p7.Value = System.DateTime.Now
        p8.Value = C (Me.DetailsView1.FindControl („slkcontrole“), CheckBox). Gecontroleerd
        p9.Value = C (Me.DetailsView1.FindControl („txtcontrole“), TextBox). Tekst
        p10.Value = C (Me.DetailsView1.FindControl („drpResultaatControle“), DropDownList) .SelectedValue


        cm. Verbinding = conn
        cm. Connection.Open ()
        cm. Parameters.Add (p2)
        cm. Parameters.Add (p3)
        cm. Parameters.Add (p4)
        cm. Parameters.Add (p5)
        cm. Parameters.Add (p6)
        cm. Parameters.Add (p7)
        cm. Parameters.Add (p8)
        cm. Parameters.Add (p9)
        cm. Parameters.Add (p10)
        cm. Parameters.Add (p1)

        cm.ExecuteNonQuery ()

        cm. Connection.Close ()
        cm. Parameters.Clear ()

        Me.lblok.Visible = Waar
        Me.DetailsView1.DataSource = niets
        Me.DetailsView1.DataBind ()
        Me.dgOverzicht.DataSource = niets
        Me.dgOverzicht.DataBind ()
    Sub van het eind

    Beschermde SubbtnWissen_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
        Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
        Schemerige conn als Nieuwe OleDbConnection (strverzuim)
        Schemerig cm als Nieuwe OleDbCommand
        cm.CommandText = de „UPDATE tblverzuim PLAATSTE tblverzuim.wissen = -1, tblverzuim.userwissen =? , tblverzuim.datumwissen =?“ _
                        & „WAAR (((tblverzuim. Identiteitskaart) =?)); “
        Schemerige p1, p2, p3 als Nieuwe OleDbParameter
        p1.ParameterName = „identiteitskaart“
        p2.ParameterName = „userwissen“
        p3.ParameterName = „datumwissen“
        p2.OleDbType = OleDbType.Char
        p3.OleDbType = OleDbType.Date
        p1.OleDbType = OleDbType.Double
        p1.Value = C (Me.DetailsView1.FindControl („lblid“), Etiket). Tekst
        p2.Value = User.Identity.Name
        p3.Value = System.DateTime.Now

        cm. Verbinding = conn
        cm. Connection.Open ()
        cm. Parameters.Add (p2)
        cm. Parameters.Add (p3)
        cm. Parameters.Add (p1)
        cm.ExecuteNonQuery ()
        cm. Connection.Close ()
        cm. Parameters.Clear ()

        Me.lblok.Visible = Waar
        Me.DetailsView1.DataSource = niets
        Me.DetailsView1.DataBind ()
        Me.dgOverzicht.DataSource = niets
        Me.dgOverzicht.DataBind ()
    Sub van het eind

    Beschermde Subbtnannulatiecontrole_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs)
        Schemerige strverzuim als Koord = System.Configuration.ConfigurationManager.ConnectionStrings („DBverzuimCS“) .ConnectionString
        Schemerige conn als Nieuwe OleDbConnection (strverzuim)
        Schemerig cm als Nieuwe OleDbCommand
        cm.CommandText = de „UPDATE tblverzuim PLAATSTE tblverzuim.controleannulatie = -1, tblverzuim.userannulatiecontrole =? , tblverzuim.datumannulatiecontrole =?“ _
                        & „WAAR (((tblverzuim. Identiteitskaart) =?)); “
        Schemerige p1, p2, p3 als Nieuwe OleDbParameter
        p1.ParameterName = „identiteitskaart“
        p2.ParameterName = „userwissen“
        p3.ParameterName = „datumwissen“
        p2.OleDbType = OleDbType.Char
        p3.OleDbType = OleDbType.Date
        p1.OleDbType = OleDbType.Double
        p1.Value = C (Me.DetailsView1.FindControl („lblid“), Etiket). Tekst
        p2.Value = User.Identity.Name
        p3.Value = System.DateTime.Now

        cm. Verbinding = conn
        cm. Connection.Open ()
        cm. Parameters.Add (p2)
        cm. Parameters.Add (p3)
        cm. Parameters.Add (p1)
        cm.ExecuteNonQuery ()
        cm. Connection.Close ()
        cm. Parameters.Clear ()

        Me.lblok.Visible = Waar
        Me.DetailsView1.DataSource = niets
        Me.DetailsView1.DataBind ()
        Me.dgOverzicht.DataSource = niets
        Me.dgOverzicht.DataBind ()

    Sub van het eind

    Beschermde Subbtnexcel_Click (ByVal afzender als Voorwerp, ByVal e als System.EventArgs) behandelt btnexcel. Klik
        Verduister Sb als Nieuwe System.Text.StringBuilder
        Verduister rij als Geheel
        'Verduister kolom als Geheel
        Verduister filename als Koord
        filename = „verzuim.txt“


        Sb. Voeg toe („pnnr/bestelwagen Naam“ & Chr (9) & „Ziekte“ & peuter Chr (9) & „Ziekte“ & Chr (9) & „het meest ziekteattest gegeven“ & Chr (9) & „controle“ & Chr (9) & „gegeven controle“ & Chr (9) & „annulatie controle“ & Chr (9) & „opmerkingen“ & vbCrLf)
        Voor rij = 0 aan Me.dgOverzicht.Rows.Count - 1
            Me.dgOverzicht.SelectedIndex = rij
            'gegevens uit gridview meenemen
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lblpnnr“), Etiket). Tekst & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumvan“), Etiket). Tekst & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumtot“), Etiket). Tekst & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („het meest lbldatumziekteattest“), Etiket). Tekst & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („slkcontrole“), CheckBox). Gecontroleerd & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („lbldatumcontrole“), Etiket). Tekst & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („slkcontroleannulatie“), CheckBox). Gecontroleerd & Chr (9))
            Sb. Voeg toe (C (Me.dgOverzicht.SelectedRow.FindControl („txtopmerkingen“), TextBox). Tekst & vbCrLf)

        Daarna

        Response.ContentType = „Application/x-msexcel“
        Response.AddHeader („tevreden-regeling“, „attachement; filename= """ & filename & """")

        Response.Write (sb.ToString)
        Response.End ()
    Sub van het eind
De Klasse van het eind


I hoop dat ik genoeg informatie heb verstrekt en dat er iemand is wie me.

p.s. kan reeds helpen ik keek arround voor de zelfde vraag over EE, maar zij allen zeggen dat het gebied niet in uitgezochte querry is. maar als u mijn vbdossier controleert zult u zien dat online 81 ik het gebied „IdKeuze“ in de Uitgezochte vraag heb. Als zei ik in het begin ik aan this.

Thanks vooraf Tom De Bie werkelijk nieuw ben

Antwoord : DataBinding: „System.Data.Common.DataRecordInternal“ bevat geen bezit met de naam „IdKeuze“.

Berekend dat u al URLs in externe URL van sharepoint moet veranderen webapp, werkt SQL die server melden en dan goed. Ik gebruikte dit als verwijzing - > http://tjopsta.net/2010/04/16/how-to-change-team-foundation-server-2010-urls-for-use-externally/#comment-44
Andere oplossingen  
 
programming4us programming4us