AbuHazem.vb2012

اكتب هذا الكود قبل الاجراء في زر الاضافة أو شيء قبل تنفيذ امر الاضافة للتأكد من وجود بيانات من عدمه ,, If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then MsgBox("حقول اجبارية ... يلزم ادخال بيانات", MsgBoxStyle.Exclama…

سأقوم بأرفاق مثال به عدت افكار برمجية لاستعمالات التايمر من اليبل وهو عبارة عن برنامج لعرض أذكار الصباح والمساء . وعرض اشرطة اخبارية ..متحركة .. عند الانتهاء منه سأرفقه ان شاء الله ...

الملف بعد التعديل دكتور.zip

استبدل جملة البحث بالكود : cmdselect.CommandText = "select * from la where nam Like '%" & TextBox1.Text & "%'"

استبدل سطر الاضافة بهذا السطر cmdinsert.CommandText = " insert into la (nam,ad,age,tl) values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "')"

تأكد من هذا الامر لأنه هو اللي يبقلك لأول سجل في الجدول .. Me.BindingContext(MyDs10, "Tbl1").Position = 0

السلام عليكم .. لم يشتغل معاي المثال .. الذي ارسله الاستاذ محمد التركي . يمكن المشكلة عندي في قاعدة البيانات 2008 رحت سويت قاعدة بيانات جديدة .. ومشى معاي تمام.. بطريقة الاتصال المنفصل .. Dim sqlcon As New SqlConnection("Server=.\;Initial Catalog=MyDB1;Integra…

الفكرة واضحة ولو ارفقت مثالا يكون احسن ... نحاول نعدل على .. أو غيري من الاخوة .. المقصد الفائدة والتعلم ..

أنا لم اجرب على 2005 ولكن تشتغل ...اغلق المكتبتين التي بتطلغ الخطاء ونفذ الكود ... اما بالنسبة لاستدعائها عن طريق الفورم .. اجعل تسكت بوكس لتكتب فيه الرقم المراد تفقيطه .. وليكن Txttotal.Text وتكست اخر ليظهر فيه التفقيط بالاحرف وليكن TxtTotalOnly.Text ثم تستدع…

اضف موديول لمشروعك .. وانسخ بها هذا الكود .. . ' اجعل هذه المكتبات اعلى الموديول .في Declarations Option Strict Off Option Explicit Off Imports Microsoft.Win32 Imports Microsoft.VisualBasic تم انسخ الدوال التالية داخل الموديول : Module1 Module Module1 Public F…

اجعل تحديث الداتا قريد في اجراء Sub وليكن () Sub LoadGrid وعند إغلاق الفورم الثاني .. يتم استدعاء الاجراء من الفورم الاول مثلا .()Form1.LoadGrid ..... وكذالك حدث الكمبو بوكس ... () Sub LoadCombo ملاحظة :: حاول ان تقسم البرنامج على شكل اجراءات ليسهل عليك ..استد…

أحتاج كود يظهر أزرار في الصفحة تأخذ أسمائها من قائمة الأصناف و أحتاج إلى كود عند الضغط على الزر ينسخ معلومات الصنف إلى الداتا جريد سؤال غير واضح ... لما ذا لا تضيف الازرار يدويا .... وما هو قصدك بأخذ اسماء الازرار من قائمة الاصناف .. وما هو الصف الذي تريد نسخة…

تفضل اخي هذا الفيديو جميل وسيفيدك كثيرا .... http://www.youtube.com/watch?v=8-qYPImQ-hw#t=576

الحمد لله تم حل المشكلة ... Dim str1 As String = "966" Dim Fld1 As String = "Mob" Dim SQLsrt As String = "Update DataInfo1 set Mob= " & str1 & " & " & Fld1 & " Where Grp = '" & COGruop.Text & "'" MyCmd1 = New OleDbCommand(SQLsrt, MyCon1) If MyCon1.State = Conn…

هل من ايجابة .. تراني محتاج الكود ضروري .. ياحضرات المستشارين .... وفقكم الله .. لاتبخلوا علينا بندعوا لكم ..

كيف يمنكنني ان تعديل حقل الجوال لجميع الاشخاص ..باضافة مفتاح المنطقة دفعة واحدة حيث ان السجلات لدي اكثر من 7000 شخص .. عملت الطريقة التاليه ولم تنفع معي :: Dim str1 As String = "966" Try MyCmd1 = New OleDbCommand("Update DataInfo1 set Mob = " & str1 & " + Mob …

ادخل على الاجهزة التي على الشكبة وادخل على مجلد المشاركة .. واعمل اختصار من ملف التشغيل على سطح المكتب على جهاز الموظف ... وانتهت القضية...

اشكرك اخي الفاضل Mr Wolfعلى المثال استفدة منه ... طبعا جعلته في حدث الكي برس ومشي معاي نفع الله بك .. If e.KeyChar = Chr(13) Then If ComboBox1.SelectedItem = "KSA" Then y = "966" End If X = TextBox1.Text z = String.Concat(y, X) TextBox1.Text = z ComboBox1.Sele…

طالما انك تستخدم فيجوال 6 هناك برنامج تقارير ممتاز وخفيف ومميزات جميلة وينزل مع المشروع اسمه ActiveReport يدعم جمل Select .. بشكل ممتاز. مع انني انصحك بان ترتقي الى بيئة الدوت نت اسهل بكثير من الاصدارات القديمة ..والدعم بكثرة وخصوصا في هذا المنتدى الجميل والاخ…

اجعلها في C:\Windows\System32 وجرب