[MOSTAFA.KAMEL]

دلوقتى عايز احفظ البيانات فى القاعدة البيانات بس كل ماجى احفظ يقولى فى خطاء فى الكود ده


ده الكود بالكامل

كود :

Imports System.Data
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Public Class Form2
   Dim conn As New SqlConnection("Data Source=DESKTOP-C3FPNGU;Initial Catalog=New_customer;Integrated Security=true")
   Dim da As New SqlDataAdapter
   Dim ds As New DataSet
   Dim cmd As New SqlCommand

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       cmd = New SqlCommand("INSERT INTO Customer(land_line, [N1-landline], N, Address, mobile_number, National_ID, Package_type) VALUES (@land_line," &
          "  @[N1-landline], @N, @Address, @obile_number, @National_ID, @Package_type)", conn)



       With cmd.Parameters
           .AddWithValue("@land_line", TextBox1.Text).DbType = DbType.Double
           .AddWithValue("@[N1-landline]", TextBox2.Text).DbType = DbType.String
           .AddWithValue("@N", TextBox3.Text).DbType = DbType.String
           .AddWithValue("@Address", TextBox4.Text).DbType = DbType.String
           .AddWithValue("@mobile_number", TextBox5.Text).DbType = DbType.Double
           .AddWithValue("@National_ID", TextBox6.Text).DbType = DbType.Double
           .AddWithValue("@Package_type", ComboBox2.Text).DbType = DbType.Double

       End With
       If conn.State = ConnectionState.Open Then
           conn.Close()
       End If
       conn.Open()
       cmd.ExecuteNonQuery()
       conn.Close()

   End Sub

   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Dim da As New SqlDataAdapter("SELECT * FROM Customer", conn)
       da.Fill(ds, "Customer")

   End Sub
End Class