[VB.NET] محتاج تعديل الاكواد . - نسخة قابلة للطباعة

كود :

Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")

            conn.Open()

            For Each row As DataGridViewRow In DataGridView1.Rows

                If row.Cells(0).Value Is Nothing Then Exit For

                Dim sql As String =

                    "INSERT INTO [Rent]" &

                    "( Cus_ID, Cus_Name, Cus_Private_Number, Cus_Address, Cus_Car, Cus_Telephone_Number, Cus_Balance, Equ_Name, Equ_Price, Equ_Qantity, Rent_Date )" &

                    "VALUES" &

                    "( @Cus_ID, @Cus_Name, @Cus_Private_Number, @Cus_Address, @Cus_Car, @Cus_Telephone_Number, @Cus_Balance, @Equ_Name, @Equ_Price, @Equ_Qantity, @Rent_Date )"

                Using cmd As New OleDbCommand(sql, conn)

                    cmd.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Name", TextBox1.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Private_Number", TextBox2.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Address", TextBox3.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Car", TextBox4.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Telephone_Number", TextBox5.Text.ToString)

                    cmd.Parameters.AddWithValue("@Cus_Balance", TextBox6.Text.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Name", row.Cells(0).Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Price", row.Cells(1).Value.ToString)

                    cmd.Parameters.AddWithValue("@Equ_Qantity", row.Cells(2).Value.ToString)

                    cmd.Parameters.AddWithValue("@Rent_Date", DateTimePicker1.Value.ToString)

                    cmd.ExecuteNonQuery()

                End Using

            Next

            conn.Close()

        End Using

        MessageBox.Show("We have been successfully Date", "Congratulations", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub

PHP كود :

Public Function GetQuantity(id As Integer) As Integer
    Dim cmd As New OleDbCommand(String.Format("SELECT [Qty] FROM [Items] WHERE [ID]={0}", id), cnn)
    cnn.Open()
    Dim ret As Integer = cmd.ExecuteScalar
    cnn.Close()
    Return ret
End Function

PHP كود :

Public Function SubQuantity(id As Integer, qty As Integer) As Boolean
    Dim cmd As New OleDbCommand(String.Format("UPDATE [Items] SET [Qty]=([Qty]-{0}) WHERE [ID]={1}", qty, id), cnn)
    cnn.Open()
    Dim ret As Integer = cmd.ExecuteNonQuery()
    cnn.Close()
    If ret > 0 Then Return True
End Function