[hassan]

(27-05-14, 01:25 AM)vb_net كتب :

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

كود :

' اليوزر نيم في تكست بوكس 1
        Dim Name As String = TextBox1.Text

        ' الباسورد في تكست بوكس 2
        Dim Pass As String = TextBox2.Text

        ' مسار الملف الدي ستخزن فيه البيانات
        Dim filename As String = "D:\data.txt"

        ' متغير الدي سينقل البيانات الى ملف تكست
        Dim str As StreamWriter = New StreamWriter(filename, True)

        ' تاكد ان الملف موجود
        If File.Exists(filename) = True Then

            ' ادا كان موجود يقوم بكتابة البيانات فيه
            str.WriteLine("UserName: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text)

            ' واغلاق الملف بعد الكتابة
            str.Close()

        Else

            ' ادا لم يكن الملف موجود يتم انشائه
            Dim str1 As StreamWriter = New StreamWriter("D:\data.txt")

            ' يتم كتابة البيانات فيه الملف
            str.WriteLine("UserName: " & TextBox1.Text & vbNewLine & "Password: " & TextBox2.Text)

            ' اغلاق الملف بعد الكتابة
            str.Close()

        End If

يعطيك العافيه ما تقصر بس هل ممكن انك تشوف لي طريقة عن طريق قاعدة البيانات لنه صراحة الموضوع فيه فلوس هههههههههه فا ما ابي احد يلعب في البيانات اذا تقدر تشرح لي اكون شاكر لك