[ZaerAllail]

(06-04-20, 01:57 PM)سعود كتب : هل جربت نوع VarChar(Max)
لاني جربت الان ويحفظ ولا مشكلة.

جربت باستخدام 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 


---

ماهو الكود الذي استخدمته للحفظ

كود الحفظ هو التالي

كود :

       Dim cmd As New SqlCommand("insert into MovTable (MovNo,NameOfMov) values (@MovNo,@NameOfMov)", sqlcon)

       cmd.Parameters.Add(New SqlParameter("@MovNo", SqlDbType.Int)).Value = MovNomLabel.Text
       cmd.Parameters.Add(New SqlParameter("@NameOfMov", SqlDbType.NVarChar)).Value = Trim(NameOfMovTB.Text)

       sqlcon.Open()
       cmd.ExecuteNonQuery()
       MsgBox("تم حفظ البيانات بنجاح", vbInformation, "Movies Store")
       sqlcon.Close()

وعموما شي جميل أخ سعود ربي يحفظك 

لنفترض أنك تريد قبل الحفظ البحث عن إسم (men's) هل هو موجود في قاعدة البيانات أم لا فما هي صيغة الكود المطلوب ؟
أنا أستخدم هذا الكود للبحث عن الأسماء قبل حفظها وتعود لي النتيجة بأن الإسم موجود أو غير موجود 

كود :

       da = New SqlDataAdapter("select NameOfMov From MovTable where NameOfMov = " & Trim(NameSearchTB.Text) & "'", sqlcon)
       da.Fill(MovieSearchdt)

وإذا كان الإسم يحتوي على الفاصلة المذكورة (') يتم رفض البحث مسبقاً
فهل من الممكن صياغة كود البحث بنفس الطريقة لتتم العملية ؟


عموما تسلم يا رائع حفظك الله