+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال في الكود مهم لو سمحتم (/showthread.php?tid=27263)
الصفحات:
1
2
RE: سؤال في الكود مهم لو سمحتم - احمد خطاب - 04-11-18
برضه مش شغال
RE: سؤال في الكود مهم لو سمحتم - asemshahen5 - 04-11-18
ضع المثال ليتم التعديل عليه
RE: سؤال في الكود مهم لو سمحتم - احمد خطاب - 04-11-18
ده نسخة من البرنامج
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
Public usersdt As New DataTable
Public usersda As OleDbDataAdapter
Public mynewidusers As Integer
'load all colummns of 'table in access 2007
Public Sub load_users()
usersdt.Clear()
usersda = New OleDbDataAdapter("select*from users", con)
usersda.Fill(usersdt)
End Sub
' Dim code generation for access 2007 by<<indirect connection>>
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
وده فى الحدث load
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox3.Visible = False
load_users()
'data source of 'table
DataGridView1.DataSource = usersdt
code_users()
userid.Text = mynewidusers
ده نسخة من البرنامج
Imports System.Data.OleDb
Module Module1
Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source= D:\super market\super market\bin\Debug\ss.accdb")
Public usersdt As New DataTable
Public usersda As OleDbDataAdapter
Public mynewidusers As Integer
'load all colummns of 'table in access 2007
Public Sub load_users()
usersdt.Clear()
usersda = New OleDbDataAdapter("select*from users", con)
usersda.Fill(usersdt)
End Sub
' Dim code generation for access 2007 by<<indirect connection>>
Public Sub code_users()
Dim dt As New DataTable
Dim da As New OleDbDataAdapter("select max(`user id`) from users", con)
da.Fill(dt)
If IsDBNull(dt(0)(0)) = True Then
mynewidusers = 1
Else
mynewidusers = dt(0)(0) + 1
End If
وده فى الحدث load
Private Sub UsersBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub UsersBindingNavigatorSaveItem_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UsersBindingNavigatorSaveItem.Click
Me.Validate()
Me.UsersBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.SsDataSet)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
GroupBox3.Visible = False
load_users()
'data source of 'table
DataGridView1.DataSource = usersdt
code_users()
userid.Text = mynewidusers
RE: سؤال في الكود مهم لو سمحتم - elgokr - 04-11-18
اذا لم يشتغل فهنا يجب التعديل على المسميات والتحقق منها
من خلال قاعدة البيانات لان من الموكد قاعدة البيانات مبني بطريقة غير صحيحة
وتقوم بوضع مسميات فى الاكواد خلاف المسميات التى تتواجد بقاعدة البيانات
فكل ما عليك هو جهل كلاً من
PHP كود :
user id
وما شبح بهذا التسمية
PHP كود :
user_id
أو
userid
ويتم ذلك فى قاعدة البيانات نفسها اولاً ثم فى الكود
تحياتى لك
وتمنياتى لك التوفيق
RE: سؤال في الكود مهم لو سمحتم - احمد خطاب - 05-11-18
شكرااااااااااااااااااا نجح الكود اشكركم جدااااااااااااااااااااااااا جزاكم الله كل الخير وجعله فى ميزان حسناتكم