+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً (/showthread.php?tid=18904)
طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً - m22sf - 22-01-17
هذا الكود كنت استخدمه في عرض البيانات داخل التكست بوكس من قاعدة بيانات اكسس والان ابي استخدمه لقاعدة بيانات سكيول سيرفر ولكن يوجد خطا ولا اعرف كيف اعدله مطلوب تعديل 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 SubRE: طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً - thevirus - 22-01-17
بما أن التعامل مع قواعد بيانات اكسس واكسل نستدعي مكتبة OleDB
PHP كود :
Imports System.Data.OleDb
إذاً للتعامل مع قاعدة بيانات SQL يجب عليك استيراد المكتبة الخاصة بالتعامل مع قواعد بيانات SQL كالاتي
PHP كود :
Imports System.Data.SqlClient
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
RE: طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً - m22sf - 22-01-17
بارك الله فيك اخي وجزاك الله خير على سرعة التجاوب والرد وشكراً لك جعله الله في موازين حسناتك تم التعديل والحمد لله شغال معي مية بالميه
RE: طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً - thevirus - 22-01-17
وإياك,,,,,,,,
اي سؤال في اطار معرفتي المتوااضعة لن اتردد في الاجابة عليه لاني دخلت على هذا المنتدى الاكثر من رائع ((بارك الله في القائمين على نشاطه)) وانا في مستوى الصفر
وتعلمت منه اشياء ساعدتني جدا والفضل يعود لاعضاء هذا المنتدى بعد الله سبحانه وتعالى طبعاً