تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] ممكن كود عندما يتم اختيار رقم من تكست بوكس تظهر البيانات في TextBox
#1
ممكن كود بعد ما اختار رقم من الكومبو بكس يظهر لي البيانات لصاحب الرقم في TextBox ؟؟

ذخلت والله طلعت لي مشكلة لاني استخدم Dataset لاظهار البيانات من بعد ما اختار الرقم او الاسم 

هل يوجد حل لجعل ظهور البيانات بعد ما اختار الرقم من ComboBox
الرد }}}}
تم الشكر بواسطة:
#2
حصلت كود لكن لم يعمل

Private Sub cBoxCustName_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cBoxCustName.SelectedIndexChanged
Try
dbConnect()
cmd.CommandText = "Select * from Customers where Cust_Name = '" & cBoxCustName.Text & "'"
dr.Close()
dr = cmd.ExecuteReader

While dr.Read()
txtCust_ID.Text = dr("Cust_ID").ToString
txtCustCPR.Text = dr("Cust_CPR").ToString
txtCustContactNo.Text = dr("Cust_Contact_No").ToString
txtFlatNo.Text = dr("Cust_Address").ToString
End While
Catch ex As Exception
MessageBox.Show(ex.Message, "Error 123", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
الرد }}}}
تم الشكر بواسطة:
#3
سلام

كود :
Private Sub cBoxCustName_SelectionChangeCommitted(ByVal sender As Object, ByVal e As System.EventArgs) Handles cBoxCustName.SelectionChangeCommitted
    Try
        Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
            Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Customers] WHERE [Cust_Name] = @Cust_Name ", conn)
                dAdapter.SelectCommand.Parameters.AddWithValue("@Cust_Name", cBoxCustName.Text)
                Using dTable As New DataTable
                    If dAdapter.Fill(dTable) > 0 Then
                        Dim row As DataRow = dTable.Rows(0)
                        txtCust_ID.Text = row("Cust_ID")
                        txtCustCPR.Text = row("Cust_CPR")
                        txtCustContactNo.Text = row("Cust_Contact_No")
                        txtFlatNo.Text = row("Cust_Address")
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Error 123", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#4
مشكور اخوي لكن للاسف الكود ليس به خطأ لكن لم تظهر لي اي معلومات

Try
Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Rent_Equipment] WHERE [Cus_ID] = @Cus_ID ", conn)
dAdapter.SelectCommand.Parameters.AddWithValue("@Cus_ID", ComboBox1.Text)
Using dTable As New DataTable
If dAdapter.Fill(dTable) > 0 Then
Dim row As DataRow = dTable.Rows(0)
ComboBox1.Text = row("Cus_ID")
TextBox1.Text = row("Cus_Name")
TextBox2.Text = row("Cus_Private_Number")
End If
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, "Error 123", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

اخوي هذا كود توي شايفنه بس فيه مشكلة
الكود
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
Dim sql As String =
"select * from Rent_Equipment where Cus_ID='" & ComboBox1.Text & "'"
mySQLCommand.CommandText = mySQLStrg
mySQLCommand.Connection = myConnToAccess
dr = mySQLCommand.ExecuteReader
If (dr.Read() = True) Then
TextBox1.Text = (dr("Cus_Name"))
End If
mySQLCommand.Dispose()
dr.Close()
End Using

مكان الخطأ
mySQLCommand.CommandText = mySQLStrg

عنوان الخطأ
An unhandled exception of type 'System.NullReferenceException' occurred in 1111.exe

Additional information: Object reference not set to an instance of an object.

هذا التعريفات

Imports System.Data.OleDb
Imports AccessToAccess
Public Class Form4
Public myConnToAccess As OleDbConnection
Dim mySQLCommand As OleDbCommand
Dim mySQLStrg As String
Dim ds As DataSet
Dim da As OleDbDataAdapter
Dim dr As OleDbDataReader
الرد }}}}
تم الشكر بواسطة:
#5
سلام

كودك الاول سليم لكن تاكد تطلب رقم موجود فعلا في قاعدت البيانات
لم انظر لتعديلات ردك الاخير لضيق الوقت

كود :
Try
        Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
            Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Rent_Equipment] WHERE [Cus_ID] = @Cus_ID ", conn)
                dAdapter.SelectCommand.Parameters.AddWithValue("@Cus_ID", Val(ComboBox1.Text))
                Using dTable As New DataTable
                    If dAdapter.Fill(dTable) > 0 Then
                        Dim row As DataRow = dTable.Rows(0)
                        TextBox1.Text = row("Cus_Name")
                        TextBox2.Text = row("Cus_Private_Number")
                    End If
                End Using
            End Using
        End Using
    Catch ex As Exception
        MessageBox.Show(ex.Message, "Error 123", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#6
الحمدالله رب العالمين شغال 100%
لكن اذا قلنا نريد ان نختار على حسب الاسم لماذا لايعمل رغم اني غيرت المطلوب

الكود

Try
Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Equipment] WHERE [Equ_Name] = @Equ_Name ", conn)
dAdapter.SelectCommand.Parameters.AddWithValue("@Equ_Name", Val(ComboBox2.Text))
Using dTable As New DataTable
If dAdapter.Fill(dTable) > 0 Then
Dim row As DataRow = dTable.Rows(0)
TextBox4.Text = row("Equ_ID")
End If
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, "Error Read Equpment", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
الرد }}}}
تم الشكر بواسطة:
#7
سلام

اولا الامر Val يستخدم لتحويل النص الى رقم
ثانيا هل ComboBox2 يوجد به الاسماء ام ارقام
ثالثا استخدام علامه = تعني المطابقه لكامل النص

كود :
Try
    Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
        Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Equipment] WHERE [Equ_Name] = @Equ_Name ", conn)
            dAdapter.SelectCommand.Parameters.AddWithValue("@Equ_Name", ComboBox2.Text)
            Using dTable As New DataTable
                If dAdapter.Fill(dTable) > 0 Then
                    Dim row As DataRow = dTable.Rows(0)
                    TextBox4.Text = row("Equ_ID")
                End If
            End Using
        End Using
    End Using
Catch ex As Exception
    MessageBox.Show(ex.Message, "Error Read Equpment", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

موفقين
متغيب
الرد }}}}
تم الشكر بواسطة:
#8
مشكور رحم الله والديك اشتغل غيرت كلمة Val الى value:=

هذا هو الكود بعد التعديل شغال 100%
Try
Using conn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
Using dAdapter As New OleDb.OleDbDataAdapter("SELECT * FROM [Equipment] WHERE [Equ_Name] = @Equ_Name ", conn)
dAdapter.SelectCommand.Parameters.AddWithValue("@Equ_Name", value:=(ComboBox2.Text))
Using dTable As New DataTable
If dAdapter.Fill(dTable) > 0 Then
Dim row As DataRow = dTable.Rows(0)
TextBox4.Text = row("Equ_ID")
End If
End Using
End Using
End Using
Catch ex As Exception
MessageBox.Show(ex.Message, "Error Read Equpment", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
الرد }}}}
تم الشكر بواسطة:
#9
هل تقصد ها http://vb4arb.com/vb/thread-12810-post-5...l#pid59893
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ازاى اما اكتب داتا فى التكست بوكس يدور عليها فى اى سطر ويزود على cell تانية 1 araxis 8 129 منذ 11 ساعة مضت
آخر رد: araxis
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 3 71 اليوم, 12:47 AM
آخر رد: ali.alfoly
  تغيير قاعدة البيانات الى .bak زيد زينوبي 3 44 03-12-16, 07:07 PM
آخر رد: ابراهيم النعيمي
  [سؤال] ايهما افضل في قواعد البيانات للتميم برنامج sal.softip 2 35 03-12-16, 06:59 PM
آخر رد: sal.softip
  قاعدة البيانات لا تدعم اللغة العربية ؟؟؟؟؟؟ صبري زينوبي 13 190 03-12-16, 04:47 PM
آخر رد: صبري زينوبي
  [سؤال] تغير لون كتابة التيكست بوكس ؟ Mido9 5 2,357 30-11-16, 10:16 PM
آخر رد: omferas
  تغيير قاعدة البيانات من اكسس الى sql hglogtd 2 97 26-11-16, 03:03 AM
آخر رد: hglogtd
  [سؤال] ايهما افضل من جهة امن البيانات thevirus 2 83 24-11-16, 12:14 PM
آخر رد: thevirus
  [كود] الحذف من قاعدة البيانات بواسطة كلمة سر المبرمج العبقري 5 119 23-11-16, 05:21 PM
آخر رد: hglogtd
  [VB.NET] الاتصال بقاعدة البيانات في التقارير (الكريستال ريبورت) thevirus 2 79 23-11-16, 11:05 AM
آخر رد: thevirus

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


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