تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
QWZ
#1
السلام عليكم حد يقولي احل الايرور ده ازاي
للعلم ده الكود 
   Private Sub SaveBtn_Click(sender As Object, e As EventArgs) Handles SaveBtn.Click

        da.SelectCommand = New SqlCommand("select * from users", con)
        da.Fill(ds, "Tab1")
        dt = ds.Tables("tab1")
   Dim row As DataRow = dt.NewRow
     

        row("username") = TxtUserName.Text
        row("password") = TxtPass.Text
        row("EmpId") = ComboBox1.SelectedValue IsNot ComboBox1.Text
        row("use_add") = CheckBox1.Checked
        row("use_delete") = CheckBox2.Checked
        row("modification") = CheckBox3.Checked


        
        dt.Rows.Add(row)
 
        cmdb = New SqlCommandBuilder(da)
    
        da.Update(dt)
        MsgBox("تمت الإضافه بنجاح", MsgBoxStyle.Information)
        DataGridView1.DataSource = ds.Tables("users")

    End Sub

ليه مافيش حد بيرد


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
قد تكون ربما عملية الإضافة بحقل  Id من نوع ترقيم تلقائي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:


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


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