22-01-17, 04:31 AM
هذا الكود كنت استخدمه في عرض البيانات داخل التكست بوكس من قاعدة بيانات اكسس والان ابي استخدمه لقاعدة بيانات سكيول سيرفر ولكن يوجد خطا ولا اعرف كيف اعدله مطلوب تعديل 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