هل جربت نوع VarChar(Max)
لاني جربت الان ويحفظ ولا مشكلة.
جربت باستخدام DataRow
لاني جربت الان ويحفظ ولا مشكلة.
جربت باستخدام DataRow
PHP كود :
Public Class Form1
Dim str As String = "Data Source=.;Initial Catalog=ndb;Integrated Security=True;MultipleActiveResultSets=True;"
Dim con As New SqlClient.SqlConnection(str)
Dim da As New SqlClient.SqlDataAdapter("select * from tb", con)
Dim cm As New SqlClient.SqlCommandBuilder(da)
Dim dt As New DataTable
Private Sub gd()
ListBox1.DataSource = Nothing
ListBox1.Items.Clear()
da.Fill(dt)
ListBox1.DataSource = dt
ListBox1.DisplayMember = "title"
Button1.Enabled = True
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If TextBox1.Text.Trim = "" Or TextBox2.Text.Trim = "" Then Beep() : Exit Sub
Button1.Enabled = False
Dim row As DataRow = dt.NewRow
row(1) = TextBox1.Text
row(2) = TextBox2.Text
dt.Rows.Add(row)
da.Update(dt)
TextBox1.Clear()
TextBox2.Clear()
gd()
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
If ListBox1.Items.Count = 0 Then Exit Sub
If ListBox1.SelectedIndex < 0 Then Exit Sub
TextBox1.Clear()
TextBox2.Clear()
Dim index As Integer = ListBox1.SelectedIndex
TextBox1.Text = dt(index)(1)
TextBox2.Text = dt(index)(2)
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
gd()
End Sub
End Class
ماهو الكود الذي استخدمته للحفظ
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير

