كيف اضيف بيانات خليه محدده من datagridview الى قاعدة البيانات
Dim SavInto1 As New SqlCommand
Dim Conn As New SqlConnection(ConStr)
SavInto1.Connection = Conn
SavInto1.CommandType = CommandType.Text
Dim Pos As Integer = DataGridView1.CurrentRow.Index
SavInto1.CommandText = "INSERT INTO tab2(tyocolo)" & "values ('" & Me.DataGridView1.Rows(Pos).Cells(1).Value.ToString & "')"
Conn.Open()
SavInto1.ExecuteNonQuery()
Conn.Close()
تم تعديل هذه المشاركة بواسطة علاء الكعبي في 11 مارس 2014 في 14:21
أخي الفاضل
السلام عليكم ورحمة الله وبركاتة
صممت لك مثال سريعا عبارة عن قاعده بيانات أكسس تحتوي علي جدول بداخلة حقل كود العميل وحقل اسم العميل وحقل عنوان العميل
وعند ادخال بيانات في الجريد فيو يقوم المثال بحفظ كود العميل فقط بدون باقي التفاصيل
بالتوفيق
هوة حضرتك عامل قاعدة البيانات بالاكسس مش بتفتح عندى انا عندى الاكسس 2003
السلام عليكم اخ محمد الكود لايعمل مع قاعدة بيانات sql
Dim path As String = (Microsoft.VisualBasic.Left(Application.StartupPath, Len(Application.StartupPath) - 9))
Public ConStr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=" & path & "Database1.mdf;Integrated Security=True;User Instance=True"
Public con As New SqlConnection(ConStr)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
For i As Integer = 0 To Me.DataGridView1.Rows.Count - 2
Dim SavInto1 As New SqlCommand
Dim Conn As New SqlConnection(ConStr)
SavInto1.Connection = Conn
SavInto1.CommandType = CommandType.StoredProcedure
With SavInto1.Parameters
.AddWithValue("@colo", DataGridView1.Rows(i).Cells("colo").Value).DbType = DbType.Int32
End With
Conn.Open()
SavInto1.ExecuteNonQuery()
Conn.Close()
Next
MsgBox("تم الحفظ")End Sub
تم تعديل هذه المشاركة بواسطة محمد فؤاد تركي في 12 مارس 2014 في 15:58
أخي الفاضل
الكود الذي قم بارفاقه هنا لا يحتوي علي الاجراء المخزن الذي سيقوم بحفظ البيانات في قاعده البيانات