28-07-22, 09:34 PM
السلام عليكم
الاخوة الكرام
لقد عملت مشروع ويظهر لي خطا في الحفظ وهذا هو الكود علما انني استخدم فيجوال 2010
الاخوة الكرام
لقد عملت مشروع ويظهر لي خطا في الحفظ وهذا هو الكود علما انني استخدم فيجوال 2010
PHP كود :
هذا في المودل Imports System.Data.OleDb
---------------------------------------
Public GroupsDT As New DataTable
Public GroupsDA As New OleDbDataAdapter
Public MynewIDGroups As Integer
Public Sub Load_Groups()
GroupsDT.Clear()
GroupsDA = New OleDbDataAdapter("Select * from Groups", Con)
GroupsDA.Fill(GroupsDT)
End Sub
Public Sub Code_Groups()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("SELECT MAX(GroupID) from Groups", Con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
MynewIDGroups = 1
Else
MynewIDGroups = dt(0)(0) + 1
End If
End Sub
PHP كود :
هذا في الكلاس
Imports System.Data.OleDb
Public Class ItemGroups
Public Sub claregroups()
Code_Groups()
GroupDate.Value = Now.Date
GroupID.Text = MynewIDGroups
GroupName.Text = ""
GroupTime.Value = Now
GroupUser.Text = ""
End Sub
Private Sub ItemGroups_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Load_Groups()
DataGridView1.DataSource = GroupsDT
claregroups()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GroupsDT.Rows.Add()
Dim Last As Integer = GroupsDT.Rows.Count - 1
GroupsDT.Rows(Last).Item("GroupDate") = GroupDate.Value
GroupsDT.Rows(Last).Item("GroupID") = GroupID.Text
GroupsDT.Rows(Last).Item("GroupName") = GroupName.Text
GroupsDT.Rows(Last).Item("GroupTime") = GroupTime.Value
GroupsDT.Rows(Last).Item("GroupUser") = GroupUser.Text
Dim Save As New OleDbCommandBuilder(GroupsDA)
الخطا يظهر في هذا السطر ولايتم الحفظGroupsDA.Update(GroupsDT)
GroupsDT.AcceptChanges()
Load_Groups()
claregroups()
End Sub
End Class