منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مساعدة في برنامج يرتكز لقاعدة بيانات أكسس

بسم الله الرحمن الرحيم

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

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

[صورة مرفقة: dPfCdZ.png]

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

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

وملاحظة **

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

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

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

*[attachment=6160]البرنامج بالمرفقات لمن يريد التعديل عليه أو الإستفادة منه

دا اصدار فيجوال بيسك 6

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

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

adodc1.recordset.update

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

او

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

adodc1.visible = false

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

ممكن اخي كود البحث بحسب رقم

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

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

thaer techno

elhon.tec

thaer techno

mudz