تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب كود
#1
السلام عليكم ورحمة الله تعال وبركات
عندي بنود جلبتم من الجدول في الكومبو بوكس بس عاوز كود داخل بتن بضغط عليها تظهر ليك انبوت بوكس حتي تقوم باضافة بند جديد يتم تحفظه في الداتا بيس
وجزاكم الله خيرا
الرد }}
تم الشكر بواسطة:
#2
وضح اخي ..
او قم برفع مثال
الرد }}
تم الشكر بواسطة:
#3
السلام عليكم 

اضف form  جديد صغير للادخال  موجود فيه textbox و button 

عن الضغط على button للاضافة 

هذا الكود لادخال المنطقة area

ادخل هذا الكود


 If TextBox2.Text = "" Then
            MsgBox("الرجاء إدخال المنطقة")
        Else



            con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|Database1.mdb"


            Dim IDnum As String = "100"
            Dim insertCommands As New OleDb.OleDbCommand("INSERT  INTO area (area_add) VALUES ('" & TextBox2.Text & "')", con)
            Try
                con.Open()
                insertCommands.ExecuteNonQuery()
            Catch ex As Exception
                MessageBox.Show(ex.Message & " - " & ex.Source)
            Finally
                con.Close()
                MsgBox("تمت الإضافة ")
                Me.AreaTableAdapter.Fill(Me.Database1DataSet.area)

                TextBox2.Text = ""
                Me.Refresh()


            End Try
الرد }}
تم الشكر بواسطة: elgokr


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


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