تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً
#1
هذا الكود كنت استخدمه في عرض البيانات داخل التكست بوكس من قاعدة بيانات اكسس والان ابي استخدمه لقاعدة بيانات سكيول سيرفر ولكن يوجد خطا ولا اعرف كيف اعدله مطلوب تعديل 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
الرد
تم الشكر بواسطة:
#2
بما أن التعامل مع قواعد بيانات اكسس واكسل نستدعي مكتبة 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.ObjectByVal e As System.EventArgsHandles Button1.Click




       
Try
 
          If TextBox2.Text "" Then
               MessageBox
.Show("الرجاء ادخال رمز الشخص المراد الاستعلام عنه""رسلة"MessageBoxButtons.OKMessageBoxIcon.ExclamationMessageBoxDefaultButton.Button2MessageBoxOptions.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 
الرد
تم الشكر بواسطة:
#3
بارك الله فيك اخي وجزاك الله خير على سرعة التجاوب والرد وشكراً لك جعله الله في موازين حسناتك تم التعديل والحمد لله شغال معي مية بالميه
الرد
تم الشكر بواسطة: thevirus
#4
وإياك,,,,,,,,
اي سؤال في اطار معرفتي المتوااضعة لن اتردد في الاجابة عليه لاني دخلت على هذا المنتدى الاكثر من رائع ((بارك الله في القائمين على نشاطه)) وانا في مستوى الصفر
وتعلمت منه اشياء ساعدتني جدا والفضل يعود لاعضاء هذا المنتدى بعد الله سبحانه وتعالى طبعاً
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  استخدام كود البحث ثم عند عدم وجود نتيجة في الداتا جريدفيو تظهر رسالة Hazem1 11 194 19-09-18, 07:00 PM
آخر رد: elgokr
  تعديل بسيط dasktop 1 67 11-09-18, 02:53 AM
آخر رد: elgokr
  طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل essawq 9 205 05-09-18, 11:22 PM
آخر رد: essawq
  [VB.NET] ملأ الكومبوبكس اثناء الكتابة عليه و items تأخذ من البحث larbihamri 21 465 03-09-18, 06:14 AM
آخر رد: elgokr
  [سؤال] مشكلة في الكود في كيفية البحث داخل الداتا جريد من خلال صندوق نصي ؟ dametucorazon 1 98 02-09-18, 10:26 AM
آخر رد: elgokr
  طلب مساعدة في كود البحث بالتاريخ وبمربع تكست وعرض البيانات بالتكست والداتا جريد essawq 12 365 02-09-18, 03:22 AM
آخر رد: elgokr
  [VB.NET] استفسار :- البحث في textbox - Contains dubai.eig 9 273 30-08-18, 07:08 PM
آخر رد: elgokr
  البحث للتاريخ بالتاكس بكس العيدروس 5 145 26-08-18, 09:57 PM
آخر رد: elgokr
  الرجاء تعديل علا المثال التالي لعرض ملف هيكس في ليست بوكس wolf1120 17 423 22-08-18, 10:18 PM
آخر رد: elgokr
  [VB.NET] محتاج تعديل بسيط على الكود dubai.eig 5 147 17-08-18, 03:01 AM
آخر رد: elgokr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم