تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اريد مساعدة في اضافة بيانات في قاعدة بيانات sql
#1
السلام عليكم ورحمة الله وبركاته

اخواني انا عندي كود في زر رقم 1 اضافة بيانات في قاعدة بيانات SQL وعندي كود تعديل البياانات في كود زر رقم 2 ،، اريد فقط ان ادمجهم في زر واحد يعني اذا وجد في فراغ Textbox رقم ID يعني انه يعدل اما اذا لم يوجد رقم ID يعني حفظ جديد ،،، مع العلم اني جربت اوامر IF ولم تنجح لانه الكوديين متشابهيين .

هذا كود الحفظ كاملا ،،

كود :
Dim cm As New SqlCommand("[color=#FF0000]insert into Table1[/color] (UserName,MobileNumber,Date,Price,Rest,Recipient,NameShop,PlaceShop,UserShop,Email,NumberDresses,ColorDress1,TypeCloth1,TypeDesign1,TypePocket1,IDCloth1,LengthM1,LengthY1,ColorDress2,TypeCloth2,TypeDesign2,TypePocket2,IDCloth2,LengthM2,LengthY2,ColorDress3,TypeCloth3,TypeDesign3,TypePocket3,IDCloth3,LengthM3,LengthY3,LengthDress,DisplayKtf,DisplayDress,LengthKmSadh,LengthKmKbk,DisplayKmSadh1,DisplayKmSadh2,DisplayKmSadh3,DisplayKmKbk1,DisplayKmKbk2,DisplayKmKbk3,RakbhKllab1,RakbhKllab2,RakbhSadh1,RakbhSadh2,DownDress1,DownDress2,LengthKbzor,Other,Img1U1,Img2U1,Img3U1,Img4U1,Img1U2,Img2U2,Img3U2,Img4U2,Img1U3,Img2U3,Img3U3,Img4U3) values (@UserName,@MobileNumber,@Date,@Price,@Rest,@Recipient,@NameShop,@PlaceShop,@UserShop,@Email,@NumberDresses,@ColorDress1,@TypeCloth1,@TypeDesign1,@TypePocket1,@IDCloth1,@LengthM1,@LengthY1,@ColorDress2,@TypeCloth2,@TypeDesign2,@TypePocket2,@IDCloth2,@LengthM2,@LengthY2,@ColorDress3,@TypeCloth3,@TypeDesign3,@TypePocket3,@IDCloth3,@LengthM3,@LengthY3,@LengthDress,@DisplayKtf,@DisplayDress,@LengthKmSadh,@LengthKmKbk,@DisplayKmSadh1,@DisplayKmSadh2,@DisplayKmSadh3,@DisplayKmKbk1,@DisplayKmKbk2,@DisplayKmKbk3,@RakbhKllab1,@RakbhKllab2,@RakbhSadh1,@RakbhSadh2,@DownDress1,@DownDress2,@LengthKbzor,@Other,@Img1U1,@Img2U1,@Img3U1,@Img4U1,@Img1U2,@Img2U2,@Img3U2,@Img4U2,@Img1U3,@Img2U3,@Img3U3,@Img4U3)", Conn)

        cm.Parameters.AddWithValue("@UserName", (TextBox1.Text)).ToString()
        cm.Parameters.AddWithValue("@MobileNumber", (TextBox2.Text)).ToString()
        cm.Parameters.AddWithValue("@Date", CDate(TextBox7.Text)).ToString()
        cm.Parameters.AddWithValue("@Price", (TextBox45.Text)).ToString()
        cm.Parameters.AddWithValue("@Rest", (TextBox46.Text)).ToString()
        cm.Parameters.AddWithValue("@Recipient", (TextBox47.Text)).ToString()
        cm.Parameters.AddWithValue("@NameShop", (TextBox4.Text)).ToString()
        cm.Parameters.AddWithValue("@PlaceShop", (TextBox5.Text)).ToString()
        cm.Parameters.AddWithValue("@UserShop", (TextBox6.Text)).ToString()
        cm.Parameters.AddWithValue("@Email", (TextBox3.Text)).ToString()
        cm.Parameters.AddWithValue("@NumberDresses", (TextBox71.Text)).ToString()
        cm.Parameters.AddWithValue("@ColorDress1", (TextBox8.Text)).ToString()
        cm.Parameters.AddWithValue("@TypeCloth1", (TextBox9.Text)).ToString()
        cm.Parameters.AddWithValue("@TypeDesign1", (TextBox10.Text)).ToString()
        cm.Parameters.AddWithValue("@TypePocket1", (TextBox11.Text)).ToString()
        cm.Parameters.AddWithValue("@IDCloth1", (TextBox20.Text)).ToString()
        cm.Parameters.AddWithValue("@LengthM1", (TextBox21.Text))
        cm.Parameters.AddWithValue("@LengthY1", (TextBox87.Text))
        cm.Parameters.AddWithValue("@ColorDress2", (TextBox15.Text)).ToString()
        cm.Parameters.AddWithValue("@TypeCloth2", (TextBox14.Text)).ToString()
        cm.Parameters.AddWithValue("@TypeDesign2", (TextBox13.Text)).ToString()
        cm.Parameters.AddWithValue("@TypePocket2", (TextBox12.Text)).ToString()
        cm.Parameters.AddWithValue("@IDCloth2", (TextBox22.Text)).ToString()
        cm.Parameters.AddWithValue("@LengthM2", Val(TextBox23.Text))
        cm.Parameters.AddWithValue("@LengthY2", Val(TextBox88.Text))
        cm.Parameters.AddWithValue("@ColorDress3", (TextBox19.Text)).ToString()
        cm.Parameters.AddWithValue("@TypeCloth3", (TextBox18.Text)).ToString()
        cm.Parameters.AddWithValue("@TypeDesign3", (TextBox17.Text)).ToString()
        cm.Parameters.AddWithValue("@TypePocket3", (TextBox16.Text)).ToString()
        cm.Parameters.AddWithValue("@IDCloth3", (TextBox24.Text)).ToString()
        cm.Parameters.AddWithValue("@LengthM3", Val(TextBox25.Text))
        cm.Parameters.AddWithValue("@LengthY3", Val(TextBox89.Text))
        cm.Parameters.AddWithValue("@LengthDress", (TextBox26.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKtf", (TextBox27.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayDress", (TextBox28.Text)).ToString()
        cm.Parameters.AddWithValue("@LengthKmSadh", (TextBox29.Text)).ToString()
        cm.Parameters.AddWithValue("@LengthKmKbk", (TextBox30.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKmSadh1", (TextBox31.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKmSadh2", (TextBox32.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKmSadh3", (TextBox33.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKmKbk1", (TextBox34.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKmKbk2", (TextBox35.Text)).ToString()
        cm.Parameters.AddWithValue("@DisplayKmKbk3", (TextBox36.Text)).ToString()
        cm.Parameters.AddWithValue("@RakbhKllab1", (TextBox37.Text)).ToString()
        cm.Parameters.AddWithValue("@RakbhKllab2", (TextBox39.Text)).ToString()
        cm.Parameters.AddWithValue("@RakbhSadh1", (TextBox40.Text)).ToString()
        cm.Parameters.AddWithValue("@RakbhSadh2", (TextBox41.Text)).ToString()
        cm.Parameters.AddWithValue("@DownDress1", (TextBox42.Text)).ToString()
        cm.Parameters.AddWithValue("@DownDress2", (TextBox43.Text)).ToString()
        cm.Parameters.AddWithValue("@LengthKbzor", (TextBox44.Text)).ToString()
        cm.Parameters.AddWithValue("@Other", (TextBox38.Text)).ToString()





        If IsNothing(PictureBox2.Image) = False Then
            Dim picStream2 As New MemoryStream

            PictureBox2.Image.Save(picStream2, ImageFormat.Gif)

            Dim PicByte2 As Byte() = picStream2.ToArray
            cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2

        Else
            Dim PicByte2 As New Byte
            cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox3.Image) = False Then
            Dim picStream3 As New MemoryStream

            PictureBox3.Image.Save(picStream3, ImageFormat.Gif)

            Dim PicByte3 As Byte() = picStream3.ToArray
            cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3

        Else
            Dim PicByte3 As New Byte
            cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox4.Image) = False Then
            Dim picStream4 As New MemoryStream

            PictureBox4.Image.Save(picStream4, ImageFormat.Gif)

            Dim PicByte4 As Byte() = picStream4.ToArray
            cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4

        Else
            Dim PicByte4 As New Byte
            cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox5.Image) = False Then
            Dim picStream5 As New MemoryStream

            PictureBox5.Image.Save(picStream5, ImageFormat.Gif)

            Dim PicByte5 As Byte() = picStream5.ToArray
            cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5

        Else
            Dim PicByte5 As New Byte
            cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox6.Image) = False Then
            Dim picStream6 As New MemoryStream

            PictureBox6.Image.Save(picStream6, ImageFormat.Gif)

            Dim PicByte6 As Byte() = picStream6.ToArray
            cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6

        Else
            Dim PicByte6 As New Byte
            cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox7.Image) = False Then
            Dim picStream7 As New MemoryStream

            PictureBox7.Image.Save(picStream7, ImageFormat.Gif)

            Dim PicByte7 As Byte() = picStream7.ToArray
            cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7

        Else
            Dim PicByte7 As New Byte
            cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox8.Image) = False Then
            Dim picStream8 As New MemoryStream

            PictureBox8.Image.Save(picStream8, ImageFormat.Gif)

            Dim PicByte8 As Byte() = picStream8.ToArray
            cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8

        Else
            Dim PicByte8 As New Byte
            cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox9.Image) = False Then
            Dim picStream9 As New MemoryStream

            PictureBox9.Image.Save(picStream9, ImageFormat.Gif)

            Dim PicByte9 As Byte() = picStream9.ToArray
            cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9

        Else
            Dim PicByte9 As New Byte
            cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9

        End If
        '------------------------------------------------------------------------------------------------------

        If IsNothing(PictureBox10.Image) = False Then
            Dim picStream10 As New MemoryStream

            PictureBox10.Image.Save(picStream10, ImageFormat.Gif)

            Dim PicByte10 As Byte() = picStream10.ToArray
            cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10

        Else
            Dim PicByte10 As New Byte
            cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10

        End If
        '------------------------------------------------------------------------------------------------------

        If IsNothing(PictureBox11.Image) = False Then
            Dim picStream11 As New MemoryStream

            PictureBox11.Image.Save(picStream11, ImageFormat.Gif)

            Dim PicByte11 As Byte() = picStream11.ToArray
            cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11

        Else
            Dim PicByte11 As New Byte
            cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox12.Image) = False Then
            Dim picStream12 As New MemoryStream

            PictureBox12.Image.Save(picStream12, ImageFormat.Gif)

            Dim PicByte12 As Byte() = picStream12.ToArray
            cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12

        Else
            Dim PicByte12 As New Byte
            cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12

        End If
        '------------------------------------------------------------------------------------------------------
        If IsNothing(PictureBox13.Image) = False Then
            Dim picStream13 As New MemoryStream

            PictureBox13.Image.Save(picStream13, ImageFormat.Gif)

            Dim PicByte13 As Byte() = picStream13.ToArray
            cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13

        Else
            Dim PicByte13 As New Byte
            cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13

        End If
        '------------------------------------------------------------------------------------------------------

        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
        cm.ExecuteNonQuery()
        cm.Parameters.Clear()
        Me.RefreshListView()
        MessageBox.Show("تم الحفظ والإضافة بنجاح", "تم", MessageBoxButtons.OK, MessageBoxIcon.Information)








        On Error Resume Next
        For i1 As Integer = 0 To ListView2.Items.Count - 1
            If ListView2.Items.Item(i1).SubItems(0).Text = TextBox20.Text Then
                ListView2.Items.Item(i1).SubItems(4).Text = Val(ListView2.Items.Item(i1).SubItems(4).Text) - Val(TextBox21.Text)
                ListView2.Items.Item(i1).SubItems(5).Text = Val(ListView2.Items.Item(i1).SubItems(5).Text) - Val(TextBox87.Text)

                Dim cm1 As New SqlCommand("update Table2 set LengthM=@LengthM,LengthY=@LengthY where ID=" & TextBox20.Text, Conn)
                cm1.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = ListView2.Items.Item(i1).SubItems(4).Text
                cm1.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = ListView2.Items.Item(i1).SubItems(5).Text


            End If
        Next





        On Error Resume Next
        For i11 As Integer = 0 To ListView2.Items.Count - 1
            If ListView2.Items.Item(i11).SubItems(0).Text = TextBox22.Text Then
                ListView2.Items.Item(i11).SubItems(4).Text = Val(ListView2.Items.Item(i11).SubItems(4).Text) - Val(TextBox23.Text)
                ListView2.Items.Item(i11).SubItems(5).Text = Val(ListView2.Items.Item(i11).SubItems(5).Text) - Val(TextBox88.Text)

                Dim cm11 As New SqlCommand("update Table2 set LengthM=@LengthM,LengthY=@LengthY where ID=" & TextBox22.Text, Conn)
                cm11.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = ListView2.Items.Item(i11).SubItems(4).Text
                cm11.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = ListView2.Items.Item(i11).SubItems(5).Text

            End If
        Next





        On Error Resume Next
        For i111 As Integer = 0 To ListView2.Items.Count - 1
            If ListView2.Items.Item(i111).SubItems(0).Text = TextBox24.Text Then
                ListView2.Items.Item(i111).SubItems(4).Text = Val(ListView2.Items.Item(i111).SubItems(4).Text) - Val(TextBox25.Text)
                ListView2.Items.Item(i111).SubItems(5).Text = Val(ListView2.Items.Item(i111).SubItems(5).Text) - Val(TextBox89.Text)

                Dim cm111 As New SqlCommand("update Table2 set LengthM=@LengthM,LengthY=@LengthY where ID=" & TextBox24.Text, Conn)
                cm111.Parameters.AddWithValue("@LengthM", SqlDbType.Decimal).Value = ListView2.Items.Item(i111).SubItems(4).Text
                cm111.Parameters.AddWithValue("@LengthY", SqlDbType.Decimal).Value = ListView2.Items.Item(i111).SubItems(5).Text





                If Conn.State = ConnectionState.Closed Then
                    Conn.Open()
                End If
                cm111.ExecuteNonQuery()
                cm111.Parameters.Clear()
                cm111.Dispose()
                Me.RefreshListView2()
                Exit Sub
            End If
        Next

وهذا كود تعريفات امر التعديل
كود :
Dim cm As New SqlCommand("[color=#FF0000]update table1 set[/color] UserName=@UserName,MobileNumber=@MobileNumber,Date=@Date,Price=@Price,Rest=@Rest,Recipient=@Recipient,NameShop=@NameShop,PlaceShop=@PlaceShop,UserShop=@UserShop,Email=@Email,NumberDresses=@NumberDresses,ColorDress1=@ColorDress1,TypeCloth1=@TypeCloth1,TypeDesign1=@TypeDesign1,TypePocket1=@TypePocket1,IDCloth1=@IDCloth1,LengthM1=@LengthM1,LengthY1=@LengthY1,ColorDress2=@ColorDress2,TypeCloth2=@TypeCloth2,TypeDesign2=@TypeDesign2,TypePocket2=@TypePocket2,IDCloth2=@IDCloth2,LengthM2=@LengthM2,LengthY2=@LengthY2,ColorDress3=@ColorDress3,TypeCloth3=@TypeCloth3,TypeDesign3=@TypeDesign3,TypePocket3=@TypePocket3,IDCloth3=@IDCloth3,LengthM3=@LengthM3,LengthY3=@LengthY3,LengthDress=@LengthDress,DisplayKtf=@DisplayKtf,DisplayDress=@DisplayDress,LengthKmSadh=@LengthKmSadh,LengthKmKbk=@LengthKmKbk,DisplayKmSadh1=@DisplayKmSadh1,DisplayKmSadh2=@DisplayKmSadh2,DisplayKmSadh3=@DisplayKmSadh3,DisplayKmKbk1=@DisplayKmKbk1,DisplayKmKbk2=@DisplayKmKbk2,DisplayKmKbk3=@DisplayKmKbk3,RakbhKllab1=@RakbhKllab1,RakbhKllab2=@RakbhKllab2,RakbhSadh1=@RakbhSadh1,RakbhSadh2=@RakbhSadh2,DownDress1=@DownDress1,DownDress2=@DownDress2,LengthKbzor=@LengthKbzor,Other=@Other,Img1U1=@Img1U1,Img2U1=@Img2U1,Img3U1=@Img3U1,Img4U1=@Img4U1,Img1U2=@Img1U2,Img2U2=@Img2U2,Img3U2=@Img3U2,Img4U2=@Img4U2,Img1U3=@Img1U3,Img2U3=@Img2U3,Img3U3=@Img3U3,Img4U3=@Img4U3 where ID=@ID", Conn)

،، شكرا .
الرد }}}}
تم الشكر بواسطة:
#2
اخي قم بالاستعلام قبل التنفيذ عن رقم الـ id .. في حال وجوده قم بالتعديل .. وفي حال عدم وجودع قم بحفظ جديد
Everyone is a genius. It's just that some people are too stupidto realize it
الرد }}}}
تم الشكر بواسطة:
#3

السلام عليكم ورحمة الله وبركاته




إليك هذا الكود حسب الترتيب المنطقي والذي ذكره أيضاً الأخ Mr. DotNet

PHP كود :
Private Sub Save(ByVal id As Integer)

        
'' id التحقق من وجود السجل برقم الـ *************************
        
conn.Open()
        
Dim exist As Boolean = If(New OleDb.OleDbCommand("SELECT COUNT(id) FROM table1 WHERE id=" idconn).ExecuteScalar 0TrueFalse)
        
conn.Close()


        
Dim sql As String String.Empty

        If 
exist Then '' إذا كان موجود قم بالتحديث ******************
            
sql " UPDATE table1 SET   " _
                  
" " _
                  
"   UserName     = @UserName          " _
                  
" , MobileNumber = @MobileNumber      " _
                  
" , Date         = @Date              " _
                  
" " _
                  
" WHERE id=" id


        
Else '' إذا لم يكن موجود قم بلإضافة كجديد ********************
            
sql " INSERT INTO table1" _
                  
" " _
                  
" (  UserName,  MobileNumber, Date    )" _
                  
" " _
                  
" VALUES  " _
                  
" " _
                  
" ( @UserName, @MobileNumber, @Date   )"
        
End If

        
Dim comm As New OleDb.OleDbCommand(sqlconn)
        
comm.Parameters.AddWithValue("@UserName     "Me.txtUserName.Text)
        
comm.Parameters.AddWithValue("@MobileNumber "Me.txtMobileNumber.Text)
        
comm.Parameters.AddWithValue("@Date         "Me.txtDate.Text)

        
conn.Open()
        
comm.ExecuteNonQuery()
        
conn.Close()

    
End Sub 


ملاحظة: استغربت استخدامك ToString. بعد كل بارامتر مثل

كود :
cm.Parameters.AddWithValue("@UserName", (TextBox1.Text))[color=#FF0000].ToString[/color]()




السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#4
@@أبورائد@@ كتب :
السلام عليكم ورحمة الله وبركاته




إليك هذا الكود حسب الترتيب المنطقي والذي ذكره أيضاً الأخ Mr. DotNet

PHP كود :
Private Sub Save(ByVal id As Integer)

        
'' id التحقق من وجود السجل برقم الـ *************************
        
conn.Open()
        
Dim exist As Boolean = If(New OleDb.OleDbCommand("SELECT COUNT(id) FROM table1 WHERE id=" idconn).ExecuteScalar 0TrueFalse)
        
conn.Close()


        
Dim sql As String String.Empty

        If 
exist Then '' إذا كان موجود قم بالتحديث ******************
            
sql " UPDATE table1 SET   " _
                  
" " _
                  
"   UserName     = @UserName          " _
                  
" , MobileNumber = @MobileNumber      " _
                  
" , Date         = @Date              " _
                  
" " _
                  
" WHERE id=" id


        
Else '' إذا لم يكن موجود قم بلإضافة كجديد ********************
            
sql " INSERT INTO table1" _
                  
" " _
                  
" (  UserName,  MobileNumber, Date    )" _
                  
" " _
                  
" VALUES  " _
                  
" " _
                  
" ( @UserName, @MobileNumber, @Date   )"
        
End If

        
Dim comm As New OleDb.OleDbCommand(sqlconn)
        
comm.Parameters.AddWithValue("@UserName     "Me.txtUserName.Text)
        
comm.Parameters.AddWithValue("@MobileNumber "Me.txtMobileNumber.Text)
        
comm.Parameters.AddWithValue("@Date         "Me.txtDate.Text)

        
conn.Open()
        
comm.ExecuteNonQuery()
        
conn.Close()

    
End Sub 


ملاحظة: استغربت استخدامك ToString. بعد كل بارامتر مثل

كود :
cm.Parameters.AddWithValue("@UserName", (TextBox1.Text))[color=#FF0000].ToString[/color]()




السلام عليكم ورحمة الله وبركاته


بالنسبة للكود فطريقته مختلفه عن طريقتي في كودي السابق .. ؟؟؟
اما لماذا استخدم .ToString فاستخدمته للنصوص ،، لماذا هل هو يؤثر ؟؟
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Star [VB.NET] السلام عليكم اخوتي ف المنتدى احتاج الي مساعدة انا اصمم منظومة لشؤون العاملين بعد اض fatma anari 2 43 منذ 57 دقيقة مضت
آخر رد: أبوبكر سويدان
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 4 67 منذ 11 ساعة مضت
آخر رد: ali.alfoly
  ممكن مساعدة توفي العراقي 1 36 منذ 11 ساعة مضت
آخر رد: ali.alfoly
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 36 أمس, 07:07 PM
آخر رد: ابراهيم النعيمي
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 188 أمس, 04:47 PM
آخر رد: صبري زينوبي
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 1 58 أمس, 03:46 PM
آخر رد: أبوبكر سويدان
  [VB.NET] استدعاء بيانات من الاكسس لل vb.net مهند الموسوي 1 65 02-12-16, 03:14 PM
آخر رد: مهند الموسوي
  طلب مساعدة ناتج طرح عددين قيمة سالبه khalaroy 2 43 01-12-16, 03:09 AM
آخر رد: khalaroy
  [سؤال] مساعدة في الفيجوال بيسك عبدالرحمن المكاوي 1 59 28-11-16, 02:11 PM
آخر رد: عبدالرحمن المكاوي
  مساعدة في عمل برنامج rabeh.ram 4 169 27-11-16, 12:29 AM
آخر رد: rabeh.ram

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


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