pedram_ns
چهارشنبه 03 آذر 1389, 16:30 عصر
سلام من با کد زیر اطلاعات رو جستجو می کنم درست کار می کنه و مواردی رو که می خوام پیدا می کنه و در label تعدادشون رو نشون می ده ولی در گرید ویو نمایش نمی ده مشکلش چیه؟
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\database.accdb")
Dim StrSql As String = "select * from anbar where kala_number=@kala_number"
Dim cmd As OleDbCommand = New OleDbCommand(StrSql, con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("kala_number", kala_number.Text)
con.Open()
Dim adapter As New OleDbDataAdapter(cmd)
Dim ds As New DataSet()
adapter.Fill(ds, "anbar")
Dim count As Integer
count = ds.Tables("anbar").Rows.Count
If count <> 0 Then
messagelbl.Visible = True
messagelbl.Text = "تعداد" & count & "کالا پیدا شد."
DataGridView1.DataSource = ds
Else
messagelbl.Visible = True
messagelbl.Text = "کالا پیدا نشد."
End If
con.Close()
Catch ex As Exception
messagelbl.Visible = True
messagelbl.Text = "سیستم ارور داد."
End Try
Dim con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\database.accdb")
Dim StrSql As String = "select * from anbar where kala_number=@kala_number"
Dim cmd As OleDbCommand = New OleDbCommand(StrSql, con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue("kala_number", kala_number.Text)
con.Open()
Dim adapter As New OleDbDataAdapter(cmd)
Dim ds As New DataSet()
adapter.Fill(ds, "anbar")
Dim count As Integer
count = ds.Tables("anbar").Rows.Count
If count <> 0 Then
messagelbl.Visible = True
messagelbl.Text = "تعداد" & count & "کالا پیدا شد."
DataGridView1.DataSource = ds
Else
messagelbl.Visible = True
messagelbl.Text = "کالا پیدا نشد."
End If
con.Close()
Catch ex As Exception
messagelbl.Visible = True
messagelbl.Text = "سیستم ارور داد."
End Try