Hallo an alle,
entweder stell ich mich hier zu doof an oder keine Ahnung
Ich will einfach ein paar preise aus einer Datenbank zusammenaddieren aber es klappt nicht
In etwa so siehts bei php aus und da funktioniert es
Bei meinem VB Code
Kennt einer den fehler?
entweder stell ich mich hier zu doof an oder keine Ahnung
Ich will einfach ein paar preise aus einer Datenbank zusammenaddieren aber es klappt nicht
In etwa so siehts bei php aus und da funktioniert es
Bei meinem VB Code
VB.NET-Quellcode
- Dim SQL_DB_CUSTOMER_SRV_1 As New SqlClient.SqlConnection(My.Settings.ApplicationDBConnectString)
- Dim SQL_DB_CUSTOMER_SRV_1_CMD As New SqlClient.SqlCommand
- Dim SQL_DB_CUSTOMER_SRV_1_READER As SqlClient.SqlDataReader
- Dim SQL_DB_CUSTOMER_SRV_1_ADAPTER As New SqlClient.SqlDataAdapter
- Dim SQL_DB_CUSTOMER_SRV_1_CMD_STRING As String
- SQL_DB_CUSTOMER_SRV_1_CMD_STRING = "select * from WarenkorbPosition where Kundennr='" & MAIN_FORM.MAIN_FORM_STATUS_L_CID.Text & "' and Auftragsnr='" & MAIN_FORM.MAIN_FORM_STATUS_L_ORDERID.Text & "'"
- SQL_DB_CUSTOMER_SRV_1.Open()
- SQL_DB_CUSTOMER_SRV_1_CMD.Connection = SQL_DB_CUSTOMER_SRV_1
- SQL_DB_CUSTOMER_SRV_1_CMD.CommandText = SQL_DB_CUSTOMER_SRV_1_CMD_STRING
- SQL_DB_CUSTOMER_SRV_1_ADAPTER.SelectCommand = SQL_DB_CUSTOMER_SRV_1_CMD
- SQL_DB_CUSTOMER_SRV_1_READER = SQL_DB_CUSTOMER_SRV_1_CMD.ExecuteReader()
- SQL_DB_CUSTOMER_SRV_1_READER.Read()
- Dim PriceCount As String
- PriceCount = "0.00"
- While SQL_DB_CUSTOMER_SRV_1_READER.Read()
- PriceCount += SQL_DB_CUSTOMER_SRV_1_READER.Item("Artikelpreis")
- End While
- SQL_DB_CUSTOMER_SRV_1.Close()
- ORDER_FORM.ORDER_FORM_TB_ZWISCHENSUMME.Text = PriceCount
Kennt einer den fehler?