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
(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() da = New SqlDataAdapter("select NameOfMov From MovTable where NameOfMov = " & Trim(NameSearchTB.Text) & "'", sqlcon)
da.Fill(MovieSearchdt)