نشان دادن جواب در گرید ویو

با سلام خدمت دوستان
این کدها برای سرچ در sqlite هست من اگر بخوام جواب رو توی گرید ویو نشون بدم باید چه کدی بهش اضافه کنم و کدش چی هست

        Dim cnn As SQLiteConnection = New SQLiteConnection("Data Source=mydata.sqlite;version=3;")      

  cnn.Open()

        Dim q As String = "select * from tell where nam like@nam"

        Dim cmd As SQLiteCommand = New SQLiteCommand(q, cnn)

        cmd.Parameters.AddWithValue("@nam", "%" & TextBox8.Text & "%")

         

سلام بهتره از دیتا اداپتور و دیتا ست استفاده کنی بهتره

Me.DataSet.Clear()
Dim Connectionn As New SqlConnection("Data Source=.;Initial Catalog=c;Integrated Security=True")
Dim Commandd As New SqlCommand()
Dim DataTablee As New DataTable
Dim DataAdapterr As New SqlDataAdapter(Commandd)
Commandd.Connection = Connectionn
Commandd.CommandTimeout = 2000
Commandd.CommandText = "SELECT * FROM [tt].[dbo].[Table_1] WHERE(nam LIKE '" + "%" + Me.TextBox1.Text + "%" + "')"
DataAdapterr.Fill(DataTablee)
Me.Table_1DataGridView.DataSource = DataTablee
DataAdapterr.Fill(DataSet.Table_1)
Me.Table_1DataGridView.DataSource = Me.DataSet.Table_1
Connectionn.Close()

دوست عزیز این نتیجه کلی جستجو و کمک گرفتن من از دوستانم هستش که شما با این روش میتونید دستورات اس کیو ال فراخوانی و در جدولتون نمایش بدین

نقل قول:

---

نوشته شده توسط nedaei

با سلام خدمت دوستان
این کدها برای سرچ در sqlite هست من اگر بخوام جواب رو توی گرید ویو نشون بدم باید چه کدی بهش اضافه کنم و کدش چی هست

        Dim cnn As SQLiteConnection = New SQLiteConnection("Data Source=mydata.sqlite;version=3;")      

  cnn.Open()

        Dim q As String = "select * from tell where nam like@nam"

        Dim cmd As SQLiteCommand = New SQLiteCommand(q, cnn)

        cmd.Parameters.AddWithValue("@nam", "%" & TextBox8.Text & "%")

         

---

سلام دوست عزیز

من کد زیر رو به شما پیشنهاد می‌کنم:

        Dim cnn As SQLiteConnection = New SQLiteConnection("Data Source=mydata.sqlite;version=3;")

        cnn.Open()





        Dim q As String = "select * from tell where nam like@nam"

        Dim cmd As SQLiteCommand = New SQLiteCommand(q, cnn)

        cmd.Parameters.AddWithValue("@nam", "%" & TextBox8.Text & "%")





        Dim da As New SQLiteDataAdapter(cmd)





        Dim DT As New DataTable

        da.Fill(DT)

        DataGridView1.DataSource = DT

موفق باشید ......