كيف يمكن حفظ الباركود في سجل معين في قاعدة البيانات عن طريق textbok ، وكيف جلب البيانات سجل معين عن طريق الباركود ؟
استفسار عن الباركود
السلام عليكم أخي العزيز ورحمة الله وبركاته
لقد أنشأت مشروع فاتورة مبيعات سيفيدك كثيرا
المرفق
بكل بساطة جهاز الباركود يعمل التالي عند قراءة الباركود :
1 - يقرأ الباركود ويضع الرقم في مكان المؤشر (مؤشر الماوس اينما كان سواء في تكست بوكس او ملف نصي او ملف وورد او أي مكان) .
2 - ينقر زر انتر .
فقط هذا عمل قارئ الباركود .
بمعنى آخر . كأنك كتبت رقم في التكست يدوي بالكيبورد ونقرت زر انتر .
انته تضع كود جلب البيانات في حدث النقر على زر انتر الخاص بالتكست .
إنتهى .
شكرا اخي الكريم ::: لا يوجد قاعدة بيانات اكسس
استفسار بسيط عن الترقيم التسلسلي
كيف لي أن احفظ تسلسل الارقام في قاعدة البيانات كلما اضافة سجل جديد طبعاً بدون رقم التلقائي الموجود في أكسس
مثلاً عندي حقل مسمى ID اريد هذا الحقل أن يبدا بـ 1000 وعند اضافة سجل جديد يكون 1001
جرب هذا المثال في مشروع vb.net
قم بإدراج مربع نص وزر أمر من مربع اﻷدوات
ثم ضع الكود التالي في زر اﻷمر
Dim i as integer = 1000
i = i + 1
Textbox1.text = cstr(i)
أتمنى لك التوفيق أخي العزيز
كما سأرسل لكم الشرح فيديو حول المثال السابق
بصراحة حاولت كثيرارفعه علىYouTubeولكن كان عندي مشكلة في النت
والسلام عليكم ورحمة الله وبركاته
سوف اقوم بتجربة هذه الطريقة شكرا اخي الفاضل
قمت بتجربة هذا الكود اخي كريم ... بهي مشكلة وهي قيمة لا تتغير عند اضافة سجل جديد تبقى 1001
لقد تحصلت على كود لكنه لفيجول بيسك 2010 لقاعدة بيانات sql ولقد عدلت هذا الكود إلى 2008 ولكن مزال به مشكلة هذا الكود
Dim i As Integer
Dim ConStr As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\dada1.mdb ;user id=admin;jet oledb:database password=123 ")
ConStr.Open()
Dim cm As New OleDbCommand("select max(id) from a1", ConStr)
Int(i = (Convert.ToInt32(cm.ExecuteScalar)))
i = i + 1
TextBox1.Text = i.ToStringالمهارة في البرمجة هي أن تعتمد الجمل الأقصر للوصول للغرض وليس العكس
أنا وأعوذ بالله من كلمة أنا قدمت لك الحل الأقصر فلماذا حضرتك تميل للحل الأطول؟؟؟؟؟!!!!
وهذا الحل يمكن الإستفادة منه في حال كانت قاعدة البيانات مرتبطة أو منفصلة بالمشروع VB.NET
والحمد لله رب العالمين
شكراً اخي الفاضل على مجهودتك وفي ميزان حسناتك إن شاء الله ...... أنا مبتدا في الفيجول بيسك .... يبدوا أني لم اطرح السؤال بشكل صحيح المقصود هو الرقم التسلسل للحقل ID مثلاً يبدا بـ 1000 وعند اضافة سجل جديد يكون رقم السجل الجديد تلقائي 1001 وهكذا كلما اضفت سجل جديد ... إن شاء الله وصلت الفكرة بشكل صحيح أخي الفاضل
لقد أرسلت لكم مشروع بهذا الخصوص أرجو اﻹطلاع عليه فإنه سوف يحل مشكلتك إن شاء الله
اخي osamaaomar
اعمل التالي :
Dim ConStr As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
Application.StartupPath & "\dada1.mdb ;user id=admin;jet oledb:database password=123 ")
ConStr.Open()
Dim cm As New OleDbCommand("select max(id) from a1", ConStr)
If cm.ExecuteScalar Is DBNull.Value Then
TextBox1.Text = 1000
Else
TextBox1.Text = Val(cm.ExecuteScalar) + 1
End If
cm.Dispose()
ConStr.Close()إنتهى.
تم تعديل هذه المشاركة بواسطة code.vip في 18 مايو 2014 في 21:08
الترقيم التلقائي شرح فيديو
وهذا هو الرابط http://youtu.be/FWJNtqqVe5k
شكرا جزيلاً على هذا المجهود أخي كريم :) وفي ميزان حسناتك إن شاء الله
افضل طريقة للترقيم التلقائي وهي قراءة آخر سجل ثم اضافة رقم واحد عليه
اليك الكود التالي :
dataset1.Clear()
con= "select top 1 * from phonee order by id desc;"
If Me.BindingContext(dataset1, "phonee").Count = 0 Then
T1.Text = 1
Else
T1.Text = dataset1.Tables("phonee").Rows(0).Item("id") + 1
End If
لاحظ معي اخي الكريم اخترنا اعلى رقم في الجدول باستخدام الخاصية top
ثم اضفنا له الرقم 1
تقبل خالص تحياتي