[thevirus]

بما أن التعامل مع قواعد بيانات اكسس واكسل نستدعي مكتبة OleDB          

PHP كود :

Imports System.Data.OleDb 


 إذاً للتعامل مع قاعدة بيانات SQL يجب عليك استيراد المكتبة الخاصة بالتعامل مع قواعد بيانات SQL كالاتي 

PHP كود :

Imports System.Data.SqlClient 


وبعدين تستبدل OleDB  إلىSql   

PHP كود :

''جملة الاتصال بالسيرفر 
Dim cn As New SqlConnection(نص الاتصال)
Dim Cmd As New SqlCommand 


 
ويما إنك وضعت الكود سوف يتم التعديل عليه

PHP كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click




       Try
           If TextBox2.Text = "" Then
               MessageBox.Show("الرجاء ادخال رمز الشخص المراد الاستعلام عنه", "رسلة", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
               TextBox2.Focus()
               Exit Sub
           Else
           End If
           If Cn.State = ConnectionState.Open Then Cn.Close()
           'Cn.ConnectionString = CON
           Cn.Open()
           Dim SQL As String = "select * from users where ramz ='" & TextBox2.Text & "'"
           Dim cmd As New SqlClient.SqlCommand(SQL, Cn)
           Dim dr As SqlClient.SqlDataReader = cmd.ExecuteReader
           cmd.CommandText = SQL
           If dr.Read = True Then
               TextBox1.Text = dr.GetValue(0)
               TextBox2.Text = dr.GetValue(1)
               TextBox3.Text = dr.GetValue(4)
               dr.Close()
               Cn.Close()
           End If
       Catch ex As Exception
           MessageBox.Show(ex.Message.ToString)
       End Try




   End Sub 


عليك تغيير جملة الاتصال 

من OleDb.OleDbConnection إالى SqlClient.SqlConnection