0

こんにちは、オラクルと vb.net は初めてです。このアプリケーションには vb.net を使用しています。GetMaterial関数との間でGetDescription関数の結果を渡すにはどうすればよいですGetDate か? 私は何をすべきか ？

  Private Function GetMaterial(ByVal strMaterial As String) As DataSet

    Dim connectionString As String = "Data Source = ***; User ID = *****; Password = ***;"
    Dim sqlConnection As OracleClient.OracleConnection = New OracleClient.OracleConnection(connectionString)

    Dim queryString As String = "select * from abc where device = 'xyz' "

    Dim sqlCommand As OracleClient.OracleCommand = New OracleClient.OracleCommand(queryString, sqlConnection)
    sqlCommand.CommandTimeout = 0

    Dim dataAdapter As OracleClient.OracleDataAdapter = New OracleClient.OracleDataAdapter(sqlCommand)
    Dim dataSet As DataSet = New DataSet
    dataAdapter.Fill(dataSet)

    Return dataSet

End Function

Private Function GetDescription(ByVal strMaterial As String, ByVal ListBox1 As String) As DataSet

    Dim connectionString As String = "Data Source = ***; User ID = ***; Password = ***;"
    Dim sqlConnection As OracleClient.OracleConnection = New OracleClient.OracleConnection(connectionString)

    Dim queryString As String = "select * from abc where lpt = '" & ListBox1 & "' and device = '" & strMaterial & "'"


    Dim sqlCommand As OracleClient.OracleCommand = New OracleClient.OracleCommand(queryString, sqlConnection)
    sqlCommand.CommandTimeout = 0


    Dim dataAdapter As OracleClient.OracleDataAdapter = New OracleClient.OracleDataAdapter(sqlCommand)
    Dim dataSet As DataSet = New DataSet
    dataAdapter.Fill(dataSet)

    Return dataSet

End Function

Private Function GetDate(ByVal strMaterial As String, ByVal ListBox1 As String, ByVal bdp1 As String) As DataSet

    Dim connectionString As String = "Data Source = ***; User ID = ***; Password = ***;"
    Dim sqlConnection As OracleClient.OracleConnection = New OracleClient.OracleConnection(connectionString)


    Dim queryString As String = "select * from abc where tran_dttm <= to_date('1/31/2012','MM-DD-YYYY') and tran_dttm > to_date('1/30/2012','MM-DD-YYYY')"


    Dim sqlCommand As OracleClient.OracleCommand = New OracleClient.OracleCommand(queryString, sqlConnection)
    sqlCommand.CommandTimeout = 0


    Dim dataAdapter As OracleClient.OracleDataAdapter = New OracleClient.OracleDataAdapter(sqlCommand)
    Dim dataSet As DataSet = New DataSet
    dataAdapter.Fill(dataSet)

    Return dataSet

End Function
4

1 に答える 1

0

渡されたパラメーターに変更を加える場合は ByRef を使用できますが、ByVal を使用しない場合は ...

Private Function GetDate(ByVal strMaterial As String, ByVal ListBox1 As String, ByVal bdp1 As String, ByVal dsM as Dataset, ByVal dsD as DataSet) As DataSet

'code here - example'
msgbox(dsD.Rows(0).Item(0))

End Function

したがって、関数 Getdate を getMaterial と getDesc を param として渡して使用する場合は ....

Dim ds as DataSet = GetDate(.. , .. ,..  , getMaterial( ..), getDescription(..))
于 2013-06-05T06:57:57.500 に答える