volahmad
جمعه 21 اسفند 1388, 22:25 عصر
سلام به همه اساتید
اگه لطف کنید و جواب من رو بدید ممنون میشم
چون آینده شغلیم به این پروژه بسته است
سئوال : من از 2 تا جدول یک سرس اطلاعات رو میخوام که با شرط خاصی ( تاریخ) از این 2 جدول رو گرفته و توی Datagride بریزه ولی متاسفانه DataGride من فقط با نام ستونها لود میشه
و اطلاعات رو نمیده
کد هم اینطوری نوشتم
[LTR_INLINE]
Imports System.Data.SqlClient
Public Class riout
Dim t As String
Dim a As String
Dim ta As New Fullac1DataSetTableAdapters.input1TableAdapter
Dim dt As New Fullac1DataSet.input1DataTable
Dim x As Integer = 30
Dim y As Integer = 150
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t = ComboBox4.Text + "/" + ComboBox3.Text + "/" + ComboBox2.Text
a = ComboBox1.Text + "/" + ComboBox5.Text + "/" + ComboBox6.Text
Dim con As New SqlConnection
con.ConnectionString = My.Settings.FullConnectionString
Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "SELECT mavad.kalaid AS [شناسه کالا], mavad.nm AS [نام اختصاری], [input].resid AS [شماره رسید], [input].data AS [تاریخ ورود], [input].vared AS وارده, [input].dar AS [شماره درخواست], [input].rd AS [شماره رد یابی] FROM [input], [mavad] "
cmd.Parameters.Add(New SqlParameter("@a", SqlDbType.VarChar))
cmd.Parameters("@a").Value = t
cmd.Parameters.Add(New SqlParameter("@t", SqlDbType.VarChar))
cmd.Parameters("@t").Value = a
cmd.Parameters.AddWithValue("@n", ComboBox7.Text)
con.Open()
Dim ta As New SqlDataAdapter
Dim dt As New DataTable
ta.SelectCommand = cmd
ta.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub reportinput_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ta As New Fullac1DataSetTableAdapters.mavadTableAdapter
Dim dt As New Fullac1DataSet.mavadDataTable
ta.Fill(dt)
ComboBox7.DataSource = dt
ComboBox7.DisplayMember = "name"
ComboBox7.ValueMember = "name"
End Sub
End Class
اگه لطف کنید و جواب من رو بدید ممنون میشم
چون آینده شغلیم به این پروژه بسته است
سئوال : من از 2 تا جدول یک سرس اطلاعات رو میخوام که با شرط خاصی ( تاریخ) از این 2 جدول رو گرفته و توی Datagride بریزه ولی متاسفانه DataGride من فقط با نام ستونها لود میشه
و اطلاعات رو نمیده
کد هم اینطوری نوشتم
[LTR_INLINE]
Imports System.Data.SqlClient
Public Class riout
Dim t As String
Dim a As String
Dim ta As New Fullac1DataSetTableAdapters.input1TableAdapter
Dim dt As New Fullac1DataSet.input1DataTable
Dim x As Integer = 30
Dim y As Integer = 150
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
t = ComboBox4.Text + "/" + ComboBox3.Text + "/" + ComboBox2.Text
a = ComboBox1.Text + "/" + ComboBox5.Text + "/" + ComboBox6.Text
Dim con As New SqlConnection
con.ConnectionString = My.Settings.FullConnectionString
Dim cmd As New SqlCommand
cmd.Connection = con
cmd.CommandText = "SELECT mavad.kalaid AS [شناسه کالا], mavad.nm AS [نام اختصاری], [input].resid AS [شماره رسید], [input].data AS [تاریخ ورود], [input].vared AS وارده, [input].dar AS [شماره درخواست], [input].rd AS [شماره رد یابی] FROM [input], [mavad] "
cmd.Parameters.Add(New SqlParameter("@a", SqlDbType.VarChar))
cmd.Parameters("@a").Value = t
cmd.Parameters.Add(New SqlParameter("@t", SqlDbType.VarChar))
cmd.Parameters("@t").Value = a
cmd.Parameters.AddWithValue("@n", ComboBox7.Text)
con.Open()
Dim ta As New SqlDataAdapter
Dim dt As New DataTable
ta.SelectCommand = cmd
ta.Fill(dt)
DataGridView1.DataSource = dt
End Sub
Private Sub reportinput_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ta As New Fullac1DataSetTableAdapters.mavadTableAdapter
Dim dt As New Fullac1DataSet.mavadDataTable
ta.Fill(dt)
ComboBox7.DataSource = dt
ComboBox7.DisplayMember = "name"
ComboBox7.ValueMember = "name"
End Sub
End Class