+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=19591)
الصفحات:
1
2
مشكله فى ترقيم الفواير - نبيل كونكت - 10-03-17
ترقيم الفاتوره ازاى من قاعدة البيانات ولا من الفورم
لو عملت لو عملت رقم الفاتوره 1 وعند الضغط على حفظ يفتح فورم جديد ورقم الفاوره = +1 تمام بس مش بيتحفظ
انا للاسف مش عارف الطريقه اصلا علشان انا بتعلم الفيجوال بيسك على النت وشكرا للاعضاء
RE: مشكله فى ترقيم الفواير - مساعدة - 10-03-17
السلام عليكم
في قاعدة البيانات ضع عمود باسم ID ترقيم تلقائي واستخدمه كرقم للفاتورة.
RE: مشكله فى ترقيم الفواير - نبيل كونكت - 11-03-17
(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
ايه الغلط فى الكود ده او ممكن تصحيحه اذا تكرمت
RE: مشكله فى ترقيم الفواير - مساعدة - 11-03-17
أشكر أستاذنا 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 كتب : ولكن لشحن أي أداة في المشروع، لم أرى أي أثر للشحن في الكود.
وأشكرك مرة أخرى للتنبيه للخلل الذي منطقية الكود، والذي لم انتبه له، فقمت بتعديل مشاركتي لحلها
RE: مشكله فى ترقيم الفواير - نبيل كونكت - 11-03-17
الادراج تم كاسم وتاريخ
بس رقم الفاتوره لا
Dim adapter As New OleDbDataAdapter("SELECT @@IDENTITY AS [رقم الفاتورة] FROM [tab_older]", con)
انا للاسف معرفش طريقة وضع الاكزاد على الموقع
RE: مشكله فى ترقيم الفواير - مساعدة - 11-03-17
تم تعديل الكود السابق
RE: مشكله فى ترقيم الفواير - نبيل كونكت - 11-03-17
حاولت اكتهبها كده برده مفيش
["&cmd.CommandText = "SELECT id AS [ " & txtnamper.Text
invoicenumber.Text = cmd.ExecuteScalar
رقم الفاتوره ده label
اسف على انى مش متمكن منها اوى
واسف لتعبك معايا
invoicenumber.Text - جايبه خطا
RE: مشكله فى ترقيم الفواير - مساعدة - 11-03-17
ضع مشروعك لإيجاد الكود المناسب
RE: مشكله فى ترقيم الفواير - مساعدة - 11-03-17
أين قاعدة البيانات dbv.accdb ؟
RE: مشكله فى ترقيم الفواير - نبيل كونكت - 11-03-17
(11-03-17, 03:20 AM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته
إليك المثال التالي وسوف يفي بالغرض إن شاء الله
المرفق :
أتمنى لك التوفيق
اشكر حضرتك على مجهودك بس مش شغال
النت فروم ورك 4.5.1 وانا شغال على 4.5