الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعده في كود vb 2008 Search

بدأه norhan ahmad في 14 سبتمبر 2014 · 0 رد · 381 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1

السلام عليكم 

ارجو المساعده

انا بدي اعمل TextBox اضع فيه مثلا رقم العميل لما اضغط على Button Search يشيك في الداتا بيز هل هو موجود ام لا اذا موجود يحضر لي بياناته مثلا اسمه و رقمه و مكان السكن و هكذا يضعها في Textbox البيانات الناتجه عن البحث اي الاسم في textbox1 , الرقم في textbox2 .....

انا كتبت هالكود لكن لم يعمل معي
هذه تجربتي

Imports System.Data.SqlClient
Public Class Search
    Dim MysqlConn As SqlConnection
    Dim Command As SqlCommand

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MysqlConn = New SqlConnection
        MysqlConn.ConnectionString = "Data Source = computer-PC\SQLEXPRESS;Initial Catalog=Test;Integrated Security=True"

       
        
        Dim Reader As SqlDataReader
        Try
            MysqlConn.Open()
            Dim Query As String

            Query = "select * from test where IDcust='" & TextBox1.Text & "'"
            Command = New SqlCommand(Query, MysqlConn)
            Reader = Command.ExecuteReader
            While Reader.Read
                TextBox2.Text = Reader.GetString("Namecust")
                TextBox3.Text = Reader.GetString("Rank")
                TextBox4.Text = Reader.GetDateTime("JoiningDate")
                TextBox5.Text = Reader.GetString("Workplace")
                TextBox6.Text = Reader.GetInt32("Tel")
                TextBox7.Text = Reader.GetString("Address")


            End While
            MysqlConn.Close()

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            MysqlConn.Dispose()

        End Try

    End Sub

   

End Class

مواضيع مشابهة