+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : التعامل مع صفوف الأكسس (/showthread.php?tid=33059)
التعامل مع صفوف الأكسس - أمجد وضاح - 20-01-20
مثلاً معاكم هذا الجدول
الاسم | العمل |
أمجد | مبرمج |
حسام | ميكانيكي |
________________
طيب لما أختر من الكومبو أمجد يظهر في التكست بوكس مبرمج
ولما اختر حسام يظهر ميكانيكي
RE: التعامل مع صفوف الأكسس - عبد العزيز البسكري - 20-01-20
السّلام عليكم و رحمة الله و بركاته
جرّب بهذا الشّكل أخي الكريم
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If Me.ComboBox1.Text = String.Empty Then
Me.TextBox1.Text = String.Empty
End If
Try
Dim Cmd As SqlCommand = New SqlCommand()
Dim Rreader As SqlDataReader = Nothing
If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
Conne_2019.Open()
Dim Qquery As String = " SELECT * From Table1 Where Field_Name = '" & ComboBox1.Text.Trim & "'"
Cmd = New SqlCommand(Qquery, Conne_2019)
Rreader = Cmd.ExecuteReader()
While Rreader.Read
If Rreader IsNot Nothing Then
Me.TextBox1.Text = Rreader.Item("Field_Job")
End If
End While
If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
Catch ex As Exception
MessageBox.Show("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
End Try
End Subتحياتي
RE: التعامل مع صفوف الأكسس - أمجد وضاح - 20-01-20
هناك خطأ في هذه الكلمات
SqlCommand
SqlDataReader
RE: التعامل مع صفوف الأكسس - عبد العزيز البسكري - 20-01-20
Sql
=
Oledb
RE: التعامل مع صفوف الأكسس - أمجد وضاح - 21-01-20
أخي لم تنفع هذه الطريقة
RE: التعامل مع صفوف الأكسس - asemshahen5 - 21-01-20
بسم الله الرحمن الرحيم .
أولا استدع فضاء الاسماء :
PHP كود :
Imports System.Data.OleDb
ليصبح الكود كاملا كالتالي :
PHP كود :
Imports System.Data.OleDb
Public Class Form1
Dim Conne_2019 As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=قاعدة البيانات.accdb;Jet OLEDB:Database Password=;")
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
If Me.ComboBox1.Text = String.Empty Then
Me.TextBox1.Text = String.Empty
End If
Try
Dim Cmd As OleDbCommand = New OleDbCommand()
Dim Rreader As OleDbDataReader = Nothing
If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
Conne_2019.Open()
Dim Qquery As String = " SELECT * From الجدول Where الاسم = '" & ComboBox1.Text.Trim & "'"
Cmd = New OleDbCommand(Qquery, Conne_2019)
Rreader = Cmd.ExecuteReader()
While Rreader.Read
If Rreader IsNot Nothing Then
Me.TextBox1.Text = Rreader.Item("العمل")
End If
End While
If Conne_2019.State = ConnectionState.Open Then Conne_2019.Close()
Catch ex As OleDbException
MessageBox.Show("خطأ غير معيّن أثناء عملية الإستعلام" & ex.ToString & vbCrLf)
End Try
End Sub
End Class
مع مراعاة تغيير اسم الجدول و اسم العامود بما يتناسب مع عملك .
RE: التعامل مع صفوف الأكسس - أمجد وضاح - 14-02-20
سأجرب الطريقة