11-04-17, 06:47 PM
دلوقتى عايز احفظ البيانات فى القاعدة البيانات بس كل ماجى احفظ يقولى فى خطاء فى الكود ده
ده الكود بالكامل
ده الكود بالكامل
كود :
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