ترقيم الفاتوره ازاى من قاعدة البيانات ولا من الفورم
لو عملت لو عملت رقم الفاتوره 1 وعند الضغط على حفظ يفتح فورم جديد ورقم الفاوره = +1 تمام بس مش بيتحفظ
انا للاسف مش عارف الطريقه اصلا علشان انا بتعلم الفيجوال بيسك على النت وشكرا للاعضاء
السلام عليكم
في قاعدة البيانات ضع عمود باسم ID ترقيم تلقائي واستخدمه كرقم للفاتورة.
(10-03-17, 09:37 PM)مساعدة كتب : [ -> ]السلام عليكم
في قاعدة البيانات ضع عمود باسم ID ترقيم تلقائي واستخدمه كرقم للفاتورة.
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
txtsailman.Text = fullname
sorse()
Dim ss As String
Try
ss = ("insert into tab_older (date, sailman) values (@date,@sailman)",con)
cmd = New OleDbCommand(ss, con)
cmd.Parameters.Add(New OleDbParameter("@date", OleDb.OleDbType.Date)).Value = dtolder.Value.Date
cmd.Parameters.Add(New OleDbParameter("@sailman", OleDbType.VarChar)).Value = txtsailman.Text
adapter = New OleDbDataAdapter("select id as [رقم الفاتوره] from tab_older", con)
con.Open()
cmd.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
End Sub
ايه الغلط فى الكود ده او ممكن تصحيحه اذا تكرمت
أشكر أستاذنا
khodor1985 على التنبيه للأعضاء
جرب هذا التعديل
كود :
Private Sub folderadd_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
txtsailman.Text = fullname
sorse()
Dim ss As String
ss = "INSERT INTO [tab_older] ([date], [sailman]) VALUES (@date, @sailman)"
Dim cmd As New OleDbCommand(ss, con)
cmd.Parameters.AddWithValue("@date", dtolder.Value.Date)
cmd.Parameters.AddWithValue("@sailman", txtsailman.Text)
con.Open()
cmd.ExecuteNonQuery()
cmd.CommandText = "SELECT @@IDENTITY"
Me.Label1.Text = cmd.ExecuteScalar
con.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
(11-03-17, 01:58 AM)khodor1985 كتب : [ -> ]ولكن لشحن أي أداة في المشروع، لم أرى أي أثر للشحن في الكود.
وأشكرك مرة أخرى للتنبيه للخلل الذي منطقية الكود، والذي لم انتبه له، فقمت بتعديل مشاركتي لحلها
الادراج تم كاسم وتاريخ
بس رقم الفاتوره لا
Dim adapter As New OleDbDataAdapter("SELECT @@IDENTITY AS [رقم الفاتورة] FROM [tab_older]", con)
انا للاسف معرفش طريقة وضع الاكزاد على الموقع
حاولت اكتهبها كده برده مفيش
["&cmd.CommandText = "SELECT id AS [ " & txtnamper.Text
invoicenumber.Text = cmd.ExecuteScalar
رقم الفاتوره ده label
اسف على انى مش متمكن منها اوى
واسف لتعبك معايا
invoicenumber.Text - جايبه خطا
ضع مشروعك لإيجاد الكود المناسب
أين قاعدة البيانات dbv.accdb ؟
(11-03-17, 03:20 AM)khodor1985 كتب : [ -> ]السلام عليكم أخي العزيز ورحمة الله وبركاته
إليك المثال التالي وسوف يفي بالغرض إن شاء الله
المرفق :
أتمنى لك التوفيق
اشكر حضرتك على مجهودك بس مش شغال
النت فروم ورك 4.5.1 وانا شغال على 4.5