تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] مساعدة في برنامج يرتكز لقاعدة بيانات أكسس
#1
Exclamation 
بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله

أرجو مساعدتي في برنامجي البسيط في برمجة بعض الأزرار وبعض اللمسات البسيطه عليه ولا شي أخر ،،،




انا مبتدئ بالفيجوال بيسك وهذا أول برنامج لي أريد برمجته ليساعدني في مقر عملي ، قمت ببرمجة الأزرار ما عدا المُحددة وتطبيق إتصال بالداتا بيس أكسس،، بعد 3 أيام من التعلم والتطبيق بحمدالله

كما بالصورة أريد برمجة زر الحفظ والتعديل عند إضافة اسما جديدة ، وكود البحث في الداتا بحسب الإسم ، وطريقة إخفاء اداة الadodc1 من البرنامج في اسفل يسار الشاشة

وملاحظة **

البيانات المعروضة بالتكست بوكس عند تظليلها وحذفها فإنها تنحذف من الداتا !!

ما هي الطريقة لمنعها من الحذف وجعلها تنحذف فقط عن طريق زر الحذف المُخصص لذلك ؟

أرجو المساعدة إخواني
Angel

*
.rar   البرنامج.rar (الحجم : 14.78 ك ب / التحميلات : 13) البرنامج بالمرفقات لمن يريد التعديل عليه أو الإستفادة منه
الرد }}}}
تم الشكر بواسطة:
#2
دا اصدار فيجوال بيسك 6

هو مش فى المكان  المناسب ولكن

بالنسبة لحفظ التعديل

adodc1.recordset.update

اخفاء الاداة سهل لو نظرت الى يمين الشاشة فى الاسفل  فى خصائص الاداة يوجد خانة اسمها visible  
خليها False

او

فى حدث الفورم لود


adodc1.visible = false

تمام الى الان وجارى التعديل على برنامجك انتظرنى


الملفات المرفقة
.zip   البرنامج.zip (الحجم : 18.17 ك ب / التحميلات : 9)
الرد }}}}
تم الشكر بواسطة:
#3
ممكن اخي كود البحث بحسب رقم

وعند إضافة سجل جديد هل ينحفظ من تلقاء نفسه ولا في كود خاص بتخزينه ؟
الرد }}}}
تم الشكر بواسطة:
#4
(15-12-14, 08:19 PM)thaer techno كتب : ممكن اخي كود البحث بحسب رقم


وعند إضافة سجل جديد هل ينحفظ من تلقاء نفسه ولا في كود خاص بتخزينه ؟

بالنسبة للسؤال الثاني اذا اذا كنت تبغا تحفظ او تخزنوا
كود :
Imports System.Data.OleDb
Dim Home As New OleDbConnection
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        Home.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + IO.Directory.GetCurrentDirectory + "\Database71.accdb"


Dim MED As New OleDbCommand
            MED.Connection = Home
            MED.CommandText = "insert into ostaz values ('" + TextBox1.Text + "','" + TextBox2.Text + "')"
            MED.ExecuteNonQuery()


اما السؤال الاول فهوا عن طريق جملة select

كود :
Dim MODZ As OleDbDataReader

            Dim MAD As New OleDbCommand
            MAD.Connection = Home
            MAD.CommandText = "select * From ostaz where Name ='" + TextBox1.Text + "'"


            MODZ = MAD.ExecuteReader

            If MODZ.Read Then
                TextBox1.Text = MODZ(1)


            Else
                MsgBox("   لا يوجد [" + TextBox1.Text + "] ", MessageBoxIcon.Stop)
                Label3.Text = "Error "
            End If
لقد اكتشفت مع الأيام أنه ما من فعلٍ مغايرٍ للأخلاق, وما من جريمة بحق المجتمع إلا ولليهود والنصارى يداً فيها  Idea

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Thumbs Up برنامج إدارة الجمعيات الخيرية مفتوح المصدر... الرجاء المساعدة Arabia 44 1,376 أمس, 02:01 PM
آخر رد: tryold
  ارسال ايميل في vb.net مساعدة nabilelk 1 46 08-12-16, 11:48 PM
آخر رد: ابراهيم النعيمي
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 32 07-12-16, 02:14 PM
آخر رد: tryold
  طريقة عمل قائمة خصائص شبية باالموجودةفي برنامج الفيجوال بيسك CLARO 1 58 07-12-16, 12:20 AM
آخر رد: amgad525
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 30 06-12-16, 04:34 PM
آخر رد: Ayman97
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 133 05-12-16, 03:09 PM
آخر رد: thevirus
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 143 05-12-16, 12:58 AM
آخر رد: ali.alfoly
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 97 04-12-16, 11:04 AM
آخر رد: أبوبكر سويدان
  [سؤال] كيف اجعل برنامج يفتح ملف نصي The Light Fire 5 103 04-12-16, 12:37 AM
آخر رد: ali.alfoly
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 49 03-12-16, 06:59 PM
آخر رد: sal.softip

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم