Vraag : De lezing van MySQL VSTO van dataTable

Hallo, heb ik dataTable, gecre�ërd en de vraag, en het diaplys een resultaat getest.  Als u de code ziet die ik hieronder heb vastgemaakt:
When is stap door de code, voert het de sql verklaring uit, vult datatable, maar na lijnen 81-82: nBFBal
= nBFBal + („Bedrag“) .ToString ()
bedrag myRow.Item = myRow.Item („Bedrag“) .ToString () + myRow („PaidAmont“) .ToString (), het houdt op gaand verder en exeutes de „definitief“ verklaring.  Om het even welke ideeën wat hier verkeerd gaat?
" codeBody " 
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:
van 
Private SubbtnCreateStatement_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten btnCreateStatement.Click

        Schemerige myConn als Nieuwe MySqlConnection
        Schemerige myComm als Nieuwe MySqlCommand
        Schemerige myAdapter als Nieuwe MySqlDataAdapter
        Schemerige myData als Nieuwe DataTable
        Schemerige strSQL als Koord

        Schemerige sEndDate als Koord
        Schemerige CustomerRef als Koord
        Schemerige stroom zoals Dubbel
        Verduister dertig Dubbel
        Verduister zestig Dubbel
        Verduister negentig Dubbel
        Verduister onetwenty Dubbel
        Verduister bedrag Dubbel
        Verduister unallocated Dubbel
        Verduister nBFBal Dubbel
        Verduister nCFBal Dubbel

  CustomerRef = CustomerRefComboBox.Text
  sEndDate = Formaat (DateTimePicker2.Value, „yyyy-MM.-dd“)

  strSQL = „UITGEZOCHTE tr.TransID, RT. Datum, trt. Categorie, trt. Descr, cz.CustomerRef, RT. Bedrag, SOM (RT. Bedrag) ALS TotalGroup, RT. Nota's,“ & _
„PERIOD_DIFF (CONCAT (JAAR („“ & sEndDate & „“), ALS (MAAND („„& sEndDate &““) <10, „0“, ''), MAAND („“ & sEndDate & „“)), CONCAT (JAAR (RT. Datum), ALS (MAAND (RT. Datum) <10, „0“, ''), MAAND (RT. Datum))) ALS Dagen,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID = T1.TransID“ & _
„WEGGEGAAN SLUIT me aan bij T2 van Transacties OP T2.TransID = TA.TransactionID_Allocation WAAR (tr.TransID = T1.TransID) EN T2.CustomerID = „3“) * -1, 0) ALS TotalAgainstCustomer,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID_Allocation = T1.TransID“ & _
„WAAR tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ & _
„VAN Klanten CZ, Transacties RT, TransTypes trt“ & _
„WAAR (tr.CustomerID = cz.CustomerID EN cz.CustomerRef = „“ & CustomerRef & „“ EN tr.TransTypeID = trt.TransTypeID) „& _
„EN (RT. Date<='" & sEndDate & „')“ & _
„EN NIET tr.TransTypeID IN („HET DEBET VAN HET BESLUIT“, „LOST KREDIET OP“)“ & _
„GROEP DOOR IFNULL (LinkTo, TransID)“ & _
„HEBBEND TotalGroup <>0“ & _
„ORDE DOOR RT. Datum, tr.TransID GRENS 0, 30“

   myConn = GetConnection ()     
   Probeer
      myConn.Open ()
        Probeer
           myComm.Connection = myConn
           myComm.CommandText = strSQL

           myAdapter.SelectCommand = myComm
           myAdapter.Fill (myData)

           DataGridView1.DataSource = myData
           Schemerige myRow als DataRow
             Voor Elke myRow in myData.Rows
                 Schemerige myCol als DataColumn
                 Voor Elke myCol in myData.Columns
                     nBFBal = 0

                    Als Convert.ToDateTime (myRow.Item („Datum“)) >= DateTimePicker1.Value toen
                    Als myRow.Item („TotalAgainstCustomer“) .ToString () <> 0 toen
                          nBFBal = nBFBal + Convert.ToDouble (myRow.Item („Bedrag“) .ToString ())
                     Anders
                           nBFBal = nBFBal + myRow.Item („Bedrag“) .ToString ()
                           bedrag = myRow.Item („Bedrag“) .ToString () + myRow („PaidAmont“) .ToString ()
                     Eind als

         Als myRow.Item („Dagen“) .ToString () <= 0 toen
                stroom = stroom + bedrag
         ElseIf myRow.Item („Dagen“) .ToString () = 1 toen
                 dertig = dertig + bedrag
         ElseIf myRow.Item („Dagen“) .ToString = 2 toen
                 zestig = zestig + bedrag
          ElseIf myRow.Item („Dagen“) .ToString () = 3 toen
                 negentig = negentig + bedrag
          ElseIf myRow.Item („Dagen“) .ToString () = 4 toen
                 onetwenty = onetwenty = bedrag
          Eind als
       Eind als
       Daarna
          nCFBal = nBFBal
          Als myRow.Item („Datum“) < DateTimePicker2.Value toen
             Globals.Sheet64.TransactionDate.Value = myRow.Item („Datum“) .ToString
             Globals.Sheet64.TransactionType.Value = myRow.Item („Categorie“) .ToString
             Globals.Sheet64.TransDescription.Value = myRow.Item („Descr“) .ToString
             Globals.Sheet64.TransDocument.Value = myRow.Item („Nota's“) .ToString
             Als myRow.Item („TotalAgainstCustomer“) <> 0 toen
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Bedrag“) .ToString
                  nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Bedrag“) .ToString ())
                  bedrag = Convert.ToDouble (myRow.Item („Bedrag“) .ToString ()) - Convert.ToDouble (myRow.Item („TotalAgainstCustomer“) .ToString ())
              Anders
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Bedrag“) .ToString
                 nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Bedrag“) .ToString ())
                 bedrag = Convert.ToDouble (myRow.Item („Bedrag“) .ToString ()) - Convert.ToDouble (myRow.Item („PaidAmount“) .ToString ())
              Eind als
                    Eind als
                Daarna
            myError van de vangst als MySqlException
       MessageBox.Show („Er was een foutenlezing van het gegevensbestand: “ & myError.Message)
            Het eind probeert
            Daarna
        myError van de vangst als MySqlException
            MessageBox.Show („Fout die met het gegevensbestand verbindt: “ & myError.Message)
        Tot slot
            Als myConn.State <> ConnectionState.Closed toen
                myConn.Close ()
            Eind als
        Het eind probeert
    Sub van het eind
" codeBody " 
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:
van 
Private SubbtnCreateStatement_Click (ByVal afzender als System.Object, ByVal e als System.EventArgs) Handvatten btnCreateStatement.Click

        Schemerige myConn als Nieuwe MySqlConnection
        Schemerige myComm als Nieuwe MySqlCommand
        Schemerige myAdapter als Nieuwe MySqlDataAdapter
        Schemerige myData als Nieuwe DataTable
        Schemerige strSQL als Koord

        Schemerige sEndDate als Koord
        Schemerige CustomerRef als Koord
        Schemerige stroom zoals Dubbel
        Verduister dertig Dubbel
        Verduister zestig Dubbel
        Verduister negentig Dubbel
        Verduister onetwenty Dubbel
        Verduister bedrag Dubbel
        Verduister unallocated Dubbel
        Verduister nBFBal Dubbel
        Verduister nCFBal Dubbel

  CustomerRef = CustomerRefComboBox.Text
  sEndDate = Formaat (DateTimePicker2.Value, „yyyy-MM.-dd“)

  strSQL = „UITGEZOCHTE tr.TransID, RT. Datum, trt. Categorie, trt. Descr, cz.CustomerRef, RT. Bedrag, SOM (RT. Bedrag) ALS TotalGroup, RT. Nota's,“ & _
„PERIOD_DIFF (CONCAT (JAAR („“ & sEndDate & „“), ALS (MAAND („„& sEndDate &““) <10, „0“, ''), MAAND („“ & sEndDate & „“)), CONCAT (JAAR (RT. Datum), ALS (MAAND (RT. Datum) <10, „0“, ''), MAAND (RT. Datum))) ALS Dagen,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID = T1.TransID“ & _
„WEGGEGAAN SLUIT me aan bij T2 van Transacties OP T2.TransID = TA.TransactionID_Allocation WAAR (tr.TransID = T1.TransID) EN T2.CustomerID = „3“) * -1, 0) ALS TotalAgainstCustomer,“ & _
„IFNULL ((de Uitgezochte SOM (AllocationAmount) VAN VERLATEN T1 van Transacties SLUIT zich aan bij TransactionAllocations Ta OP TA.TransactionID_Allocation = T1.TransID“ & _
„WAAR tr.TransID = T1.TransID) * -1, 0) ALS PaidAmount“ & _
„VAN Klanten CZ, Transacties RT, TransTypes trt“ & _
„WAAR (tr.CustomerID = cz.CustomerID EN cz.CustomerRef = „“ & CustomerRef & „“ EN tr.TransTypeID = trt.TransTypeID) „& _
„EN (RT. Date<='" & sEndDate & „')“ & _
„EN NIET tr.TransTypeID IN („HET DEBET VAN HET BESLUIT“, „LOST KREDIET OP“)“ & _
„GROEP DOOR IFNULL (LinkTo, TransID)“ & _
„HEBBEND TotalGroup <>0“ & _
„ORDE DOOR RT. Datum, tr.TransID GRENS 0, 30“

   myConn = GetConnection ()     
   Probeer
      myConn.Open ()
        Probeer
           myComm.Connection = myConn
           myComm.CommandText = strSQL

           myAdapter.SelectCommand = myComm
           myAdapter.Fill (myData)

           DataGridView1.DataSource = myData
           Schemerige myRow als DataRow
             Voor Elke myRow in myData.Rows
                 Schemerige myCol als DataColumn
                 Voor Elke myCol in myData.Columns
                     nBFBal = 0

                    Als Convert.ToDateTime (myRow.Item („Datum“)) >= DateTimePicker1.Value toen
                    Als myRow.Item („TotalAgainstCustomer“) .ToString () <> 0 toen
                          nBFBal = nBFBal + Convert.ToDouble (myRow.Item („Bedrag“) .ToString ())
                     Anders
                           nBFBal = nBFBal + myRow.Item („Bedrag“) .ToString ()
                           bedrag = myRow.Item („Bedrag“) .ToString () + myRow („PaidAmont“) .ToString ()
                     Eind als

         Als myRow.Item („Dagen“) .ToString () <= 0 toen
                stroom = stroom + bedrag
         ElseIf myRow.Item („Dagen“) .ToString () = 1 toen
                 dertig = dertig + bedrag
         ElseIf myRow.Item („Dagen“) .ToString = 2 toen
                 zestig = zestig + bedrag
          ElseIf myRow.Item („Dagen“) .ToString () = 3 toen
                 negentig = negentig + bedrag
          ElseIf myRow.Item („Dagen“) .ToString () = 4 toen
                 onetwenty = onetwenty = bedrag
          Eind als
       Eind als
       Daarna
          nCFBal = nBFBal
          Als myRow.Item („Datum“) < DateTimePicker2.Value toen
             Globals.Sheet64.TransactionDate.Value = myRow.Item („Datum“) .ToString
             Globals.Sheet64.TransactionType.Value = myRow.Item („Categorie“) .ToString
             Globals.Sheet64.TransDescription.Value = myRow.Item („Descr“) .ToString
             Globals.Sheet64.TransDocument.Value = myRow.Item („Nota's“) .ToString
             Als myRow.Item („TotalAgainstCustomer“) <> 0 toen
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Bedrag“) .ToString
                  nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Bedrag“) .ToString ())
                  bedrag = Convert.ToDouble (myRow.Item („Bedrag“) .ToString ()) - Convert.ToDouble (myRow.Item („TotalAgainstCustomer“) .ToString ())
              Anders
                 Globals.Sheet64.stm_amount.Value = myRow.Item („Bedrag“) .ToString
                 nCFBal = nCFBal + Convert.ToDouble (myRow.Item („Bedrag“) .ToString ())
                 bedrag = Convert.ToDouble (myRow.Item („Bedrag“) .ToString ()) - Convert.ToDouble (myRow.Item („PaidAmount“) .ToString ())
              Eind als
                    Eind als
                Daarna
            myError van de vangst als MySqlException
       MessageBox.Show („Er was een foutenlezing van het gegevensbestand: “ & myError.Message)
            Het eind probeert
            Daarna
        myError van de vangst als MySqlException
            MessageBox.Show („Fout die met het gegevensbestand verbindt: “ & myError.Message)
        Tot slot
            Als myConn.State <> ConnectionState.Closed toen
                myConn.Close ()
            Eind als
        Het eind probeert
    Sub van het eind

Antwoord : De lezing van MySQL VSTO van dataTable

>> Ik krijg geen foutenmelding

Uw uitzondering behandeling is niet goed…
Probeer dit:

Probeer
….

Vang myError als MySqlException
       MessageBox.Show („Er was een foutenlezing van het gegevensbestand: “ & myError.Message)
myError van de vangst als MySqlException
            MessageBox.Show („Fout die met het gegevensbestand verbindt: “ & myError.Message)
myError van de vangst als Uitzondering
           MessageBox.Show (myError.toString ())
tot slot
…
Andere oplossingen  
 
programming4us programming4us