سرچ در دیتابیس

سلام
چطور میشه زمانیکه حروف یک کلمه در تکست باکس نوشته میشه , کلمات شبیه به اون هم در یک لیست نمایش داده بشه , یعنی کلماتی که با همان حروف آغاز میشن مثل % like در sql

یه نفر پیدا نمیشه یه search بنویسه که با زدن اولین حرف تو textbox مربوطه کلماتی که تو DB با همون حرف شروع میشن تو یه لیست نشون داده بشه؟

باید از دستورات sqlاستفاده کنی دستورش رو دیگه

کد:

---

Select * From TabelName where Fieldname Like 'begin%'

---

این جا رو نگاه کن:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

البته با 2.0 net Framework. نوشته شده، ولی قطعا می تونی ازش الگو بگیری.

ایلیا

اين کد اشکالش چيه؟
به جاي اينکه فقط رکوردهايي که از طريق فرم اصلي وارد ميشه رو در گزارش نشون بده تمام رکوردهاي موجود در view رو نشون ميده!
هر چي چک ميکنم به نظرم همه چيز درسته.

کد:

---

Imports System.Data
Imports System.Data.SqlClient
Public Class Frmrepm
    Inherits System.Windows.Forms.Form
    Dim Report As New CrystalReport1
    Dim ds As New DataSet2
    Dim sQLqURY As String
    Dim str_conn As String = "Persist Security Info=False;Integrated Security=SSPI;initial catalog=alghadir;"

    Function setdatasource(ByVal conn As String, ByVal query As String, ByVal dataset As DataSet)
        Dim sqlconn As New SqlClient.SqlConnection(conn)
        Dim datAd As New SqlClient.SqlDataAdapter
        datAd.SelectCommand = New SqlClient.SqlCommand(query, sqlconn)
        datAd.Fill(dataset, "Mainvw")
        report.SetDataSource(dataset)
    End Function

    Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click

        If TextAzDate.Text.ToString <> "" And TexttoDate.Text.ToString = "" Then
            sQLqURY = "select * from Mainvw where tdate = N'" + TextAzDate.Text.ToString + "'"
        ElseIf TextAzDate.Text.ToString <> "" Then
            sQLqURY = "select * from Mainvw where tdate >= N'" + TextAzDate.Text.ToString + "'"
        End If
        If TexttoDate.Text.ToString <> "" Then
            If sQLqURY <> "" Then
                sQLqURY = sQLqURY + " and '" + TextAzDate.Text.ToString + "'>=tdate"
            Else
                sQLqURY = "select * from Mainvw where '" + TextAzDate.Text.ToString + "'>=tdate "
            End If
        End If

If RadioButton1.Checked = True Then
            If txtTransactionCode.Text <> "" Then
                If sQLqURY <> "" Then
                    sQLqURY = sQLqURY + " and ReciptHCode = " + txtTransactionCode.Text
                Else
                    sQLqURY = "select * from  Mainvw  where ReciptHCode = " + txtTransactionCode.Text
                End If
            End If
        End If

     
   
        Try
            setdatasource(str_conn, sQLqURY, ds)
            Crrepwi.ReportSource = Report
            GBox2.Visible = False
            Crrepwi.Visible = True
            Me.WindowState = FormWindowState.Maximized
        Catch ex As Exception
            Dim str As String
            str = ex.Message
            MsgBox(str)
        End Try

    End Sub

End Class

---

فهمیدم . گفتم شاید به درد کسی بخوره

کد:

---

Try
            con1.Open()
            Dim CMD As New SqlCommand("SELECT X FROM T WHERE X LIKE '" & txtX.Text & "%';", con1)
            Dim DR As SqlDataReader
            DR = CMD.ExecuteReader
            While DR.Read
                ListBox1.Items.Add(DR(0))
            End While
            DR.Close()
            con1.Close()
            ListBox1.Visible = True
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

---

چطور میشه با زدن یک کلید اطلاعات datagrid رو پاک کرد؟

چطور میشه اطلاعات یک فیلد دیتابیس رو از هم جدا کرد و قسمتهای جدا شده رو در txtbox های مختلف قرار داد؟با split? اگر آره چطوری؟

برای پاک کردن اطلاعات ، خود dataGrid یه متدی به نام clear() داره.

برای جدا کردن هم می تونی دادۀ فیلد رو بگیری و خودت اون رو جدا کنی.

سلام
در جواب اولین سوال باید بگوییم که در خود Framework2 پیش بینی این مسئله شده و TextBox ها دارای سه Property به نام های
AutoCompleteCustomSource
AutoCompleteMode
AutoCompleteSource
میباشند که مخصوص همین مسئله تعبیه شده اند
به همین راحتی.