30-10-16, 08:07 PM
(آخر تعديل لهذه المشاركة : 30-10-16, 08:40 PM {2} بواسطة العواد الصغير.)
(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
سبحان الله والحمد لله ولا اله الا الله والله اكبر
