Fikou-sama-49

موضوع بسيط لكن مفيد .... إليكم أيضا Private Sub Button1_Click(ByVal sender as Object .... Dim Tab() As String = Split(TextBox1.Text, " ") MsgBox(Tab.Length) End Sub

طيب .. و مادا عن أمن قاعدة البيانات إدا كانت تحتوي على صور مشاريع و مستندات شركة ما ؟؟ فهل تعتقد أن هدة الشركة ستفرط في حماية أسرارها بالإعتماد على ملفات بدل قاعدة بيانات ؟؟

جزاك الله خيرا أخي شهاب ...

آسف أخي شهاب لم ألاحظ أني وضعت هدا الموضوع في قسم Microsoft Visual Basic.NET ... لأنه بعد نقل الموضوع الى هدا القسم ظننت بأني وضعت الموضوع هنا في البداية ... آسف مرة أخي شهاب

مشكور على الرد و لكن الكود السابق يعطيني خطأ في Me.MainBindingSource ...هل أعرف BindingSource جديدة أم مادا ... ملاحظة : أخي شهاب أظن أن الموضوع متعلق بقواعد البيانات و هدا القسم مخصص لقواعد البيانات .. فهل لي أن أعرف لمادا تم نقل الموضوع ؟؟

اطلع على هدا الرابط

لو بحثت قليلا لوجدت الكود التالي .... Private Sub Button1_Click(ByVal sender as Object .... Label1.Text = DateTimePicker1.Value.ToShortTimeString End Sub بالتوفيق

بعد تحميلي للمثال يبدو أنه يشتغل بشكل جيد ... و شكرا أخي محمد على المثال الرائع ...

ملاحظة : هدا المشروع ليس من صنعي فلفقد حملته من أحد المواقع الأجنبية .. إدن إدا كان لديك أي استفسار فللاسف لا يمكنني إجابتك

لدي مشروع صغير ينطق محتوى TextBox لكنه ب VB.NET 2005 و لا أعتقد أنه سيعمل على النسخة 2003 و على العموم سأرفقه .... Speaker_english.zip

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

بينما كنت أقرأ بعض المواضيع المتعلقة باستعراض و إدخال صور في قاعدة البيانات .. لاحظت عدم وجود طريقة مباشرة لربط PictureBox بقاعدة البيانات فهل يمكن ربط PictureBox عن طريق DataBindings مع أني حاولت باستخدام الكود التالي : Private Sub Form1_Load(ByVal sender As …

شكرا أخي crazy Programm2007er على الرد و لكن ليس هدا هو قصدي .. فأنا أقصد مثلا إدا أردت أن أبحث عن ملف جهازي : Private Sub Button1_Click(ByVal sender as Object .... SendKeys.Send("xxxx(F)") End Sub حيث xxxx هو رمز الزر Windows فمثلا % هو رمز الزر Alt

ممكن أنك تختصر الكود في Form_Load إلى Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim dp As New SqlClient.SqlDataAdapter(str, conn) dp.Fill(ds, "Region") TextBox1.DataBindings.Add("Text", ds, "Region.R…

قم بالبحث في المنتدى عن SendKey و ستجد العديد من الأمثلة ...

و لا رد ... ؟؟ على العموم شكرا على المرور ...

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

استعمل MaskedTextBox ... و قم باختيار أحد البنيات من خاصية Mask ...

إليك المثال بعد التعديل ... لكن يجب أن تأخد بعين اللإعتبار قيم Primary Key ... data_copy.zip

لقد جربت بنفسي طريقة Insert و أدت المطلوب .. لا أعرف لم لم تعمل معك ... :)