cordInternal",zawierać,własność,z,the,imię,"IdKeuze"." /> DataBinding: "System.Data.Common.DataRecordInternal" zawierać własność z the imię "IdKeuze". - Problemy i rozwiązania do kwestii związanych z Microsoft - Programing4Us

Pytanie : DataBinding: "System.Data.Common.DataRecordInternal" zawierać własność z the imię "IdKeuze".

Cześć być,

I am całkiem nowy ten programowanie materiał więc zadawalać niedźwiedź z me.
On mój strona (overzichtpnnr.aspx) tam  być searchbox który wypełniać the gridview.
When jeden stuknięcie na the "szczegół the gridview detailview musieć i ono być tam  że i dostawać the następujący błąd --> DataBinding: "System.Data.Common.DataRecordInternal" zawierać własność z the imię "IdKeuze".
In the "detailsview" tam  być DropDownList che zaludniać stół (tblKeuzelijst) od accessdb (dbVerzuim) jeżeli ono być pusty i gdy

Here być the kod od the aspx page.

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:
<%@ Strona Language= " VB " MasterPageFile= " ~/MasterControle.master " AutoEventWireup= " fałszywy "
    CodeFile= " overzichtpnnr.aspx.vb " Inherits= " overzichtpnnr " Title= " Verzuim Limburg - Beheerders Menu - Overzicht %> P-nr " %>

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

    
    Beheerders:
        Overzicht actieve ziekteperiodes/> personeelsnummer

* *
  * * * * * * * * *                  

 


And tutaj być the kod od the 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

Częściowy Klasowy overzichtpnnr
    Dziedziczyć System.Web.UI.Page

    Ochraniać Okręt podwodny Btnzoek_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się btnzoek. Stuknięcie


        Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
        Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
        Ciemnawy cm Jako Nowy OleDbCommand
        cm.CommandText = "WYBRANY tblverzuim. Id, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & '' & RTrim ([IGVRNM]) & '' & RTrim ([IGNAAM]) JAKO Naam, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
                        & "OD tblPersoneelAS400 WEWNĘTRZNY ŁĄCZYĆ tblverzuim NA tblPersoneelAS400.IGPNNR = tblverzuim.pnnr" _
                        & "GDZIE tblPersoneelAS400.IGPNNR=? I tblverzuim.wissen=False" _
                        & "GRUPA Tblverzuim. Id, tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, [IGPNNR] & '' & RTrim ([IGVRNM]) & '' & RTrim ([IGNAAM]), tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.opmerkingen, tblverzuim.datumingave, tblverzuim.resultaatcontrole " _
                        & "ROZKAZ Tblverzuim.datumvan DESC, tblverzuim.datumtot DESC; "
        Ciemnawy p2 Jako Nowy OleDbParameter
        p2.ParameterName = "pnnr"
        p2.OleDbType = OleDbType.Double
        p2.Value = Me.txt pnnrzoek. Tekst

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

        Me.lblok.Visible = Fałszywy
        Me.btnexcel.Visible = Prawdziwy

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


    Końcówka Okręt podwodny

    '' Kleur de rijen kostkowy vandaag gemaakt zijn groen & rijen kostkowy vandaag verlopen zijn rood. Hier słowo geselecteerd dbVerzuim Kolom "datumingave" uit de Tabel "tblVerzuim" samochód dostawczy dbVerzuim
    Ochraniać Okręt podwodny dgOverzicht_RowDataBound (ByVal nadawca Jako Przedmiot, ByVal e Jako System.Web.UI.WebControls.GridViewRowEventArgs) Obchodzić się dgOverzicht.RowDataBound
        Jeżeli e.Row.RowType = DataControlRowType.DataRow Wtedy
            Ciemnawy groen Jako Sznurek = DataBinder.Eval (e.Row.DataItem, "datumingave")
            Ćmić rood Jako Sznurek = DataBinder.Eval (e.Row.DataItem, "datumtot")
            Jeżeli groen = Dzisiaj Wtedy
                e.Row.ForeColor = Drawing.Color.Green
            Kończyć Jeżeli
            Jeżeli rood = Dzisiaj Wtedy
                e.Row.ForeColor = Drawing.Color.Red
            Kończyć Jeżeli
        Kończyć Jeżeli
    Kończyć Okręt podwodny

    Jawny Okręt podwodny dgOverzicht_SelectedIndexChanged (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Rękojeść dgOverzicht.SelectedIndexChanged

        Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
        Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
        Ciemnawy cm Jako Nowy OleDbCommand
        cm.CommandText = "WYBRANY tblverzuim.datumvan, tblverzuim.datumtot, tblverzuim.datumziekteattest, tblverzuim.pnnr, tblverzuim.wissen, tblverzuim.opmerkingen, tblverzuim. Id, tblverzuim.controle, tblverzuim.datumcontrole, tblverzuim.controleannulatie, tblverzuim.useringave, tblverzuim.datumingave, tblverzuim.userannulatiecontrole, tblverzuim.datumannulatiecontrole, tblverzuim.userwissen, tblverzuim.datumwissen, tblverzuim.usergewijzigd, tblverzuim.datumgewijzigd, tblverzuim.resultaatcontrole" _
                        & "OD tblverzuim" _
                        & "DOKĄD tblverzuim. Id=? ; "

        Ciemnawy p1 Jako Nowy OleDbParameter
        p1.ParameterName = "ID"
        p1.OleDbType = OleDbType.Double
        p1.Value = CType (Me.dgOverzicht.SelectedRow.FindControl ("lblid"), Etykietka). Tekst

        cm. Związek = 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 samochód dostawczy Resultaat Controle zich mee hier
        Ciemnawy ctrl Kontrola
        ctrl = DetailsView1.FindControl ("drpResultaatControle")
        Jeśli nie ctrl Być Nic Wtedy
            Ciemnawy mylistbox Jako DropDownList = DirectCast (ctrl, DropDownList)
            Jeśli nie mylistbox Być Nic Wtedy
                'przygotowywać the SQl zapytanie
                Ćmić sqlCmd Jako Sznurek = "WYBRANY tblkeuzelijst.IdKeuze, tblKeuzelijst.keuzemogelijkheden OD tblKeuzelijst"

                VulListbox (mylistbox, sqlCmd)
            Kończyć Jeżeli
        Kończyć Jeżeli

    Kończyć Okręt podwodny

    Intymny Okręt podwodny VulListbox (ByVal lstObj Jako DropDownList, ByVal sqlCmd Sznurek)

        Ciemnawy p1 Jako Nowy OleDbParameter
        Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
        Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
        Ciemnawy cm Jako Nowy OleDbCommand
        cm.CommandText = sqlCmd
        cm. Związek = conn
        cm. Connection.Open ()

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

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

    Końcówka Okręt podwodny

    Ochraniać Okręt podwodny btnOpslaan_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)

        Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
        Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
        Ciemnawy cm Jako Nowy OleDbCommand
        cm.CommandText = "AKTUALIZACJA tblverzuim USTALONY tblverzuim.datumvan =? , tblverzuim.datumtot =? , tblverzuim.datumziekteattest =? , tblverzuim.opmerkingen =? , tblverzuim.usergewijzigd =? , tblverzuim.datumgewijzigd =? , tblverzuim.controle=? , tblverzuim.datumcontrole=? , tblverzuim.resultaatcontrole=?" _
                        & "DOKĄD (((tblverzuim. Id) =?)); "


        Ciemnawy p1, p2, p3, p4, p5, p6, p7, p8, p9, p10 Jako Nowy OleDbParameter
        p1.ParameterName = "ID"
        p2.ParameterName = "datumvan"
        p3.ParameterName = "datumtot"
        p4.ParameterName = "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 = CType (Me.DetailsView1.FindControl ("lblid"), Etykietka). Tekst
        p2.Value = CType (Me.DetailsView1.FindControl ("txtdatumvan"), TextBox). Tekst
        p3.Value = CType (Me.DetailsView1.FindControl ("txtdatumtot"), TextBox). Tekst
        p4.Value = CType (Me.DetailsView1.FindControl ("txtdatumziekteattest"), TextBox). Tekst
        p5.Value = CType (Me.DetailsView1.FindControl ("txtopmerkingen"), TextBox). Tekst
        p6.Value = User.Identity.Name
        p7.Value = System.DateTime.Now
        p8.Value = CType (Me.DetailsView1.FindControl ("slkcontrole"), CheckBox). Sprawdzać
        p9.Value = CType (Me.DetailsView1.FindControl ("txtcontrole"), TextBox). Tekst
        p10.Value = CType (Me.DetailsView1.FindControl ("drpResultaatControle"), DropDownList) .SelectedValue


        cm. Związek = 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 = Prawdziwy
        Me.DetailsView1.DataSource = Nic
        Me.DetailsView1.DataBind ()
        Me.dgOverzicht.DataSource = Nic
        Me.dgOverzicht.DataBind ()
    Końcówka Okręt podwodny

    Ochraniać Okręt podwodny btnWissen_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)
        Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
        Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
        Ciemnawy cm Jako Nowy OleDbCommand
        cm.CommandText = "AKTUALIZACJA tblverzuim USTALONY tblverzuim.wissen = -1, tblverzuim.userwissen =? , tblverzuim.datumwissen =?" _
                        & "DOKĄD (((tblverzuim. Id) =?)); "
        Ciemnawy p1, p2, p3 Jako Nowy OleDbParameter
        p1.ParameterName = "ID"
        p2.ParameterName = "userwissen"
        p3.ParameterName = "datumwissen"
        p2.OleDbType = OleDbType.Char
        p3.OleDbType = OleDbType.Date
        p1.OleDbType = OleDbType.Double
        p1.Value = CType (Me.DetailsView1.FindControl ("lblid"), Etykietka). Tekst
        p2.Value = User.Identity.Name
        p3.Value = System.DateTime.Now

        cm. Związek = 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 = Prawdziwy
        Me.DetailsView1.DataSource = Nic
        Me.DetailsView1.DataBind ()
        Me.dgOverzicht.DataSource = Nic
        Me.dgOverzicht.DataBind ()
    Końcówka Okręt podwodny

    Ochraniać Okręt podwodny btnannulatiecontrole_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs)
        Ciemnawy strverzuim Jako Sznurek = System.Configuration.ConfigurationManager.ConnectionStrings ("DBverzuimCS") .ConnectionString
        Ciemnawy conn Jako Nowy OleDbConnection (strverzuim)
        Ciemnawy cm Jako Nowy OleDbCommand
        cm.CommandText = "AKTUALIZACJA tblverzuim USTALONY tblverzuim.controleannulatie = -1, tblverzuim.userannulatiecontrole =? , tblverzuim.datumannulatiecontrole =?" _
                        & "DOKĄD (((tblverzuim. Id) =?)); "
        Ciemnawy p1, p2, p3 Jako Nowy OleDbParameter
        p1.ParameterName = "ID"
        p2.ParameterName = "userwissen"
        p3.ParameterName = "datumwissen"
        p2.OleDbType = OleDbType.Char
        p3.OleDbType = OleDbType.Date
        p1.OleDbType = OleDbType.Double
        p1.Value = CType (Me.DetailsView1.FindControl ("lblid"), Etykietka). Tekst
        p2.Value = User.Identity.Name
        p3.Value = System.DateTime.Now

        cm. Związek = 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 = Prawdziwy
        Me.DetailsView1.DataSource = Nic
        Me.DetailsView1.DataBind ()
        Me.dgOverzicht.DataSource = Nic
        Me.dgOverzicht.DataBind ()

    Końcówka Okręt podwodny

    Ochraniać Okręt podwodny btnexcel_Click (ByVal nadawca Jako Przedmiot, ByVal e Jako System.EventArgs) Obchodzić się btnexcel. Stuknięcie
        Ciemnawy sb Jako Nowy System.Text.StringBuilder
        Ciemnawy rij Jako Integer
        'Ciemnawy kolom Jako Integer
        Ciemnawy filename Sznurek
        filename = "verzuim.txt"


        sb. Append ("pnnr/Naam" & Chr (9) & "Ziekte samochód dostawczy" & Chr (9) & "Ziekte duduś" & Chr (9) & "datum ziekteattest" & Chr (9) & "controle" & Chr (9) & "datum controle" & Chr (9) & "annulatie controle" & Chr (9) & "opmerkingen" & vbCrLf)
        Dla rij = (0) Me.dgOverzicht.Rows.Count - (1)
            Me.dgOverzicht.SelectedIndex = rij
            'gegevens uit gridview meenemen
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lblpnnr"), Etykietka). Tekst & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumvan"), Etykietka). Tekst & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumtot"), Etykietka). Tekst & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumziekteattest"), Etykietka). Tekst & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("slkcontrole"), CheckBox). & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("lbldatumcontrole"), Etykietka). Tekst & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("slkcontroleannulatie"), CheckBox). & Chr (9))
            sb. Append (CType (Me.dgOverzicht.SelectedRow.FindControl ("txtopmerkingen"), TextBox). Tekst & vbCrLf)

        Następnie

        Response.ContentType = "Application/x-msexcel"
        Response.AddHeader ("zadawalać-usposobienie", "attachement; filename= """ & filename & """")

        Response.Write (sb.ToString)
        Response.End ()
    Końcówka Okręt podwodny
Końcówka Klasa


I nadzieja który i provided dosyć informacja i który tam  być który kto móc me.

p.s i już patrzeć arround dla the ten sam pytanie na EE, ale i mówić że the pole być w the wybiórka querry. ale jeżeli ty sprawdzać mój vb kartoteka ty widzieć że online 81 i mieć the śródpolny "IdKeuze" w the Wybrany zapytanie. Jakby i powiedzieć w the początek i być naprawdę nowy this.

Thanks w zaliczkowy Tom De Bie

Odpowiedź : DataBinding: "System.Data.Common.DataRecordInternal" zawierać własność z the imię "IdKeuze".

Pracować że ty musieć wszystkie the URLs the external URL the sharepoint webapp, the SQL reportaż serwer i wtedy pracować dobry. I używać http://tjopsta.net/2010/04/16/how-to-change-team-foundation-server-2010-urls-for-use-externally/#comment-44 jako odniesienie - > http://tjopsta.net/2010/04/16/how-to-change-team-foundation-server-2010-urls-for-use-externally/#comment-44
Inne rozwiązania  
 
programming4us programming4us