[الطالب]

سلام

هذه اضافه حفظ وقراء وتحديث محتوى ritchtextbox الموجود المثال اللي وضعه اخونا عبدالله
http://3ixgfx32po625qmg71336d5w.wpengine...ordPad.rar

اضف ثلاث ازارير واحد للحفظ والثان للقراء والثالث للتحديث
تجب وضع قاعدت بيانات اكسس فيها جدول wordpad وفيه حقلان الاول اسمه docname نوعه نص ويكون مفتاح لعدم السماح ياتكرار الاسماء والحقل الثاني اسمه rtf ونوعه مذكره

كود :

#Region " RichTextBox1 to Database "

    Private connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=Database1.accdb"
    Dim docName As String = ""

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dn As String = InputBox("أدخل اسم المستند للحفظ")
        If dn.Trim <> "" Then
            docName = dn
            If InsertWordPadDocument(docName, RichTextBox1.Rtf) Then
                MsgBox("تم الحفظ")
            End If
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dn As String = InputBox("أدخل اسم المستند للعرض")
        If dn.Trim <> "" Then
            docName = dn
            RichTextBox1.Rtf = SelectWordPadDocument(docName)
        End If
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("هل تريد تحديث المستند:" & docName, MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            If UpdateWordPadDocument(docName, RichTextBox1.Rtf) Then
                MsgBox("تم التحديث")
            End If
        End If
    End Sub


    Private Function SelectWordPadDocument(ByVal docName As String) As String
        Using conn As New OleDb.OleDbConnection(connectionString)
            Using cmd As New OleDb.OleDbCommand("SELECT [rtf] FROM [wordpad] WHERE [docname]=@docName", conn)
                cmd.Parameters.AddWithValue("@docName", docName)
                conn.Open()
                Return cmd.ExecuteScalar
                conn.Close()
            End Using
        End Using
    End Function

    Private Function InsertWordPadDocument(ByVal docName As String, ByVal rtf As String) As Boolean
        Using conn As New OleDb.OleDbConnection(connectionString)
            Using cmd As New OleDb.OleDbCommand("INSERT INTO [wordpad] ( [docName], [rtf]) VALUES ( @docName, @rtf)", conn)
                cmd.Parameters.AddWithValue("@docName", docName)
                cmd.Parameters.AddWithValue("@rtf", rtf)
                conn.Open()
                Return If(cmd.ExecuteNonQuery > 0, True, False)
                conn.Close()
            End Using
        End Using
    End Function

    Private Function UpdateWordPadDocument(ByVal docName As String, ByVal rtf As String) As Boolean
        Using conn As New OleDb.OleDbConnection(connectionString)
            Using cmd As New OleDb.OleDbCommand("UPDATE [wordpad] SET [rtf]=@rtf WHERE [docName]=@docName", conn)
                cmd.Parameters.AddWithValue("@rtf", rtf)
                cmd.Parameters.AddWithValue("@docName", docName)
                conn.Open()
                Return If(cmd.ExecuteNonQuery > 0, True, False)
                conn.Close()
            End Using
        End Using
    End Function

#End Region

موفقين