Private Function GetSumm(ByVal strLot As String) As DataSet
Dim connectionString As String = "Data Source = smsdw; User ID = rpt; Password = rpt;"
Dim sqlConnection As OracleClient.OracleConnection = New OracleClient.OracleConnection(connectionString)
Dim queryString As String = "select smsdw.device_def from smsdwSI6;"
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
给出:
Error at dataAdapter.Fill(dataSet)
ORA-00911: invalid character