Question

我想编写一个简单的程序，使用vb.net在课堂上付款。我想逐月添加付款

如果学生6个月支付500美元，会员费为90美元，那么我想将其添加到数据库中：

示例数据：

Jan 90
Feb 90
mar 90
APR 90
may 90
jun 50

和（ - 40 $）延长到下个月

我想使用for循环添加它。我正在使用vb.net和MS Access数据库。目前我从两个日期获得月差异，并将其添加到for循环并发送数据库唯一金额

  Dim date1 As Date = DateTime.Parse(frodate.Text)
        Dim date2 As Date = DateTime.Parse(todate.Text)
        Dim dif As Long = DateDiff(DateInterval.Month, date1, date2)
        totmonth.Text = dif

    Dim ix As Integer
    Dim month = Today.Month
    For ix = 0 To dif - 1
        Dim newDate As DateTime = date1.AddMonths(ix)
        Dim monthid As Integer = newDate.Month
        Dim mname = MonthName(monthid)

        objcon.myconnection.Open()


        Try
            Dim adddata As New OleDbCommand(("insert into payment(payment_id,mem_id,payment_type,payment_date,Payment_amount,payment_remark,mem_name,payment_month)" &
                                               "values('" & paymentid.Text & "'," & paymemid2.Text & ",'" & payment_type_combo.Text & "','" & paymentdate.Text & "','" & payment_amount.Text & "','" & payremark.Text & "','" & memname.Text & "','" & mname & "')"), objcon.myconnection)
            adddata.ExecuteNonQuery()
            Dim addtransection As New OleDbCommand("insert into account(trans_id,trans_type,trans_date,credit,flag)" &
                                                   "values('" & paymentid.Text & "','" & payment_type_combo.Text & "','" & paymentdate.Text & "','" & payment_amount.Text & "',1)", objcon.myconnection)
            addtransection.ExecuteNonQuery()
            MsgBox("Payment  Sucsess")

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        objcon.myconnection.Close()

为for loop vb.net

0 个答案: