منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : استفسار حول طريقتي في قاعدة البيانات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله و بركاته كيف حالكم...
أنا لاحظت طرق عديدة لربط قواعد البيانات بالفيجوال بازيك و كيفية استعمال SELECT ,UPDATE.DELETE و كلها مختلفة عن طريقتي التي تعلمتها حين دراستي فهل هي طريقة متميزة ام هناك ظرق اخرى افضل...
طريقتي هي اني انشأ كلاس و اضع فيه الكود التالي:
كود :
Imports MySql.Data.Types
Imports MySql.Data.MySqlClient


Imports System.Windows.Forms
Public Class class1
   Private mycon As mysqlconnection
   Private strcon As String
   Public rdr As MySqlDataReader
   Public Myreq, a, b As String
   Private cmd As MySqlCommand

   Public Sub Connecting_in_informatique()
       strcon = "server=localhost;user id=root;database=addetudiant;password=13061988"
       mycon = New MySqlConnection(strcon)
       mycon.Open()
       cmd = New MySqlCommand(Myreq, mycon)
       rdr = cmd.ExecuteReader
   End Sub
   Public Sub Disconnecting_in_informatique()
       rdr.Close()
       mycon.Close()
   End Sub
End Class
 
ثم حين اريد اضافة 
كود :
dim db_informatiqueas new class1
db_informatique.Myreq = "INSERT INTO table (t1, t2) values('"&t1.text&"','"&t2.text&"')
كود :
            db_informatique.Connecting_in_informatique()
كود :
            db_informatique.Disconnecting_in_informatique()

و حين استخراج البيانات استعمل
كود :
db_informatique.Myreq = "select*from etudiant "
           db_informatique.Connecting_in_informatique()
           Do While db_informatique.rdr.Read
           t1.Text = db_informatique.rdr(0).ToString
 t2.Text = db_informatique.rdr(1).ToString  
           Loop
           db_informatique.Disconnecting_in_informatique()
و نفس الطريقة مع الحذف و التعديل فأرجو منكم النصيحة هل هي طريقة محترفة ام علي بتغييرها و بارك الله فيكم