[سعود]

سويت مثال مشابه للفكرة وعرفت الاشكال وقمت باصلاح الخطا

انظر للمثال vb 2010 access 2007
http://vb4arb.com/vb/uploaded/34_01375210962.zip

خلاصة الامر اننا نريد حفظ كافة صفوف مربعات النص في عمود واحد بسجلات مستقلة .. لذلك نحتاج افراغ البارمتر قبل اعادة تهيئته لحفظ مربع النص الاخر

المثال يحتوي على عدد 8 مربعات نص وزر امر وقريد

اضفت روتين sub لعرض البيانات

كود :

Sub dt()        Dim ds As New DataSet
        Dim da As New OleDbDataAdapter("select * from tb", con)
        ds.Clear()
        DataGridView1.DataSource = Nothing


        da.Fill(ds, "tb")
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "tb"
    End Sub

واستدعيه عند حدث تحميل الفورم

كود :

dt

وايضا استدعيه بعد كود الحفظ

كود :

Dim cm As New OleDbCommand("", con)

        cm.CommandText = ("insert into tb(tname) values(@tname)")
        cm.Parameters.AddWithValue("@tname", TextBox1.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()




        '====
        cm.Parameters.Clear()
        cm.Parameters.AddWithValue("@tname", TextBox2.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '===
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox3.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox4.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox5.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox6.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox7.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()


        '==
        cm.Parameters.Clear()


        cm.Parameters.AddWithValue("@tname", TextBox8.Text)


        If con.State = ConnectionState.Closed Then
            con.Open()
        End If
        cm.ExecuteNonQuery()
        dt()