منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=29020)

الصفحات: 1 2


RE: كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد - elgokr - 06-04-19

(05-04-19, 05:53 PM)anis كتب : السلام عليكم و رحمة الله وبركاته .
ا اريد من مربع النص (texbox ) ان يقبل حرف واحد انجليزي و ستة اعداد . مثال : A123456.
انا شغال على vb.net .
مع التقدير والشكر لمساعدتكم


تابع بخصوص هذا فى موضوعك تم الرد عليه بالرابط هنا

http://vb4arb.com/vb/showthread.php?tid=29261&pid=139360#pid139360

تحياتى لك
وتمنياتى لك التوفيق



RE: كود التعديل و الحفظ و كود الادراج او اضافة سجل جديد - Emam emam - 06-04-19

(16-03-19, 11:14 PM)Adil Idabdellah كتب : اخي هدا إجراء للإضافة والتعديل والحدف


 Public Sub _RunCommand(str As String)
        If (conn.State = ConnectionState.Closed) Then conn.Open()
        Dim cmd As New OleDbCommand(str.ToString, conn)
        cmd.CommandText = str
        cmd.ToString()
        cmd.ExecuteNonQuery()
        conn.Close()
    End Sub

و هدا إجراء لمسح txbox مربعات النصوص

 Public Sub _Claertxtbox(OBJ As Object)
        For Each ctrl As Control In OBJ.Controls
            If TypeOf ctrl Is TextBox Then
                ctrl.Text = String.Empty
            End If
        Next
وهدا


بارك الله فيك اخي علي مساعدتك

ولكن عندي سؤال علي كود مسح مربعات النصوص 
اولا اعتذر علي تدخلي في المشاركه بسؤال بدل من اجابه
ثانيا سؤالي هو

كيف لي ان استخدم هذا الاجراء هل استخدمه كداله واقوم باستدعائه في حدث اللود ام ماذا