[Mohamed Magdy]

(28-12-18, 02:58 PM)ابو روضة كتب :

اضف المرفق عن طريق add Reference

شكرا جدا صديقى تم الحل لاكن توجد مشكلة فى كود الاتصال هاذا ما هيا المشكلة 




دا كود الاتصال الى اعمل بية 

كود :

Imports MySql.Data.MySqlClient
Imports System.Runtime.InteropServices

Public Class Form1
   Dim conn As New MySqlConnection
   
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim str As String = "server =لينك قاعدة البينات;Username=يوزر القاعدة;password=بسورد القاعدة ;database=اسم القاعدة;charset=utf8"
       Dim command As New MySqlCommand("select * from login where1 user = @user and Password = @password")
       conn = New MySqlConnection
       command.Parameters.Add("@username", MySqlDbType.VarChar).Value = TextBoxUsername.Text
       command.Parameters.Add("@password", MySqlDbType.VarChar).Value = TextBoxPassword.Text

       Dim adapter As New MySqlDataAdapter(command)

       Dim table As New DataTable()

       adapter.Fill(table)

       If table.Rows.Count() <= 0 Then

           MessageBox.Show("Username Or Password Are Invalid")

       Else

           MessageBox.Show("Login Successfully")

       End If

   End Sub
End Class