+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر (/showthread.php?tid=17833)
استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - العواد الصغير - 29-10-16
السلام عليكم ورحمة الله وبركاته
لدي جدول فيه حوالي 40 حقل عشرة منها مطلوبة والباقي اختياري
وضعت جملة INSERT INTO وتفاجئت برسالة خطا تقول عليك تعبئة البارمترات كاملة
السؤال ما هو الحل الانسب ان تركت احد البارمترات فارغة ان يكمل الحفظ دون مشاكل
استخدم مربعات النصوص للتعبئة وشكرا
RE: استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - أبو عمر - 29-10-16
جملة Insert into
تطلب
جدول
حقل
قيمة
لنفرض عندي جدول Table1 يه خمسة حقول من field1 إلى Field5
يلزمني فقط اضيف في حقلين فقط
راح يكون كالتالي
Insert Into Table1
(Field1,Field2)
Values
(@Field1,@Field2)
لابد من تساوي عدد الحقول مع عدد باراميترات القيم
بالتوفيق
RE: استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - العواد الصغير - 29-10-16
(29-10-16, 05:11 PM)أبو عمر كتب : جملة Insert into
تطلب
جدول
حقل
قيمة
لنفرض عندي جدول Table1 يه خمسة حقول من field1 إلى Field5
يلزمني فقط اضيف في حقلين فقط
راح يكون كالتالي
Insert Into Table1
(Field1,Field2)
Values
(@Field1,@Field2)
لابد من تساوي عدد الحقول مع عدد باراميترات القيم
بالتوفيق
حياك الله ابو عمر الغالي
اولا جزاك الله خيرا على الرد السريع
حسب كلامك يجب ان اضع شروط كثيرة لاتاكد من ان مربعات النص فارغة او ممتلئة حاولت ان اضيف عن طريق
الداتا غريد ولكنه ايضا منعني لان الداتا غريد مرتبطة بالداتا ست فلم يقبل بسجل جديد
برايك يجب علي وضع شروط للتحقق من مربعات النصوص ثم على عددها اضع البارمترات
ام هناك طريقة افضل وشكرا
RE: استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - أبو عمر - 29-10-16
الله يحييك ويعلي قدرك
طريقة أفضل؟ لا اعتقد لاني حاولت تقديم الافضل
لكن
ارفع مثال لمشكلتك و إن شاء الله تجد اكثر من حل لها
وفقك الله
RE: استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - العواد الصغير - 29-10-16
شكرا على ردك اخ ابو عمر ساجهز مثالا وارفعه باذن الله
RE: استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - عدنان الشمري - 30-10-16
السلام عليكم
اعطي قيم افتراضية NUL للبراميترات يعني في حال المستخدم اعطى قيم يعتمدها البرنامج ام اذا لم يعطي فتاخذ NULL
RE: استشارة بطريقة الحفظ بقواعد البيانات سكول سيرفر - العواد الصغير - 30-10-16
(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