ماهو الكود الصحيح لحفظ البيانات في الفورم بالفيجوال بيسك .نت في Access database

[Al_HaNeEn]

السلام عليكم ورحمه الله وبركاته
انا عندي مشرووع وعامله الكود لحفظ البيانات عن طريق Notepad

 If (TextBox3.Text = TextBox4.Text) And (TextBox3.Text.Length >= 1) Then
            Dim userdatar As IO.StreamReader = IO.File.OpenText("user&pass.txt")
            Dim userdataw As IO.StreamWriter = IO.File.AppendText("C:\temp.txt")
            Do While (userdatar.Peek <> -1)
                username = userdatar.ReadLine()
                password = userdatar.ReadLine()
                If TextBox1.Text <> username Then
                    userdataw.WriteLine(username)
                    userdataw.WriteLine(password)
                End If
            Loop
            userdatar.Close()
            userdataw.Close()
            IO.File.Delete("user&pass.txt")
            IO.File.Move("C:\temp.txt", "user&pass.txt")
            Dim userdataappend As IO.StreamWriter = IO.File.AppendText("user&pass.txt")
            userdataappend.WriteLine(TextBox1.Text)
            userdataappend.WriteLine(TextBox3.Text)
            original()
            Labe()
            userdataappend.Close()
        ElseIf (TextBox3.Text = TextBox4.Text) And (TextBox3.Text.Length < 1) Then
            MsgBox("يجب ادخال ستة حروف على الأقل", 48, "تنبيه")
            clear()
        Else
            MsgBox("تأكد من كتابة إعادة اسم المرور الجديدة بشكل صحيح", 48, "تنبيه")
            clear()
        End If 

وشغال تمام لكن مطلوب الان بطريقه ثانيه كيف احفظه في Access database

اتمنى من ذوي الخبره يفيدوني بالطريقه
___________
دمتو بخير

[startnet]

في النموذج في خانه عام قم باضافه
Imports System.Data
Imports System.Data.OleDb

ثم ادرج الكود التالي في زر الحفظ

       Try
            Dim Savecommand As New OleDb.OleDbCommand
            ' startnet.mdb اسم قاعده البيانات

            Dim connectionstring As String = _
                "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
                Application.StartupPath & "\startnet.mdb"
            Dim newconnection As New OleDbConnection(connectionstring)
            Savecommand.Connection = newconnection
            Savecommand.CommandType = CommandType.Text
            'Tb1اسم الجدول 
            'linkadd اسم الحقل
            Savecommand.CommandText = "INSERT INTO TB1(linkAdd)" & _
            "values ('" & TextBox1.Text & "') "
            ' TextBox1 اسم مربع النص في الفورم
            newconnection.Open()
            Savecommand.ExecuteNonQuery()
            newconnection.Close()
            MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
        Catch ex As Exception
            Exit Sub
        End Try

وهذا مشروع كنت اجرب عليه

[Al_HaNeEn]

الله يعطيك العافيه ويقويك ويجزاك خيراً

اخي الكريم الكود ماشتغل معاي لكن فهمت الفكره منه وعملت على التعديل فيه بمايناسبني
لكن ظهرت لي مشكله على جميع الاكواد الموجوده بالفورم

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

تظهر هذه الرساله وهذه صوره لها

وهذا الكود بعد التعديل

[center]    x.Connection = con
        x.CommandType = CommandType.Text
        con.Open()
        If (TextBox3.Text = TextBox4.Text) And (TextBox3.Text.Length >= 6) Then
            Dim connectionstring As String = "select * from Users where EUserName='" & TextBox1.Text & "' and EPassword='" & TextBox2.Text & "'"
            ' x.CommandText = "Insert into Users values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
            x.CommandText = "update Users set EPassword='" & TextBox3.Text & "'where(EUserName= '" & TextBox1.Text & ")"
            x.ExecuteNonQuery()
            original()
            Labe()
        ElseIf (TextBox3.Text = TextBox4.Text) And (TextBox3.Text.Length < 6) Then
            MsgBox("يجب ادخال ستة حروف على الأقل", 48, "تنبيه")
            clear()
        Else
            MsgBox("تأكد من كتابة إعادة اسم المرور الجديدة بشكل صحيح", 48, "تنبيه")
            clear()
            con.Close()
        End If
[/center] 

واستخدمت خاصية Handling Exceptions

يتم تنفيذ الامر وبعدها تعلق الفورم
_______
دمتو بخير

[startnet]

اخي العزيز
الله اعلم ماهو الخطاء الذي ظهر لك , اذا كان لديك مثال ممكن تقوم بارفاقه لمعرفه السبب .
نحن هنا نتعامل مع قواعد البيانات اكسس بشكل عام لكن جرب هذا الرابط
http://www.php4syria.com/vb/showthread.php?t=4077
ممكن تجد حل لمشكلتك

[قــاهــر الأكــسـس]

كبير من يوم يومك يا بوفيصل

كود جميل وإحترافي , الله يزدك من علمه


وفق الله الجميع

[MOHAMAN]

أي و الله ... ربنا يعطيك لريضيك ...

[startnet]

جزاكم الله كل خير اخواني على الكلام الطيب
مما يسعدني تواجدي معكم
اسال الله العلي العظيم ان يغفر لنا جيمعا