[vbnet]

.....

بالاعتماد على مشاركة الأستاذ administrator بخصوص موقع http://www.db4free.net (وبحسب الموقع فإنه يتيح الخدمة للتجارب فقط وليس للاستضافة)

تم عمل قاعدة بيانات للتجربة خاص بأعضاء وزوار المنتدى

وللإتصال وقراءة البيانات بلغة NET. يجب استخدام هذه المكتبة (mysql-connector-net-6.8.3.msi) وإن أردتم اختصاراً استخدموا المكتبة التي في المرفقات

أنشء مشروع VB.NET جديد وأضف في الفورم Button و DataGridView وضع هذا الكود (طبعا يحتاج الأمر بعض الوقت للإتصال عبر النت)

كود :

Imports MySql.Data.MySqlClient ' MySql.Data.dll أضف المرجع

Public Class Form1
    Private cn As New MySqlConnection(" Server = db4free.net;  Port = 3306; " _
                                   & " User id = vb4arb;  Password = 134679; " _
                                   & " Database = database1; ")
    Dim sql As String = " SELECT * FROM table1  "
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using da As New MySqlDataAdapter(sql, cn)
            Using dt As New DataTable

                da.Fill(dt)
                Me.DataGridView1.DataSource = dt

            End Using
        End Using
    End Sub

End Class

.....