• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

سمير ابراهيم

اعضاء
  • عدد المشاركات

    119
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

8 عادي

عن سمير ابراهيم

  • الرتبة
    عضو
  • تاريخ الميلاد 12/26/1972

طرق الإتصال

معلومات الملف الشخصي

  • الجنس ذكر
  1. استخدام جملة استعلام الاسم الاول و الاوسط و الاخير

    حسب ما فهمت وبدون تجريب "Select * from users where fname + ' '+ mname+' '+lname+' '+famname +' ' like '%" & replace(serch_text.Text," "," ") & "%'"
  2. هل يوجد numeric textbox في vb.net 2005

    ما بعرف اذا كان موجود بال 2005 ولكن بال 2010 موجود in the ToolBox there is MaskedTextBox بالامكان التحكم بالحرف (numeric or text)
  3. تشفير Connection String

    خطا مطبعي :) Imports System.Data Imports System.IO Public Class Form1 ' This method is used to encrypt the connection string Private Function EncryptConnectionString(ByVal connectionString As String) As String Dim b As [Byte]() = System.Text.ASCIIEncoding.ASCII.GetBytes(connectionString) Dim encryptedConnectionString As String = Convert.ToBase64String(b) Return encryptedConnectionString End Function Private Function decryptedConnectionString(ByVal text_to_decrypt As String) As String Dim b As Byte() = Convert.FromBase64String(text_to_decrypt) decryptedConnectionString = System.Text.ASCIIEncoding.ASCII.GetString(b) return decryptedConnectionString End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox2.Text = EncryptConnectionString(TextBox1.Text) End Sub Function FileCreate_Set_Get() As String Dim connstring As String = Nothing If My.Computer.FileSystem.FileExists(Application.StartupPath & "\" & "ConStr.XML") Then Dim sr As New StreamReader(Application.StartupPath & "\" & "ConStr.XML") connstring = sr.ReadLine Else Dim Str As New FileStream(Application.StartupPath & "\" & "ConStr.XML", FileMode.Create) Dim Sw As New StreamWriter(Str) Sw.WriteLine(TextBox2.Text) Sw.Close() Str.Close() FileCreate_Set_Get() End If Return connstring End Function Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click MsgBox(FileCreate_Set_Get()) End Sub Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim conn_decrypted = decryptedConnectionString(FileCreate_Set_Get()) MsgBox(conn_decrypted) Dim sqlconn As New SqlClient.SqlConnection(conn_decrypted) End Sub End Class
  4. تشفير Connection String

    اهلا فيك و تكرم :) استعمل هذا الكود Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'TextBox3.Text = decryptedConnectionString(TextBox2.Text) Dim sr As New StreamReader(Application.StartupPath & "\" & "ConStr.XML") Dim connstring as String = decryptedConnectionString(sr.ReadLine) 'MsgBox(connstring) Dim conn As New SqlClient.SqlConnection(connstring ) End Sub
  5. تشفير Connection String

    انا استعمل نفس الطريقة تقريبا ولكن على txt file not on XML (هي نفسها) ما ينفص في برنامجك هو عندما تفرا ال encrypted xml يجب عليك اولا ان Decrypt ثم تضعه في sqlconnection add a function Private Function decryptedConnectionString(ByVal text_to_decrypt As String) As String Dim b As Byte() = Convert.FromBase64String(TextBox2.Text) decryptedConnectionString = System.Text.ASCIIEncoding.ASCII.GetString(b) return decryptedConnectionString End Function in decrypt button Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click TextBox3.Text = decryptedConnectionString(TextBox2.Text) Dim conn As New SqlClient.SqlConnection(TextBox3.Text) End Sub
  6. ما العيب في جملة select

    جرب بدل =No الى = 0 SELECT * FROM TabFacture WHERE (((TabFacture.Mois)=[?]) AND ((TabFacture.Etat_De_Paye)=0));
  7. Dispose VS Close ما الفرق بينهم؟

    بكلتا الحالتين لن تستطيع استعمال ال form ويجب عليك استعمال dim x as new from2 : x.show احد الاختلافات بين close and dispose Create New project with form1 and form2 in form1 add 1 button (btn_runform2) in form2 add 1 textbox (Textbox1) and 2 button (btn_close) and (btn_dispose) in form2 عدل خاصية textbox "modifiers" من private الى public add the following code: *in form1 Private Sub btn_runform2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_runform2.Click Dim frm As New Form2 frm.ShowDialog MsgBox(frm.txtTextBox1.Text) End Sub *in form2 Private Sub btn_close_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_close.Click Me.Close End Sub Private Sub btn_dispose_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_dispose.Click Me.Dispose End Sub شغل المشروع اكبس btn_runform2 سيظهر ال form2 اكتب بال textbox "ABC" ثم اضغط close سيختفي form2 لاحظ ال msgbox اكبس btn_runform2 سيظهر ال form2 اكتب بال textbox "ABC" ثم اضغط dispose سيختفي form2 لاحظ ال msgbox في حالة close ظلت كائنات ال form2 في الذاكرة في حالة ال dispose زالت نهائيا ارجو ان تكون الكتابة بالعربي مفهومة :)
  8. هناك طريقة لنفرض ان هناك 8 rows و 6 column ضع 48 Textbox في ال Form بحيث يكون اسم اول Textbox هو "Textbox1" و اخر Textbox هو "Textbox48" بالترتيب انا ساقرا من datatable موجود في dataset myTableAdapter.Fill(myDataSet.myTable) Dim number_of_column = 6 Dim number_or_rows = 8 Dim cont_num = 1 For ix = 0 to number_or_rows - 1 Me.Controls("Textbox" & (cont_num + 0).ToString).Text = myDataset.myTable.Rows(ix)("Field1") Me.Controls("Textbox" & (cont_num + 1).ToString).Text = myDataset.myTable.Rows(ix)("Field2") Me.Controls("Textbox" & (cont_num + 2).ToString).Text = myDataset.myTable.Rows(ix)("Field3") Me.Controls("Textbox" & (cont_num + 3).ToString).Text = myDataset.myTable.Rows(ix)("Field4") Me.Controls("Textbox" & (cont_num + 4).ToString).Text = myDataset.myTable.Rows(ix)("Field5") Me.Controls("Textbox" & (cont_num + 5).ToString).Text = myDataset.myTable.Rows(ix)("Field6") cont_num += number_of_column Next
  9. هناك طريقتين -1 عمل VPN 2- Install sql server on that far pc, add the access database as LINKED SERVER into the sql server 2- نصب sql server على pc البعيد, أضف قاعدة البيانات ACCESS الى SQL SERVER ك LINKED SERVER
  10. فهمت علبك بس لازم تعرف انه يوجد typed-dataset ,untyped-dataset, ADO connected, ADO disconnected, Linq, EF and Linq to Dataset كلها يمكن استعمالها للتعامل مع database انت لم ترفق ايا من data structure او code or او صورة لنعرف عن ماذا نجاوب. اذا امكن فسر اكتر او upload مشروعك
  11. كود الحفظ من داتا جريد فيو الى اكسس

    اعطيتك + 1 لانك علمتني ان كلمة transaction غير مقبولة في vb.net ولكنها مقبولة في داخل ال ACCESS ويجب تغييرها الى [transaction] - remove the " " from da.Fill(dataset1, " transaction") - include no_invoice in the INSERT - change the field "number" to "[number]" هذا هو المثال Fsayed.zip
  12. سؤال في قاعده بيانات sql

    ممكن و لكن 1- ما اسم الكمبيوتر قبل ال وبعد format -2 هل userid وال password و database name الخاصين بال sql server هم نفسهم بالقديم و الجديد
  13. كيف اعمل فورم داخل فورم

    اضف 3 الى form buttons, 1 panel Public Class Form13 Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Call CloseAllFormsInPanel() Dim frm As New Form ' Change 'New Form' to ' New your_form_name' frm.Text = "Form1" ' There is no need for this line, it is just for explanations frm.TopLevel = False frm.Dock = DockStyle.Fill Me.Panel1.Controls.Add(frm) frm.Show End Sub Private Sub Button2_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Call CloseAllFormsInPanel() Dim frm As New Form ' Change 'New Form' to ' New your_form_name' frm.Text = "Form2" ' There is no need for this line, it is just for explanations frm.TopLevel = False frm.Dock = DockStyle.Fill Me.Panel1.Controls.Add(frm) frm.Show End Sub Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Call CloseAllFormsInPanel() Dim frm As New Form ' Change 'New Form' to ' New your_form_name' frm.Text = "Form3" ' There is no need for this line, it is just for explanations frm.TopLevel = False frm.Dock = DockStyle.Fill Me.Panel1.Controls.Add(frm) frm.Show End Sub Sub CloseAllFormsInPanel For Each _ctrl As Control In Me.Panel1.Controls.OfType(Of Form) _ctrl.Dispose Next End Sub End Class
  14. ممكن تفسر؟
  15. الحجم الامثل لقاعدة البيانات

    ما يلي هو رايي الشخصي. اذا كنت ستظل تفكر هكذا؟ لح يشيب شعرك عا بكير :) اسأل حالك - ما هي نوعية برنامجك؟ - ما هي تقديراتك القصوى للوصول الى حجم كبير لقاعدة البيانات. - ما هو ثمن ال HDD 1000 GB? 100$ :)