Miryam
پنج شنبه 03 شهریور 1390, 01:24 صبح
سلام
یه فرم دارم می خوام براساس یک بازه زمانی(جستجو بین دو تاریخ) از بانک sql با کمک data grid viwe گزارش بگیرم لطفا این کد ببینید روی دو خط آخر error میده.:گریه:روی (dt) لطفا بررسی کنید اشکال کد کجاس
Private Sub Btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Btnsearch.Click
Dim strSql As String
strSql = "Data source=VIRTUALXP-28481;Initial catalog=Foroshgah;Integrated security=True"
Dim con As New SqlConnection(strSql)
strSql = "select * from Tblforosh where tim1<=time and time2>=time "
Dim da As New SqlDataAdapter(strSql, con)
Dim dt As DataTableda.Fill(dt)
DataGridView1.DataSource = dt
End Sub
یه فرم دارم می خوام براساس یک بازه زمانی(جستجو بین دو تاریخ) از بانک sql با کمک data grid viwe گزارش بگیرم لطفا این کد ببینید روی دو خط آخر error میده.:گریه:روی (dt) لطفا بررسی کنید اشکال کد کجاس
Private Sub Btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Btnsearch.Click
Dim strSql As String
strSql = "Data source=VIRTUALXP-28481;Initial catalog=Foroshgah;Integrated security=True"
Dim con As New SqlConnection(strSql)
strSql = "select * from Tblforosh where tim1<=time and time2>=time "
Dim da As New SqlDataAdapter(strSql, con)
Dim dt As DataTableda.Fill(dt)
DataGridView1.DataSource = dt
End Sub