[samers]

السلام عليكم
هل يمكنني ان اعمل عدة من textbox وادخل بيانات عليها واحفظها ثم اعمل زر اضافة لادخال بيانات اخرى والرجوع ثانية إلى البيانات الاولى وهكذا ان اضيف بيانات عديدة

[الكاتب]

نعم يمكن من خلال الاشارة +
ظع اشارة الزائد قبل اليساوي بحيث تصبح
1 = + textbox.text
وفي كل مره يتجاهل المعلومات السابقة ويظيف معلومات جديدة ولاكن افصل الاسطر حتى لا تتداخل السطور .

[samers]

السلام عليكم
شكرا لك على اجابتك على سؤالي ولكن يظهر معي هذه الرسالة Conversion from string "" to type 'Double' is not valid."}

[سعود]

1 = + textbox.text
change it to
1 = & textbox.text

---

اذا تقصد مثل هذه الطرقة:


فتفضل الكلاس

كود :

Public Class Form2

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim cm As New OleDb.OleDbCommand("select * from tb", con)
       If con.State = ConnectionState.Closed Then
           con.Open()
       End If
       Dim dr As OleDb.OleDbDataReader = cm.ExecuteReader

       If dr.HasRows Then
           Do While dr.Read
               TextBox1.AppendText("الرقم: " & dr(0) & vbNewLine)
               TextBox1.AppendText("الاسم:: " & dr(1) & vbNewLine)
               TextBox1.AppendText("كلمة المرور: " & dr(2) & vbNewLine & "______________________" & vbNewLine)
           Loop
           dr.Close()
       End If
       If con.State = ConnectionState.Open Then
           con.Close()
       End If
   End Sub
End Class