السلام عليكم ورحمة الله وبركاته
لدي جدول فيه حوالي 40 حقل عشرة منها مطلوبة والباقي اختياري
وضعت جملة INSERT INTO وتفاجئت برسالة خطا تقول عليك تعبئة البارمترات كاملة
السؤال ما هو الحل الانسب ان تركت احد البارمترات فارغة ان يكمل الحفظ دون مشاكل
استخدم مربعات النصوص للتعبئة وشكرا
جملة Insert into
تطلب
جدول
حقل
قيمة
لنفرض عندي جدول Table1 يه خمسة حقول من field1 إلى Field5
يلزمني فقط اضيف في حقلين فقط
راح يكون كالتالي
Insert Into Table1
(Field1,Field2)
Values
(@Field1,@Field2)
لابد من تساوي عدد الحقول مع عدد باراميترات القيم
بالتوفيق
(29-10-16, 05:11 PM)أبو عمر كتب : [ -> ]جملة Insert into
تطلب
جدول
حقل
قيمة
لنفرض عندي جدول Table1 يه خمسة حقول من field1 إلى Field5
يلزمني فقط اضيف في حقلين فقط
راح يكون كالتالي
Insert Into Table1
(Field1,Field2)
Values
(@Field1,@Field2)
لابد من تساوي عدد الحقول مع عدد باراميترات القيم
بالتوفيق
حياك الله ابو عمر الغالي
اولا جزاك الله خيرا على الرد السريع
حسب كلامك يجب ان اضع شروط كثيرة لاتاكد من ان مربعات النص فارغة او ممتلئة حاولت ان اضيف عن طريق
الداتا غريد ولكنه ايضا منعني لان الداتا غريد مرتبطة بالداتا ست فلم يقبل بسجل جديد
برايك يجب علي وضع شروط للتحقق من مربعات النصوص ثم على عددها اضع البارمترات
ام هناك طريقة افضل وشكرا
الله يحييك ويعلي قدرك
طريقة أفضل؟ لا اعتقد لاني حاولت تقديم الافضل
لكن
ارفع مثال لمشكلتك و إن شاء الله تجد اكثر من حل لها
وفقك الله
شكرا على ردك اخ ابو عمر ساجهز مثالا وارفعه باذن الله
السلام عليكم
اعطي قيم افتراضية NUL للبراميترات يعني في حال المستخدم اعطى قيم يعتمدها البرنامج ام اذا لم يعطي فتاخذ NULL
(30-10-16, 07:13 PM)عدنان الشمري كتب : [ -> ]السلام عليكم
اعطي قيم افتراضية NUL للبراميترات يعني في حال المستخدم اعطى قيم يعتمدها البرنامج ام اذا لم يعطي فتاخذ NULL
لم تفلح لان بعض الحقول guid عندما يراها فارغة يجن حنونه
الحقل d6 اي اخر بارمتر هو اختياري ولكن حين يكون فارغا لا يكمل الحفظ
والحقل من نوع guid
وشكرا سلفا
كود :
Imports System.Data.SqlClient
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
( Sub addtabel0222(ByVal txt1 As String
Dim cnn As New SqlConnection(" Data Source= DESKTOP-FII71F3;Initial Catalog= A_W_E_H ;Integrated Security=True")
Dim d11 As String = "d128a885-6d69-4058-892e-8a57496db9bc"
Dim d21 As String = "fg58e4b-69b5-43e9-9873-697091c98591"
Dim d41 As String = "rd058e4b-69b5-43e9-9873-697091c98591"
Dim d61 As String = ""
Try
Dim SavInto1 As New SqlCommand
SavInto1.Connection = cnn 'اسناد الاتصال الى المتغير الخاص بالاضافة
SavInto1.CommandType = CommandType.Text
SavInto1.CommandText = "INSERT INTO TBLbbb( d1, d2,d3,d4,d5,d6)" &
"values ('" & d11 & "','" & d21 & "','" & "2016-09-14" & "','" & d41 & "','" & txt1 & "','" & d61 & "') "
cnn.Open() 'فتح قاعدة البيانات
SavInto1.ExecuteNonQuery() ' الحفظ بقاعدة البيانات
cnn.Close()
Catch ex As Exception
MsgBox("هناك خطا" & Chr(13) & Err.Number & Chr(13) & ex.Message)
End Try
End Sub
End Class