01-04-17, 01:46 PM
PHP كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtsailman.Text = fullname
sorse()
Try
a = 0
a = txtnamper.Text
Catch ex As Exception
MsgBox(ex.Message)
End Try
Try
con.Open()
sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
cmd = New OleDbCommand(sqlstr, con)
txtnamper.Text = cmd.ExecuteScalar()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Sub MySub()
Dim f As New folder
sqlstr = "Select IIF(MAX(Id) IS NULL,0,MAX(Id)) + 1 AS maxId from TAB_OLDER"
End Sub
Private Sub btnsave_Click(sender As Object, e As EventArgs) Handles btnsave.Click
Dim cmd As New OleDbCommand(String.Empty, con)
Dim ss As String
con.Open()
For Each r As DataGridViewRow In dgvprodac.Rows
Dim ad As Integer = Val(r.Cells(0).Value)
Dim txt As Integer = Val(r.Cells(2).Value)
cmd.CommandText = String.Format(" UPDATE [tab_pro] SET [qty] = qty +{0} WHERE [id] = {1} ", txt, ad)
cmd.ExecuteNonQuery()
Next
Try
'cmd = New OleDbCommand(sqlstr, con)
ss = "INSERT INTO [tab_older] ([date], [sailman],[ID]) VALUES (@date, @sailman, @ID)"
Dim md As New OleDbCommand(ss, con)
cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
cmd.Parameters.AddWithValue("@ID", txtnamper.Text)
'con.Open()
cmd.ExecuteNonQuery()
'con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
con.Close()
MsgBox("تم حفظ الفاتوره")
dt.Rows.Clear()
MySub()
End Sub End Sub