在 vb.net 中使用选择查询

Question

我试图弄清楚如何在 vb.net 中正确使用选择查询。我尝试使用的查询使用连接函数来连接多个表。我也有一个 where 过滤器。下面是在 MS SQL Server Management Studio 中工作的查询。这里的任何人都可以将我推向正确的方向或知道我可以用来执行此查询的语法/格式吗？

select th.*, odo.OptionCode
from FVMASTER..trackinghistory th
join FVMASTER..OrderDetailOptions odo on odo.odKey=th.odKey
join FVMASTER..MasterPartOptions mpo on mpo.Code=odo.OptionCode and mpo. 
[Group]=odo.optiongroup 
and mpo.QuestionKey='KGLASS' and OptionType=5
where th.DateTime>DATEADD(DAY,-4,getdate()) and th.Code='__A__' and th.StationID='HO4' and 
left(odo.OptionCode,1) = 'H'
order by th.SchedID, th.UnitID, th.MasterKey

Answer 1

这是在 ADO.net 中完成的方式。您将需要在文件的顶部。

Imports System.Data.SqlClient

sqlString 的这一行有问题。一段时间后你不会想要一个空格。

join FVMASTER..MasterPartOptions mpo on mpo.Code=odo.OptionCode and mpo.

您应该能够将 Select 语句从 SSMS 直接复制并粘贴到 vb.net 代码中。

将您的数据访问代码与用户界面代码分开。您的所有参数似乎都是硬编码的。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim dt = GetThData()
    DataGridView1.DataSource = dt
End Sub

Private Function GetThData() As DataTable
    Dim sqlString = "select th.*, odo.OptionCode
from FVMASTER..trackinghistory th
join FVMASTER..OrderDetailOptions odo on odo.odKey=th.odKey
join FVMASTER..MasterPartOptions mpo on mpo.Code=odo.OptionCode 
and mpo. 
[Group]=odo.optiongroup 
and mpo.QuestionKey='KGLASS' and OptionType=5
where th.DateTime>DATEADD(DAY,-4,getdate()) and th.Code='__A__' 
and th.StationID='HO4' and 
left(odo.OptionCode,1) = 'H'
order by th.SchedID, th.UnitID, th.MasterKey;"
    Dim dt As New DataTable
    Using cn As New SqlConnection("Your connection string"),
            cmd As New SqlCommand(sqlString, cn)
        cn.Open()
        Using reader = cmd.ExecuteReader
            dt.Load(reader)
        End Using
    End Using
    Return dt
End Function