+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : QWZ (/showthread.php?tid=37954)
QWZ - sokina - 08-03-21
السلام عليكم حد يقولي احل الايرور ده ازاي
للعلم ده الكود
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
ليه مافيش حد بيرد
RE: QWZ - عبد العزيز البسكري - 08-03-21
قد تكون ربما عملية الإضافة بحقل Id من نوع ترقيم تلقائي