منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً

هذا الكود كنت استخدمه في عرض البيانات داخل التكست بوكس من قاعدة بيانات اكسس والان ابي استخدمه لقاعدة بيانات سكيول سيرفر ولكن يوجد خطا ولا اعرف كيف اعدله مطلوب تعديل OleDb.OleDbCommand وكذلك OleDbDataReader حتى تتولفق مع قاعدة بينات سكيول سيرفر

كود :

 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 OleDb.OleDbCommand(SQL, Cn)

            Dim dr As OleDb.OleDbDataReader = 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

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

بارك الله فيك اخي وجزاك الله خير على سرعة التجاوب والرد وشكراً لك جعله الله في موازين حسناتك تم التعديل والحمد لله شغال معي مية بالميه

وإياك,,,,,,,,
اي سؤال في اطار معرفتي المتوااضعة لن اتردد في الاجابة عليه لاني دخلت على هذا المنتدى الاكثر من رائع ((بارك الله في القائمين على نشاطه)) وانا في مستوى الصفر
وتعلمت منه اشياء ساعدتني جدا والفضل يعود لاعضاء هذا المنتدى بعد الله سبحانه وتعالى طبعاً

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

m22sf

thevirus

m22sf

thevirus