تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة فى كود sql
#1
دلوقتى عايز احفظ البيانات فى القاعدة البيانات بس كل ماجى احفظ يقولى فى خطاء فى الكود ده


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

كود :
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

الرد
تم الشكر بواسطة:
#2
معلونة لم يستطع الكود تحويلها من نص الى رقم

هذا تعديل
PHP كود :
With cmd.Parameters
           
.AddWithValue("@land_line"TextBox1.Text
           .
AddWithValue("@[N1-landline]"TextBox2.Text)
           .
AddWithValue("@N"TextBox3.Text)
           .
AddWithValue("@Address"TextBox4.Text)
           .
AddWithValue("@mobile_number"TextBox5.Text)
           .
AddWithValue("@National_ID"TextBox6.Text)
           .
AddWithValue("@Package_type"ComboBox2.Text)
       
End With 

لكن اجعل الادوات التي المفروض تحتوي رقم في Val مثل
PHP كود :
.AddWithValue("@mobile_number"Val(TextBox5.Text)) 
الرد
تم الشكر بواسطة:
#3
نفس المشكلة
الرد
تم الشكر بواسطة:
#4
حدد نوع كل عمود لنعرف المشكلة
الرد
تم الشكر بواسطة:
#5
نوع كل عمود فى قاعدة البيانات ؟


عايز اعمل سجل جديد
الرد
تم الشكر بواسطة:
#6
عندك land_line وSubscription price وmobile_number وNational_ID هذه كلها ارقام لازم تتاكد ان الأداوات الخاصة بها تحتوي ارقام فقط
وعندك signup date تاريخ لازم تتاكد الاداة الخاصة بها تحتوي تاريخ صحيح
الرد
تم الشكر بواسطة:
#7
معلش انا لسه جديد فى قواعد البيانات ممكن تقولى يعنى اتاكد ازاى ؟
الرد
تم الشكر بواسطة:
#8
(11-04-17, 08:04 PM)abdualla كتب : لكن اجعل الادوات التي المفروض تحتوي رقم في Val مثل
PHP كود :
.AddWithValue("@mobile_number"Val(TextBox5.Text)) 

يعني الشغلة ما هي قواعد بيانات
الشغلة تحويل نوع أي بيانات في الفجوال بيسك
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في اتجاه التاريخ في التكست بوكس أبووسم 4 52 منذ 10 ساعة مضت
آخر رد: حريف برمجة
  مشكلة في كرستال ريبورت لما انقله لجهاز اخر a.baomar 10 164,917 21-04-18, 11:42 AM
آخر رد: ملهمـ
  مشكلة في الإتصال بقاعدة الAccess ارجوكم مساعدة فراس صلاح 1 63 20-04-18, 09:20 PM
آخر رد: elmezo
  [نقاش] عندك مشكلة فى كود او البرنامج مش شغال تعالا هنا elmezo 1 52 20-04-18, 11:49 AM
آخر رد: عبدالرحمن المكاوي
Lightbulb مشكلة عند حفظ الفاتورة atef_020 19 325 18-04-18, 08:44 PM
آخر رد: ismail abdullah
  المساعدة - في حل مشكلة حجم الفورم Mohamed El Meziani 1 63 18-04-18, 02:39 AM
آخر رد: ملهمـ
  [كود] حل مشكلة داتا سورس (ليست بوكس ) عبدالرحمن المكاوي 7 633 16-04-18, 08:36 PM
آخر رد: عبدالرحمن المكاوي
  حل مشكلة في الفيجوال بيسك عبدالرحمن المكاوي 5 62 16-04-18, 11:33 AM
آخر رد: عبدالرحمن المكاوي
  مشكلة فى اضافة windows media player محمد البلتاجى 2 55 15-04-18, 10:01 AM
آخر رد: ابو روضة
Rainbow مشكلة تشغيل من اليوتيوب vb.net aldery 2 85 12-04-18, 07:38 PM
آخر رد: aldery

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم